展开全部
如果你会用正则表达式的话,很简单
不会用的话,就只能用ASC码来决断了
下面给你正则表达式的用法
Function isPass(strng,ErrMsg)
Dim regEx,RegExpTest
Set regEx = New RegExp ' 建立正则表达式
regEx.Pattern = ""^\w+$"" ' 这个就是只能输入字母数字和下划线的正则表达式
regEx.IgnoreCase = False ' 设置是否区分大小写
RegExpTest= regEx.Test(strng) ' 执行搜索测试
Set regEx = Nothing
If not RegExpTest then
Dim Msg
Msg=ErrMsg
response.Write "<script language ='javascript'>"
response.Write "alert('"&Msg&"');"
response.Write "history.back();"
response.Write "</script>"
response.End()
exit Function
End if
End Function
调用方法是 response.write ispass(request.from("你的TEXT的NAME"),"你的错误提示信息")
不会用的话,就只能用ASC码来决断了
下面给你正则表达式的用法
Function isPass(strng,ErrMsg)
Dim regEx,RegExpTest
Set regEx = New RegExp ' 建立正则表达式
regEx.Pattern = ""^\w+$"" ' 这个就是只能输入字母数字和下划线的正则表达式
regEx.IgnoreCase = False ' 设置是否区分大小写
RegExpTest= regEx.Test(strng) ' 执行搜索测试
Set regEx = Nothing
If not RegExpTest then
Dim Msg
Msg=ErrMsg
response.Write "<script language ='javascript'>"
response.Write "alert('"&Msg&"');"
response.Write "history.back();"
response.Write "</script>"
response.End()
exit Function
End if
End Function
调用方法是 response.write ispass(request.from("你的TEXT的NAME"),"你的错误提示信息")
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询