'正则表达式验证函数
Function regExBase(pat,str)
regExBase=false
Dim regEx,Match
Set regEx=New RegExp
regEx.Pattern=pat
regEx.IgnoreCase=True
Set Match=regEx.Execute(str)
if Match.Count>0 then regExBase=true
End Function
Function LenNum(mStr)
Dim regEx
Set regEx = New RegExp
regEx.Pattern = "[/x00-/xff]"
regEx.IgnoreCase = True
regEx.Global = True
LenNum = Len(regEx.Replace(mStr,"aa"))
End Function
'验证是否为ID
Function IsID(s)
IsID=regExBase("/d{1,6}",s)
End Function
'验证是否为数字
Function IsNum(s)
IsNum=regExBase("/d+",s)
End Function
'验证是否为安全的字符串
Function CheckStr(s,l)
Dim c
CheckStr=false
if regExBase("^[^%'""///s]{1,"&l&"}$",s) then
CheckStr=true
end if
End Function