西安网站建设ASP使用正则表达式检测用户注册函数

12942013-01-31

西安网站建设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("韦小宝")


%>

通过本文您对西安网站建设有了进一步了解,本公司温馨提醒:找西安做网站公司,请选择手续齐全、业务精、服务好的正规公司。

工商网上亮照

版权所有:西安点墨网络科技有限公司 信息备案编号: 陕ICP备11004160号-1

客户服务电话:029-89640155 18991365125

公司地址:西安市雁塔区朱雀大街紫郡长安F3

Sitemap 网站地图 手机版

办公电话:029-89640155

服务热线:18991365125

客服信箱:vip@dianmo.cc

846461336327

西安点墨网络科技有限公司

版权所有:西安点墨网络科技有限公司 信息备案编号: 陕ICP备11004160号-1