VBScript过程

• 被封装在Sub和End Sub语句之中的一系列语句

• 不具有返回值

• 可带参数

我们的SubFunction.asp中展示了Sub的用法，代码如下：

<%Sub mySub(Str1, Str2)
  Response.Write(Str1 & Str2)End SubmySub "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 FunctionResponse.Write("4的阶乘是 " & Factorial(4))%>

示例代码下载

ASP_SubFunction.RAR