ASP中函数调用对参数的影响

在ASP编程中，经常需要自己编写一些函数(或过程)来实现某些特定的功能，这时往往需要向函数(或过程)传递相应的参数
在函数(或过程)中进行数据处理，即有可能需要保留或改变参数的值，下面有相关范例
用下面的函数(TestAddress)就可以使一个函数多个返回值成为可能(一个函数返回值，多个参数改变后的值)

范例：

1@LANGUAGE="VBSCRIPT"

 1   
 2Option Explicit   
 3  
 4'===================================================================   
 5' 参数传递   
 6' 1.值传递参数 (Call By Value)   
 7' Function TestValue(ByVal A,ByVal B)   
 8' 函数内参数 A、B 改变 不影响 函数的外部变量   
 9'   
10' 2.指针参数 (Call By Address)   
11' Function TestAddress(ByRef A,Byref B)   
12' 函数内参数 A、B 改变 影响到 函数的外部变量   
13'   
14' 说明：   
15' 1. 参数可以是数字、字符、数组、对象等VBSCRIPT语言所支持的大部分类型   
16' 2. 函数返回值的类型也可以是数字、字符、数组、对象等VBSCRIPT语言所支持的大部分类型   
17' 3. 过程调用参数方法与函数类似   
18'===================================================================   
19Dim A1,B1   
20Dim A2,B2   
21  
22Function TestValue(ByVal A,ByVal B)   
23  
24A = A + 1   
25B = B + 1   
26TestValue = A + B   
27  
28End Function   
29  
30Function TestAddress(ByRef A,Byref B)   
31  
32A = A + 1   
33B = B + 1   
34TestAddress = A + B   
35  
36End Function   
37  
38A1 = 11   
39B1 = 33   
40A2 = 11   
41B2 = 33   
42  
43Response.Write "初值：" & " "   
44Response.Write "A1=" & A1 & " "   
45Response.Write "B1=" & B1 & "

1"   
2Response.Write "函数(TestValue)值：" & TestValue(A1,B1) & "

1"   
2Response.Write "终值：" & " "   
3Response.Write "A1=" & A1 & " "   
4Response.Write "B1=" & B1 & "

1"   
2  
3Response.Write "初值：" & " "   
4Response.Write "A2=" & A2 & " "   
5Response.Write "B2=" & B2 & "

1"   
2Response.Write "函数(TestAddress)值：" & TestAddress(A2,B2) & "

 1"   
 2Response.Write "终值：" & " "   
 3Response.Write "A2=" & A2 & " "   
 4Response.Write "B2=" & B2   
 5  
 6'======================   
 7' 相似过程   
 8'======================   
 9Sub Test_Value(ByVal A,ByVal B)   
10  
11A = A + 1   
12B = B + 1   
13  
14End Sub   
15  
16Sub Test_Address(ByRef A,Byref B)   
17  
18A = A + 1   
19B = B + 1   
20  
21End Sub   
22