我们的SubFunction.asp中展示了Sub的用法，代码如下：
<% Sub mySub(Str1, Str2) Response.Write(Str1 & Str2) End Sub mySub "Hello,", "World<br>" Call mySub("Hello,", "World<br>") %>
我们的SubFunction.asp中展示了Function的用法，代码如下：
<% Function Factorial(number) Dim i, lFac lFac = 1 For i = 1 To number lFac = lFac * i Next Factorial = lFac ‘函数返回值 End Function Response.Write("4的阶乘是 " & Factorial(4)) %>
原文：http://www.cnblogs.com/pchmonster/p/4719559.html