<%

function shownew(str,patrn,strRepl)
Dim regEx
Set regEx = New RegExp
regEx.IgnoreCase = True
regEx.Global = True
regEx.Pattern = patrn
shownew = regEx.Replace(str, strRepl)
end function
Response.write shownew("12345sdf32","(\d+)","<b>$1</b>")
' 函数用于替换指定的字符串
%>

<%
Function RegExpTest(patrn, strng)
Dim regEx, Match, Matches ' 建立变量。
Set regEx = New RegExp ' 建立正则表达式。
regEx.Pattern = patrn ' 设置模式。
regEx.IgnoreCase = True ' 设置是否区分大小写。
regEx.Global = True ' 设置全局替换。
Set Matches = regEx.Execute(strng) ' 执行搜索。
For Each Match in Matches ' 遍历 Matches 集合。
RetStr = RetStr & "Match " & I & " found at position "
RetStr = RetStr & Match.FirstIndex & ". Match Value is "'
RetStr = RetStr & Match.Value & "'." & vbCRLF
Next
RegExpTest = RetStr
End Function
Response.write RegExpTest("(\d{10,20}.(jpg|gif))","244234452345234534125.jpgdsfi>?oi93205920123123534643626.gif")
' 函数用于匹配指定的字符串
%>