<%
a="asdfsdghfgkhjkjkl;jk;'"
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 = "在字符串"&a&"中找到一个或多个"&patrn
Else
RegExpTest = "在字符串"&a&"中未找到"&patrn
End If
End Function
Response.Write(RegExpTest("j", a)&"<br>") '在字符串A中搜索j
Response.Write(RegExpTest("q", a)&"<br>") '在字符串A中搜索q
%>