ASP常用正则表达式验证函数集

'正则表表达式验证函数，t为要选择的正则表达式，str为要验证的字符串,返回布尔值
Function RegExpTest(t, str)
Dim arr(9),patrn,regEx, retVal ' 建立变量
arr(0)="^[\w-]+(\.[\w-]+)*@[\w-]+(\.[\w-]+)+$" '邮箱表达式
arr(1)="^\w+$" '匹配有字母，数字，下滑线组成的字符串
arr(2)="^[\x00-\xff]+$" '匹配所有单字节长度的字符组成的字符串
arr(3)="^[^\x00-\xff]+$" '匹配所有双字节长度的字符组成的字符串
arr(4)="[^\x00-\xff]+"   '字符串是否含有双字节字
arr(5)="^\d+$" '验证整数数字
arr(6)="^\d+(\.{1}\d+)?$" '数字
arr(7)="^19\d{2}-((0[1-9])|(1[0-2]))-((0[1-9])|([1-2][0-9])|(3([0|1])))$" '匹配日期(1900-1999)
arr(8)="^20\d{2}-((0[1-9])|(1[0-2]))-((0[1-9])|([1-2][0-9])|(3([0|1])))$" '匹配日期(2000-2999)
arr(9)="^(1|2\d{3}-((0[1-9])|(1[0-2]))-((0[1-9])|([1-2][0-9])|(3([0|1]))))( (\d{2}):(\d{2}):(\d{2}))?$" '匹配日期时间
if(isnumeric(t)=false or t="")then
   RegExpTest="false err"
   exit Function
elseif(t<0 or t>9)then
   RegExpTest="false err"
   exit Function
end if
patrn=arr(t)
Set regEx = New RegExp ' 建立正则表达式
regEx.Pattern = patrn ' 设置模式
regEx.IgnoreCase = False ' 设置是否区分大小写
retVal = regEx.Test(str) ' 执行搜索测试
RegExpTest = retVal '返回不尔值，不符合就返回false，符合为true
End Function