asp正则验证数字、字符、邮箱、电话号等格式

以下是引用片段：
Function validate(ByVal str,ByVal number)
Dim temp,reg
Set reg = new regexp
reg.ignorecase=true
reg.global=true
Select Case CStr(number)
' 英文+空格
Case "0" temp = "^[a-zA-Z ]+$"
' 数字+横杠
Case "1" temp = "^[0-9\-]+$"
' 半角数字
Case "2" temp = "^\d+$"
' 邮箱地址
Case "3" temp = "^\w+([-+.]\w+)*@\w+([-.]\w+)*\.\w+([-.]\w+)*$"
' 手机号码格式
Case "4" temp = "^(((13[0-9]{1})|159|153)+\d{8})$"
' 电话号码格式1
Case "5" temp = "^(([0\+]\d{2,3}-)?(0\d{2,3})-)?(\d{7,8})(-(\d{3,}))?$"
' 电话号码格式2
Case "6" temp = "^(([0\+]\d{2,3}-)?(0\d{2,3}))?(\d{7,8})(-(\d{3,}))?$"
Case Else temp = number
End Select
reg.pattern = temp
validate = reg.test(Trim(str))
Set reg = Nothing
End Function

上一篇: 使用正则表达的几个ASP验证函数
下一篇: Php关于session_start() 相关问题
文章来自: 本站原创
引用通告: 查看所有引用 | 我要引用此文章
Tags: asp 正则表达式
相关日志: