ASP用户注册检测函数 （使用正则表达式）
这是以前写网站时自己写的一个类
用户注册时除了在前台用JS检测外
真正入库时也是要检测的 因为安全问题
假如你写网站只是在JS那里检测提交的数据
不在后台再做最后把关的话 人家浏览你网站只要禁用JS
就可以提交非法数据 干他们想干的事
<%
'K8 ASP正则表达式
'正则网名数字大小写字母（6-10）
Function CheckName（NetName）
Set re = new RegExp
re.Pattern = "^[A-Za-z0-9]{6,10}$"
'进行匹配测试
If re.Test（NetName） Then
CheckResult=true
Else
CheckResult=false
End If
CheckName=CheckResult
end function
'Response.write Cstr（CheckName（"234234"））
'正则检测邮箱
Function CheckEmail（Email）
Set re = new RegExp '创建RegExp实例
re.Pattern = "^\w+（[-+.]\w+）*@\w+（[-.]\w+）*\.\w+（[-.]\w+）*$"
'Email = "crack8@qq.com"
'进行匹配测试，并写出是否匹配成功
If re.Test（Email） Then
''Response.write（"匹配成功！"）
CheckResult=true
Else
CheckResult=false
''Response.write（"匹配成功！"）
End If
CheckEmail=CheckResult
end function
'调用函数测试
'Response.write CheckEmail（"crack8@qq.com"）
'检测手机和电话号码
Function CheckPhone（phone）
if CheckMobile（phone）=true or CheckTelPhone（phone）=true then
CheckPhone=true
else
CheckPhone=false
end if
end function
'正则手机号码
Function CheckMobile（Mobile）
Set re = new RegExp
re.Pattern = "^（（（13[0-9]{1}）|147|150|151|152|153|156|158|159|182|186|188|189）+\d{8}）$"
'进行匹配测试
If re.Test（Mobile） Then
CheckResult=true
Else
CheckResult=false
End If
CheckMobile=CheckResult
end function
'调用函数测试
'Response.write CheckMobile（"15080805555"）
'正则电话号码
Function CheckTelPhone（TelPhone）
Set re = new RegExp
Set re2 = new RegExp
re.Pattern = "^（（[0\+]\d{2,3}-）？（0\d{2,3}）-）？（\d{7,8}）（-（\d{3,}））？$" '电话格式1
re2.Pattern = "^（（[0\+]\d{2,3}-）？（0\d{2,3}））？（\d{7,8}）（-（\d{3,}））？$" '电话格式2
'进行匹配测试
If re.Test（TelPhone） or re2.Test（TelPhone） Then
CheckResult=true
Else
CheckResult=false
End If
CheckTelPhone=CheckResult
end function
'调用函数测试
'Response.write CheckTelPhone（"0771-25645648"）
'正则身分证
Function CheckIdentity（Identity）
Set re = new RegExp
re.Pattern = "^[\d]{6}（19|20）*[\d]{2}（（0[1-9]）|（11|12））（[012][\d]|（30|31））[\d]{3}[xX\d]*$"
If re.Test（Identity） Then
CheckResult=true
Else
CheckResult=false
End If
CheckIdentity=CheckResult
end function
'调用函数测试
'Response.write CheckIdentity（"452231198809265546"）
'正则检测QQ号码
Function CheckQQnum（QQnum）
Set re = new RegExp
re.Pattern = "^\d{5,10}$"
If re.Test（QQnum） Then
CheckResult=true
Else
CheckResult=false
End If
CheckQQnum=CheckResult
end function
'调用函数测试
'Response.write CheckQQnum（"10000"）
'正则检测真实姓名
Function CheckTrueName（TrueName）
Set re = new RegExp
re.Pattern = "^[\u0391-\uFFE5]+$"
If re.Test（TrueName） Then
CheckResult=true
Else
CheckResult=false
End If
CheckTrueName=CheckResult
end function
'调用函数测试
'Response.write CheckTrueName（"韦小宝"）
%>