成全高清视频免费观看动漫版-成全视频动漫免费高清-午夜不卡久久精品无码免费

你好，欢迎来到电脑编程技巧与维护杂志社！

杂志社简介│广告服务│读者反馈│编程社区

您的位置：技术专栏 / Web开发

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

推荐精品文章


·2024年12月目录 ·2024年11月目录 ·2024年10月目录 ·2024年9月目录 ·2024年8月目录 ·2024年7月目录 ·2024年6月目录 ·2024年5月目录 ·2024年4月目录 ·2024年3月目录 ·2024年2月目录 ·2024年1月目录 ·2023年12月目录 ·2023年11月目录

联系方式

TEL：010-82561037
Fax: 010-82561614
QQ: 100164630
Mail：gaojian@comprg.com.cn

友情链接

中国软件网│软件开发网│