VBScript过程
- 被封装在Sub和End Sub语句之中的一系列语句
- 不具有返回值
- 可带参数
我们的SubFunction.asp中展示了Sub的用法，代码如下：
<%
Sub mySub(Str1, Str2)
Response.Write(Str1 & Str2)
End Sub
mySub "Hello,", "World<br>"
Call mySub("Hello,", "World<br>")
%>
VBScript函数
- 被封装在Function和End Function语句之中的一系列语句
- 具有返回值，通过向函数名赋值的方式返回值
- 可带参数，如果没有参数，必须带有空括号()
我们的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))
%>