用正则表达式编写验证函数

 
<%
Function F_RegExp2(Expression, IfStr)
    Dim RegExp1, Matches
    Set ObjExp1 = New RegExp   '建立正则表达式
    ObjExp1.Pattern = Expression  '设置模式
    ObjExp1.IgnoreCase = True  '设置是否区分字符大小写
    ObjExp1.Global = True      '设置全局可用性
    Matches = ObjExp1.Test(IfStr)
    F_RegExp2 = Matches
End Function
function checkrealname(str)  '验证真实姓名
 checkrealname=F_RegExp2("^[/u4e00-/u9fa5]+$",trim(str))  
end function
function checkemail(str)   '验证email
 checkemail=F_RegExp2("/w+([-+.']/w+)*@/w+([-.]/w+)*/./w+([-.]/w+)*",trim(str))
end function
function checktel(str)   '验证电话，手机号码
 checktel=F_RegExp2("(^[0-9]{3,4}/-[0-9]{3,8}$)|(^[0-9]{3,8}$)|(^/([0-9]{3,4}/)[0-9]{3,8}$)|(^0{0,1}13[0-9]{9}$)",trim(str))
end function
function checkqq(str)   '验证qq
 checkqq=F_RegExp2("[1-9][0-9]{4,}",trim(str))
end function
function checkurl(str)  '验证url
 checkurl=F_RegExp2("^[a-zA-z]+://(/w+(-/w+)*)(/.(/w+(-/w+)*))*(/?/S*)?$",trim(str))
end function
function checkidcard(str)  '验证身份证号码，15，18 末尾x
 checkidcard=F_RegExp2("^(/d{15}|/d{17}[/dx])$",trim(str))
end function

%>
 常用正则表达式

"^-[0-9]*[1-9][0-9]*$"　　//负整数   

"^-?//d+$"　　　　//整数   

"^//d+(//.//d+)?$"　　//非负浮点数（正浮点数 + 0）   

"^(([0-9]+//.[0-9]*[1-9][0-9]*)|([0-9]*[1-9][0-9]*//.[0-9]+)|([0-9]*[1-9][0-9]*))$"　　//正浮点数   

"^((-//d+(//.//d+)?)|(0+(//.0+)?))$"　　//非正浮点数（负浮点数 + 0）   

"^(-(([0-9]+//.[0-9]*[1-9][0-9]*)|([0-9]*[1-9][0-9]*//.[0-9]+)|([0-9]*[1-9][0-9]*)))$"　　//负浮点数   

"^(-?//d+)(//.//d+)?$"　　//浮点数   

"^[A-Za-z]+$"　　//由26个英文字母组成的字符串   

"^[A-Z]+$"　　//由26个英文字母的大写组成的字符串   

"^[a-z]+$"　　//由26个英文字母的小写组成的字符串   

"^[A-Za-z0-9]+$"　　//由数字和26个英文字母组成的字符串   

"^//w+$"　　//由数字、26个英文字母或者下划线组成的字符串   

"^[//w-]+(//.[//w-]+)*@[//w-]+(//.[//w-]+)+$"　　　　//email地址   

"^[a-zA-z]+://(//w+(-//w+)*)(//.(//w+(-//w+)*))*(//?//S*)?$"　　//url    

应用实例

用户名：
/^[a-zA-Z]{1}([a-zA-Z0-9]|[_]){4,19}$/

无符号字符串：
/^[^/s]{1}[^-_/~!@#/$%/^&/*/./(/)/[/]/{/}<>/?/////'/"]*$/

Email：
/^/w+([-+.]/w+)*@/w+([-.]//w+)*/./w+([-.]/w+)*$/

电话号码：
/^((/(/d{3}/))|(/d{3}/-))?(/(0/d{2,3}/)|0/d{2,3}-)?[1-9]/d{6,7}$/

手机号码：
/^((/(/d{3}/))|(/d{3}/-))?13/d{9}$/

URL：
/^http:////[A-Za-z0-9]+/.[A-Za-z0-9]+[//=/?%/-&_~`@[/]/':+!]*([^<>/"/"])*$/

身份证：
/^/d{15}(/d{2}[A-Za-z0-9])?$/

货币：
/^/d+(/./d+)?$/

数字：
/^/d+$/

邮政编码：
/^[1-9]/d{5}$/

QQ：
/^[1-9]/d{4,8}$/

整数：
/^[-/+]?/d+$/

实数：
/^[-/+]?/d+(/./d+)?$/

英文：
/^[A-Za-z]+$/

中文
/^[/u0391-/uFFE5]+$/

密码（必须含有大写字母、小写字母、标点、数字中的至少两种。呵呵，这个比较变态吧～）
/^(([A-Z]*|[a-z]*|/d*|[-_/~!@#/$%/^&/*/./(/)/[/]/{/}<>/?/////'/"]*)|.{0,5})$|/s/