正则表达式验证代码（字母、数字、Email、网址、电话号码、汉字、×××号码）

<%
if request("check")<>"" then
astr=request("content")
call str(astr)
end if
function str(astr)
Ar=Cint(Asc(astr))
if(65<=Ar and Ar<=90) or (97<=Ar and Ar<=122) then
response.Write ""
else
response.write ""
end if
end function

%>

服务器端验证Email是否正确
<%
Function F_RegExp(Expression, IfStr)
Dim RegExp1, Matches
Set ObjExp = New RegExp '建立 正 则 表达 式
ObjExp.Pattern = Expression '设置模式
ObjExp.IgnoreCase = True '设置是否区分字符大小写
ObjExp.Global = True '设置全局可用性
Matches = ObjExp.Test(IfStr)
F_RegExp = Matches
End Function
function checkemail(str)
checkemail=F_RegExp("\w+([-+.']\w+)*@\w+([-.]\w+)*\.\w+([-.]\w+)*",trim(str))
end function
%>
<%
if request.form("e_mail")<>"" then
if cbool(checkemail(request.form("e_mail"))) then
response.Write("您输入的Email地址正确!")
else
response.Write("您输入的Email地址错误!")
end if
else
response.Write("您没有输入Email地址!")
end if
%>

客户端验证Email是否正确


通过 正 则 表达 式验证 电话 号码
<%
Public Function F_RegExp(Expression, IfStr)
Dim RegExp1, Matches
Set ObjExp = New RegExp '建立 正 则 表达 式
ObjExp.Pattern = Expression '设置模式
ObjExp.IgnoreCase = True '设置是否区分字符大小写
ObjExp.Global = True '设置全局可用性
Matches = ObjExp.Test(IfStr)
F_RegExp = Matches
End Function
function checktel(str)
checktel=F_RegExp("(\d{3}-)?\d{8}|(\d{4}-)(\d{7})",trim(str))
end function
%>
<%
if request.form("Tel")<>"" then
if cbool(checktel(request.form("Tel"))) then
response.Write("您输入的 电话 号码正确!")
else
response.Write("您输入的 电话 号码错误!")
end if
else
response.Write("您没有输入联系 电话!")
end if
%>

验证输入的字符串是否为汉字


验证××× 号码


客户端验证用户名和密码


验证网址是否合法


验证数量和金额