asp下常用正则表达式及字符串验证方法

 '常用正则表达式模式
const z_Pat1="^/w+$"                   '匹配有字母，数字，下滑线组成的字符串
const z_PatSW="^[/x00-/xff]+$"         '匹配所有单字节长度的字符组成的字符串
const z_PatDW="^[^/x00-/xff]+$"        '匹配所有双字节长度的字符组成的字符串
const z_PatDW2="[^/x00-/xff]+"             '字符串是否含有双字节字
const z_PatFileName1="^((/w+)(/.{1})(/w+))$"   '验证一个文件名，他是由字母，数字，下滑线组成
const z_PatDate1="^19/d{2}-((0[1-9])|(1[0-2]))-((0[1-9])|([1-2][0-9])|(3([0|1])))$"     '匹配日期(1900-1999)
const z_PatDate2="^20/d{2}-((0[1-9])|(1[0-2]))-((0[1-9])|([1-2][0-9])|(3([0|1])))$"     '匹配日期(2000-2999)
const z_PatternDateTime="^(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}))?$"  '匹配日期时间

const z_PatInt="^/d+$"                     '验证整数数字
const z_PatNum="^/d+(/.{1}/d+)?$"          '数字

'验证指定的字符串是否符合指定的模式
'利用正则表达式

 

正则表表达式验证函数 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