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")
对实例做出判断，如果组件没有安装成功， ......
<%
Do_Url = "http://"
'Do_Url = Do_Url&Request.ServerVariables("SERVER_NAME")&"/shownews.asp" 主目录
aa=Request.Servervariables("url") '虚拟目录
bb=InstrRev(aa,"/")
cc=left(aa,bb)
Do_Url = Do_Url&Request.ServerVariables("HTTP_HOST")&cc&"index.asp"
call SaveFile("index.h ......
'**************************************************
'函数名：FSOFileRead
'作 用：使用FSO读取文件内容的函数
'参 数：filename ----文件名称
'返回值：文件内容
'************** ......
ASP是微软公司实现动态网页的一种技术。
ASP支持一些脚本语言，主要以VBScript为主。
与ASP相比较，你还可以选择另一中开放源代码编程语言——PHP，PHP可以运行在多种操作系统下，其中包括Linux和windows。
虽然ASP是一种不错的技术，但从长远考虑我相信PHP在将来的技术领域里会有不凡的表现。
我认为有七� ......
