正则表达式在asp里的简单应用,验证手机号码

正则表达式在asp里的简单应用
'验证手机号码
function IsValidMobileNo(MobileNo)
    dim regEx
    set regEx = New RegExp
    regEx.Pattern = "^(130|131|132|133|134|135|136|137|138|139|159)/d{8}$"
    IsValidMobileNo=regEx.test(MobileNo)
end function

'正则表表达式验证函数 patrn-正则表达式　strng-需要验证的字符串
Function RegExpTest(patrn, strng)
    Dim regEx, retVal ' 建立变量。
    Set regEx = New RegExp ' 建立正则表达式。
    regEx.Pattern = patrn ' 设置模式。
    regEx.IgnoreCase = False ' 设置是否区分大小写。
    retVal = regEx.Test(strng) ' 执行搜索测试。
    RegExpTest = retVal '返回不尔值，不符合就返回false，符合为true
End Function