asp判断手机号码是否正确

asp判断手机号码是否正确，正则表达式判断表单输入的手机号码是否存在，以下是2017年11月份最新手机号码号段。

'正则手机号码
Function CheckMobile(Mobile)
dim re,CheckResult
Set re = new RegExp
re.Pattern = "^(((13[0-9]{1})|(18[0-9])|(14[5-9])|(17[0-8])|150|151|152|153|155|156|157|158|159|198|199)+\d{8})$"
'进行匹配测试
If re.Test(Mobile) Then
CheckResult=true
Else
CheckResult=false
End If
CheckMobile=CheckResult
end function