文件名称: ByVal.asp ByRef.asp 具体代码: <%Sub TestMain()Dim A : A=5Call TestBy(A)Response.write AEnd SubSub TestBy(ByVal T)T=T+1End subcall TestMain()%> <%Sub TestMain()Dim A : A=5Call TestBy(A)Response.write AEnd SubSub TestBy(ByRef T)T=T+1End subcall TestMain()%> 运行结果: 5 6 结 论: