ASP中ByVal与ByRef的区别
废话不多说，贴代码：
先来看看ByVal传值：
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
Dim arr(2)
arr(0) = 0
arr(1) = 1
arr(2) = 2
Call sub1(arr)
Sub sub1(ByVal a)
a(0) = 9
a(1) = 8
a(2) = 7
Response.Write("我在sub过程中更改了值："&a(0)&","&a(1)&","&a(2))
End Sub
Response.Write("在sub过程外输出值："&arr(0)&","&arr(1)&","&arr(2))
%>
下面是输出结果：
我在sub过程中更改了值：9,8,7在sub过程外输出值：0,1,2
再来看看ByRef传值：
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
Dim arr(2)
arr(0) = 0
arr(1) = 1
arr(2) = 2
Call sub1(arr)
Sub sub1(ByRef a)
a(0) = 9
a(1) = 8
a(2) = 7
Response.Write("我在sub过程中更改了值："&a(0)&","&a(1)&","&a(2))
End Sub
Response.Write("在sub过程外输出值："&arr(0)&","&arr(1)&","&arr(2))
%>
下面是输出结果：
我在sub过程中更改了值：9,8,7在sub过程外输出值：9,8,7
下面我们来看看asp默认是以什么方式传值的
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
Dim arr(2)
arr(0) = 0
arr(1) = 1
arr(2) = 2
Call sub1(arr)
Sub sub1(ByRef a)
a(0) = 9
a(1) = 8
a(2) = 7
Response.Write("我在sub过程中更改了值："&a(0)&","&a(1)&","&a(2))
End Sub
Response.Write("在sub过程外输出值："&arr(0)&","&arr(1)&","&arr(2))
%>
输出结果：
我在sub过程中更改了值：9,8,7在sub过程外输出值：9,8,7
这说明在vbscript中默认的传值方式是ByRef
相关文档：
试验了好久，终于搞定了。
首先，必须有错误继续进行的声明On Error Resume Next
然后尝试简历jmail实例：
Dim JMail
Set JMail=Server.CreateObject("JMail.Message")
对实例做出判断，如果组件没有安装成功， ......
开发环境:VS2008
WEB服务器:IIS7.0
为何在调试时,可正常显示报表内容,可生成后,运行时,只显示报表框架,并不能正常显示报表内容.
我把浏览器所有限制选项都取消了,还是一样的问题,不知为何.正在寻找答案................... ......
软件名称：风渡科技ASP网上购物系统 v0912-26
软件大小：7069k
运行环境：ASP/Access
软件类别：电子商务
软件授权：免费
开发商家: 风渡科技
官方网站：http://www.chinammc.com
演示地址：http://demo01.chinammc.com
下载地址: http://w ......
这段代码的功能是：将一个数组打乱顺序，显示出来，让每一次显示的顺序都不一样。
<%
Dim tt
tt=Split("1,2,3,4,5,6",",")
'随机排序
leng=UBound(tt)
randomize
for ii=0 to leng-1
b=int(rnd()*leng)
temp=tt(b)
tt(b ......
ASP连接数据库的11种方法——本文总结了使用ASP链接各种数据库的方法：
1.Access数据库的DSN-less连接方法:
set adocon=Server.Createobject("adodb.connection")
adoconn.Open"Driver={Microsoft Access Driver(*.mdb)};DBQ="& _
Server.MapPath("数据库所在路径")
2.Access OLE DB连接方法� ......
