蝙蝠岛资源网

asp中Byval与Byref的区别
网络编程 2024/12/24 佚名
2 0
蝙蝠岛资源网 Design By www.hbtsch.com

最近看很多成熟的cms系统中就用ByVal

先看下面的例子

文件名称: 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 "初值：" & "&nbsp;" 
Response.Write "A1=" & A1 & "&nbsp;" 
Response.Write "B1=" & B1 & "<BR>" 
Response.Write "函数(TestValue)值：" & TestValue(A1,B1) & "<BR>" 
Response.Write "终值：" & "&nbsp;" 
Response.Write "A1=" & A1 & "&nbsp;" 
Response.Write "B1=" & B1 & "<BR><BR><BR>" 
Response.Write "初值：" & "&nbsp;" 
Response.Write "A2=" & A2 & "&nbsp;" 
Response.Write "B2=" & B2 & "<BR>" 
Response.Write "函数(TestAddress)值：" & TestAddress(A2,B2) & "<BR>" 
Response.Write "终值：" & "&nbsp;" 
Response.Write "A2=" & A2 & "&nbsp;" 
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 
%>

例如：

function makeContent(Byval contentID, Byval page, Byval isMakeHtml)

标签：
Byval,yref
蝙蝠岛资源网 Design By www.hbtsch.com
广告合作：本站广告合作请联系QQ：858582 申请时备注：广告合作（否则不回）
免责声明：本站文章均来自网站采集或用户投稿，网站不提供任何软件下载或自行开发的软件！ 如有用户或公司发现本站内容信息存在侵权行为，请邮件告知！ 858582#qq.com
蝙蝠岛资源网 Design By www.hbtsch.com

评论“asp中Byval与Byref的区别”

暂无asp中Byval与Byref的区别的评论...
www.hbtsch.com 蝙蝠岛资源网
139,976影音资源
144,792福利资源
21,817软件资源
631,128技术资源
一句话新闻
一口气升级7个大模型SaaS应用，百度智能云：突出一个“开箱即用” - 2024/12/24

这一波大模型产业落地浪潮里，不少企业其实处在 “干瞪眼“的状态。

一种情况是，很多大模型产品看得见却摸不着，在台上一个个遥遥领先——今天Sora技精四座，明天英伟达的机器人又赢得满堂彩，可是到了台下一问：啥时候能用上啊？答曰：遥遥无期。

另一种情况是，企业想用上大模型，却又难免瞻前顾后——既要考虑场景融合，又得兼顾安全性，还要考虑打通现有系统，再加上各种部署成本和繁琐的采购流程……最后只能拂袖：罢了，再等等吧。

稳了！魔兽国服回归的3条重磅消息！官宣时间再确认！

昨天有一位朋友在大神群里分享，自己亚服账号被封号之后居然弹出了国服的封号信息对话框。

这里面让他访问的是一个国服的战网网址，com.cn和后面的zh都非常明白地表明这就是国服战网。

而他在复制这个网址并且进行登录之后，确实是网易的网址，也就是我们熟悉的停服之后国服发布的暴雪游戏产品运营到期开放退款的说明。这是一件比较奇怪的事情，因为以前都没有出现这样的情况，现在突然提示跳转到国服战网的网址，是不是说明了简体中文客户端已经开始进行更新了呢？

更新日志

友情链接

杰晶网络 DDR爱好者之家 桃源资源网 杰网资源 富贵资源网 南强小屋 铁雪资源网 幽灵资源网 万梅资源网 狼山资源网 白云岛资源网 昆仑资源网 相思资源网 明霞山资源网 内蒙古资源网 黑松山资源网 茶园资源网 饿虎岗资源网 大旗谷资源网 常春岛资源网 岱庙资源网 兴国资源网 快活林资源网 蝙蝠岛资源网 帝王谷资源网 白云城资源网 伏龙阁资源网 清风细雨楼 天枫庄资源网 圆月山庄资源网 无争山庄资源网 神水资源网 移花宫资源网 神剑山庄资源网 无为清净楼资源网 金钱帮资源网 丐帮资源网 华山资源网 极乐门资源网 小李飞刀资源网 凤求凰客栈 风云阁资源网 金狮镖局 鸳鸯亭资源网 千金楼资源网 更多链接
蝙蝠岛资源网 Design By www.hbtsch.com