asp中Byval与Byref的区别

文件名称:

ByVal.asp

ByRef.asp

具体代码:

<%
Sub TestMain()
Dim A : A=5
Call TestBy(A)
Response.write A
End Sub
Sub TestBy(ByVal T)
T=T+1
End sub
call TestMain()
%>

<%
Sub TestMain()
Dim A : A=5
Call TestBy(A)
Response.write A
End Sub
Sub TestBy(ByRef T)
T=T+1
End sub
call TestMain()
%>

运行结果:

5

6

结 论:

注意:子程序TestBy(ByVal T)中T变量声明方式是ByVal

运行结果子程序没有影响到A的值

注意:子程序TestBy(ByRef T)中T变量的声明方式是ByRef

运行结果A的值通过子程序发生了改变

　　看完了，上面的比较就知道说明意思了吧。

1、引用参数（ref）在可以作为引用参数在函数成员调用中传递之前，必须已明确赋值，而输出参数（out）在可以作为输出参数在函数成员调用中传递之前不一定要明确赋值，在该函数成员正常返回前都必须已明确赋值。
2、在函数内部，引用参数（ref）被视为初始已赋值，输出参数（out）被视为初始未赋值。
3、默认地，C#中的所有参数都是值传递。只有在参数的修饰符中明确包含out或ref，才是引用传递。但是需要知道的是，当参数的类型是引用类型时，你传递的是一个对象的引用而不是实际的对象。
实例：
复制代码 代码如下:
sub Add1(ByVal no as int32)
no=no+100
end sub

sub Add2(ByRef no as int32)
no=no+100
end sub

private sub button1_click(sender as object,e as eventargs)handles button1.click
dim a as int32
a=100
Add1(a)
msgbox (a的值为： & a) 示：a的值为100
Add2(a)
msgbox (a的值为： & a) 示：a的值为200,因为Add2中的参数no为ByRef,即
地址传递，因此在Add2中对no进行修改后，将会导致
参数a的值也被修改。
End Sub

ByVal是传递值源数据不会被修改，你可以把这个值当作自己的局部变量来使用；ByRef是传递地址，源数据可能被修改，你对这个变量的操作将对你传入的那个变量产生影响，就像指针的感觉。

在ASP编程中，经常需要自己编写一些函数(或过程)来实现某些特定的功能，这时往往需要向函数(或过程)传递相应的参数
在函数(或过程)中进行数据处理，即有可能需要保留或改变参数的值，下面有相关范例
用下面的函数(TestAddress)就可以使一个函数多个返回值成为可能(一个函数返回值，多个参数改变后的值)
1、ByVal传值：一种将参数值而不是将地址传递给过程的方式，这就使过程访问到变量的复本。结果，过程不可改变变量的真正值。
2、ByRef传值：一种将参数地址而不是将值传递给过程的方式，这就使过程访问到实际的变量。结果，过程可改变变量的真正值。除非另作说明，否则按地址传递参数。
3、系统默认的是ByRef传值。
例子：
复制代码 代码如下:
<SCRIPT LANGUAGE=vbScript>
dim a
a=0
document.write a=0
document.write <br/>sub change(byref ar)<br/>
change a
document.write a
a=0
document.write <br/>sub change2(ByVal ar)<br/>
change2 a
document.write a
a=0
document.write <br/>sub change3( ar)<br/>
change3 a
document.write a
a=0
document.write <br/>function change4(byref ar)<br/>
change4 a
document.write a
a=0
document.write <br/>function change5(ByVal ar)<br/>
change5 a
document.write a
a=0
document.write <br/>function change6( ar)<br/>
change6 a
document.write a
a=0
sub change(byref ar)
ar=111
end sub
sub change2(ByVal ar)
ar=222
end sub
sub change3( ar)
ar=333
end sub
function change4(byref ar)
ar=444
end function
function change5(ByVal ar)
ar=555
end function
function change6( ar)
ar=666
end function
</SCRIPT>

=======================
结果：
a=0
sub change(byref ar)
111
sub change2(ByVal ar)
0
sub change3( ar)
333
function change4(byref ar)
444
function change5(ByVal ar)
0
function change6( ar)
666
说明vbs默认是byRef，这点和VB一样， 按地址。

范例：
<%@LANGUAGE=VBSCRIPT%>
<%
Option Explicit
===================================================================
参数传递
1.值传递参数 (Call By Value)
Function TestValue(ByVal A,ByVal B)
函数内参数 A、B 改变 不影响 函数的外部变量

2.指针参数 (Call By Address)
Function TestAddress(ByRef A,Byref B)
函数内参数 A、B 改变 影响到 函数的外部变量

说明：
1. 参数可以是数字、字符、数组、对象等VBSCRIPT语言所支持的大部分类型
2. 函数返回值的类型也可以是数字、字符、数组、对象等VBSCRIPT语言所支持的大部分类型
3. 过程调用参数方法与函数类似
===================================================================
Dim A1,B1
Dim A2,B2
Function TestValue(ByVal A,ByVal B)
A = A + 1
B = B + 1
TestValue = A + B
End Function
Function TestAddress(ByRef A,Byref B)
A = A + 1
B = B + 1
TestAddress = A + B
End Function
A1 = 11
B1 = 33
A2 = 11
B2 = 33
Response.Write 初值： &
Response.Write A1= & A1 &
Response.Write B1= & B1 & <BR>
Response.Write 函数(TestValue)值： & TestValue(A1,B1) & <BR>
Response.Write 终值： &
Response.Write A1= & A1 &
Response.Write B1= & B1 & <BR><BR><BR>
Response.Write 初值： &
Response.Write A2= & A2 &
Response.Write B2= & B2 & <BR>
Response.Write 函数(TestAddress)值： & TestAddress(A2,B2) & <BR>
Response.Write 终值： &
Response.Write A2= & A2 &
Response.Write B2= & B2
======================
相似过程
======================
Sub Test_Value(ByVal A,ByVal B)
A = A + 1
B = B + 1
End Sub
Sub Test_Address(ByRef A,Byref B)
A = A + 1
B = B + 1
End Sub
类似，传递数组、对象（或者在函数中改变其值、属性）
对象直接把对象名作为参数即可
数组，把数组名称作为参数
redim aryTest(2,2)
dim intNum
function Ary_Test(ByRef A)
Ary_Test = Ubound(Ary_Test,2)
end function
调用
intNum = Ary_Test(intNum) 值为 3
%>