28,404
社区成员
发帖
与我相关
我的任务
分享
Dim Re
Set Re = new RegExp
Re.IgnoreCase = True
Re.Global = True
Re.Pattern="[\d]{6}(19|20)*[\d]{2}((0[1-9])|(11|12))([012][\d]|(30|31))[\d]{3}[xX\d]*"
If Re.IsMatch(txtCardId) = False Then ' 这里怎么写??????
labMess = "身份证号码不正确"
End If
Set Re = Nothing
Function RegExpTest(patrn, strng)
Dim regEx, retVal ' 建立变量。
Set regEx = New RegExp ' 建立正则表达式。
regEx.Pattern = patrn ' 设置模式。
regEx.IgnoreCase = False ' 设置是否区分大小写。
retVal = regEx.Test(strng) ' 执行搜索测试。
If retVal Then
RegExpTest = "找到一个或多个匹配。"
Else
RegExpTest = "未找到匹配。"
End If
End Function
response.write RegExpTest("\d+", "abcd1234")
response.write RegExpTest("\d+", "abcd")