ASP用户注册检测函数 (使用正则表达式)

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("韦小宝")
%>