针对VBScript中的值传递和引用传递，作了一个小实验，出了问题

21st_centry_fox 2005-05-18 08:40:31

代码帖在下面
发现所谓的引用传递似乎并不管用。
代码：

<html>
<title>值传递和引用传递</title>
<%
girl1="virgin"
girl2="virgin"
%>

<%
Sub SetMessByVal(ByVal mess)
mess="raped"
Response.write(mess)
End Sub

Sub SetMessByRef(ByRef mess2)
mess2="raped"
Response.write(mess2)
End Sub
%>
<head>
<p align=center>
VBScript中值传递和引用传递的演示
</p>
</head>
<body bgcolor=beige>
<table border=2 align=center>
<TH align=center>不幸事件</TH>
<tr>
<td>
传递方式
</td>
<td>
施暴前
</td>
<td>
施暴后
</td>
</th>
<tr>
<TD>值传递
<td>
<%
SetMessByVal(girl1)
%>
</td>
<td>
<%
Response.write(girl1)
%>
</td>
</tr>
<tr>
<td>
引用传递
</td>
<td>
<%
SetMessByRef(girl2)
%>
</td>
<td>
<%
Response.write(girl2)
%>
</td>
</tr>
<tr></tr>
</table>
</body>
</html>

...全文

101 8 打赏收藏转发到动态举报

写回复

用AI写文章

8 条回复

切换为时间正序

请发表友善的回复…

发表回复

21st_centry_fox 2005-05-23

打赏
举报

hzw66(胡先生) ：
你好
正好我也姓胡，汗～～
上面两种都是标准格式嘛？
我的这本书上没有说呀。。。

搞不懂为什么要弄成这样～～～
VBSCRIPT太变态了

hzw66 2005-05-19

打赏
举报

看出来了吗？
必须用：
Call SetMessByRef(girl2)
或：
SetMessByRef girl2
标准格式才有作用

hzw66 2005-05-19

打赏
举报

<html>
<title>值传递和引用传递</title>
<%
girl1="virgin"
girl2="virgin"
%>

<%
Sub SetMessByVal(ByVal mess)
mess="raped"
Response.write(mess)
End Sub

Sub SetMessByRef(ByRef mess2)
mess2="raped"
Response.write(mess2)
End Sub
%>
<head>
<p align=center>
VBScript中值传递和引用传递的演示
</p>
</head>
<body bgcolor=beige>
<table border=2 align=center>
<TH align=center>不幸事件</TH>
<tr>
<td>
传递方式
</td>
<td>
施暴前
</td>
<td>
施暴后
</td>
</th>
<tr>
<TD>值传递
<td>
<%
Call SetMessByVal(girl1)
%>
</td>
<td>
<%
Response.write(girl1)
%>
</td>
</tr>
<tr>
<td>
引用传递
</td>
<td>
<%
Call SetMessByRef(girl2)
%>
</td>
<td>
<%
Response.write(girl2)
%>
</td>
</tr>
<tr></tr>
</table>
</body>
</html>

lovebanyi 2005-05-19

打赏
举报

找到解决的方法了。。楼主看我写的。
<%
kk=55

function test(byref kk)
kk=60
end function

'ss=test(kk)
'Response.write(test(kk)) 使用这两句后才可以让byref真正变得有作用了。直接运行是没有作用的
Response.write("<br>"&kk&"")
%>

lovebanyi 2005-05-19

打赏
举报

<%
kk=55
class kkkk
function test(byref ss)
ss=60
end function
end class
set mm=new kkkk
mm.test(kk)
Response.write(kk)
%>
写了个类来测试也是不行啊。
一加上 test(byref kk)就会出错。我以前一直都没有用引用传递在vbscript中