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

今天在改一套b2b的电子商务系统时，发现ASP正则，虽然用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+（（（[,0-9]+）？））？#", str）
Response.Write（strInfo）
%>

再看一例：

复制代码代码如下:
Function noHtml（str）
     Dim re
     Set re=New RegExp
     re.IgnoreCase =True
     re.Global=True
     re.Pattern="（<.*？>）"
     str=re.Replace（str,""）
     re.Pattern="（</.*？>）"
     str=re.Replace（str,""）
     noHtml=str
End Function