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,}))?$"
   

条用方法：

if validate(tel,4) or validate(tel,5) or validate(tel,6) then
else
response.Write("")
response.End()
end if