不错呦!smile@林凯西,确保“准备文件”中的几个文件都有安装,S...您好,看了您这篇帖子觉得很有帮助。但是有个问题想请...我的修改过了怎么还被恶意注册呢 @jjjjiiii 用PJ快9年了,主要是A...PJ3啊,貌似很少有人用PJ了,现在不是WP就是z...@332347365,我当时接入时错误码没有-10...楼主,ChkValue值应为-103是什么意思呢?...大哥 你最近能看到我发的信息,请跟我联系,我有个制...
自定义可选参数的ASP函数测试
编辑:dnawo 日期:2007-02-14
一、下边是测试过程
1.设定一个带参数的函数
1.1 returnmsg()调用
错误信息:
引用内容
1.2 returnmsg("")调用
结果正确。
1.3 returnmsg(null)调用
结果正确。
1.4 returnmsg("www.mzwu.com")调用
结果正确。
2.定义两个同名参数,一个带参数一个不带参数
2.1 returnmsg()调用
结果正确。
2.2 returnmsg("www.mzwu.com")调用
结果错误:
引用内容
3.定义两个同名函数,同2,但改下顺序
3.1 returnmsg()调用
结果错误:
引用内容
3.2 returnmsg("www.mzwu.com")调用
结果正确。
二、测试结果
1.ASP不能定义可省略参数的函数,要省略的参数必须用""或null代替
2.定义两个或多个同名的函数时,ASP只认最后的一个
三、后记
定义一个新类,并在里边设置同名的方法:
结果错误:
引用内容
1.设定一个带参数的函数
复制内容到剪贴板
程序代码

<%
Function returnmsg(a)
returnmsg = ""
returnmsg = returnmsg & "参数:" & a
End Function
%>
Function returnmsg(a)
returnmsg = ""
returnmsg = returnmsg & "参数:" & a
End Function
%>
1.1 returnmsg()调用
错误信息:

Microsoft VBScript 运行时错误 错误 '800a01c2'
错误的参数个数或无效的参数属性值: 'returnmsg'
/return.asp,行6
错误的参数个数或无效的参数属性值: 'returnmsg'
/return.asp,行6
1.2 returnmsg("")调用
结果正确。
1.3 returnmsg(null)调用
结果正确。
1.4 returnmsg("www.mzwu.com")调用
结果正确。
2.定义两个同名参数,一个带参数一个不带参数
复制内容到剪贴板
程序代码

<%
Function returnmsg(a)
returnmsg = ""
returnmsg = returnmsg & "参数:" & a
End Function
Function returnmsg()
returnmsg = ""
returnmsg = returnmsg & "无参数"
End Function
%>
Function returnmsg(a)
returnmsg = ""
returnmsg = returnmsg & "参数:" & a
End Function
Function returnmsg()
returnmsg = ""
returnmsg = returnmsg & "无参数"
End Function
%>
2.1 returnmsg()调用
结果正确。
2.2 returnmsg("www.mzwu.com")调用
结果错误:

Microsoft VBScript 运行时错误 错误 '800a01c2'
错误的参数个数或无效的参数属性值: 'returnmsg'
/return.asp,行10
错误的参数个数或无效的参数属性值: 'returnmsg'
/return.asp,行10
3.定义两个同名函数,同2,但改下顺序
复制内容到剪贴板
程序代码

<%
Function returnmsg()
returnmsg = ""
returnmsg = returnmsg & "无参数"
End Function
Function returnmsg(a)
returnmsg = ""
returnmsg = returnmsg & "参数:" & a
End Function
%>
Function returnmsg()
returnmsg = ""
returnmsg = returnmsg & "无参数"
End Function
Function returnmsg(a)
returnmsg = ""
returnmsg = returnmsg & "参数:" & a
End Function
%>
3.1 returnmsg()调用
结果错误:

Microsoft VBScript 运行时错误 错误 '800a01c2'
错误的参数个数或无效的参数属性值: 'returnmsg'
/return.asp,行10
错误的参数个数或无效的参数属性值: 'returnmsg'
/return.asp,行10
3.2 returnmsg("www.mzwu.com")调用
结果正确。
二、测试结果
1.ASP不能定义可省略参数的函数,要省略的参数必须用""或null代替
2.定义两个或多个同名的函数时,ASP只认最后的一个
三、后记
定义一个新类,并在里边设置同名的方法:
复制内容到剪贴板
程序代码

<%
Class NewClass
Public Function returnmsg()
returnmsg = ""
returnmsg = returnmsg & "无参数"
End Function
Public Function returnmsg(a)
returnmsg = ""
returnmsg = returnmsg & "参数:" & a
End Function
End Class
Dim MyClass
Set MyClass = New NewClass
Response.write MyClass.returnmsg()
Response.write MyClass.returnmsg("2")
%>
Class NewClass
Public Function returnmsg()
returnmsg = ""
returnmsg = returnmsg & "无参数"
End Function
Public Function returnmsg(a)
returnmsg = ""
returnmsg = returnmsg & "参数:" & a
End Function
End Class
Dim MyClass
Set MyClass = New NewClass
Response.write MyClass.returnmsg()
Response.write MyClass.returnmsg("2")
%>
结果错误:

Microsoft VBScript 编译器错误 错误 '800a0411'
名称重定义
/return.asp,行7
Public Function returnmsg(a)
名称重定义
/return.asp,行7
Public Function returnmsg(a)
评论: 1 | 引用: 0 | 查看次数: 6691
发表评论
请登录后再发表评论!