[asp]中的正则表达式运用代码

<%  
Function RegExpTest(patrn, strng) 
    Dim regEx, Match, Matches   " 建立变量。 
    Set regEx = New RegExp   " 建立正则表达式。 
     regEx.Pattern = patrn   " 设置模式。 
    regEx.IgnoreCase = False   " 设置是否区分字符大小写。 
    regEx.Global = True   " 设置全局可用性。 
    Set Matches = regEx.Execute(strng)   " 执行搜索。 
    For Each Match In Matches   " 遍历匹配集合。 
    On Error Resume Next 
    RetStr = RetStr & Match.Value&"|" 
    Next 
    RegExpTest = RetStr 
End Function 

 str = "我来自#5565#哈哈" 
 strInfo = RegExpTest("#\w+(\((\b[,0-9]+\b)?\))?#", str) 
 Response.Write(strInfo) 
%>