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))
%>

示例代码下载

ASP_SubFunction.RAR