Question

ASP sub的使用方法？

sub chkEmail(email)
set re=New RegExp
re.Pattern = "^\w+([-+.\']\w+)*@\w+([-.]\w+)*\.\w+([-.]\w+)*$"
re.Global = True
re.IgnoreCase = True
if re.test(email)=false then
response.Write("<script language=javascript>alert('电子邮箱未通过验证，请检查!');history.go(-1);</script>")
response.end
end if
end sub

那么该怎么使用，请说个例子。
怎么使用，
比如，我的表单名称是ABC，那么该怎么使用？

是这样吗？
chkEmail(trim(request.form("ABC")))

还有一个问题，
function strleach(str)'过滤非法字符函数
dim tempstr
if str="" then exit function
tempstr=replace(str,chr(34),"")' "
tempstr=replace(tempstr,chr(39),"")' '
tempstr=replace(tempstr,chr(60),"")' <
tempstr=replace(tempstr,chr(62),"")' >
tempstr=replace(tempstr,chr(37),"")' %
tempstr=replace(tempstr,chr(38),"")' &
tempstr=replace(tempstr,chr(40),"")' (
tempstr=replace(tempstr,chr(41),"")' )
tempstr=replace(tempstr,chr(59),"")' ;
tempstr=replace(tempstr,chr(43),"")' +
tempstr=replace(tempstr,chr(45),"")' -
tempstr=replace(tempstr,chr(91),"")' [
tempstr=replace(tempstr,chr(93),"")' ]
tempstr=replace(tempstr,chr(123),"")' {
tempstr=replace(tempstr,chr(125),"")' }
strleach=tempstr
end function

这个又是该怎么使用，比如，我的表单名称是ABC，那么该怎么使用？

Answer 1

call chkEmail(email)
email变量可以是个邮件地址，这样就直接过去了，不会有任何提示。
如果不是个邮件地址。会弹出错误的

说实话，如果是后台验证，这个方法不好。

应该有返回值，通过怎么是，不通过做什么。
你可以做个修改。

Answer 2

一楼正解
直接写chkEmail("写相应的内容就行")