过滤超链接的正则表达式函数

Function regExReplace(sSource, replStr)  //(替换字符集，代替值)
Dim regEx, str1 
str1 = sSource 
Set regEx = New RegExp 
regEx.Pattern = "<a.*?>|</a>"
regEx.IgnoreCase = True 
regEx.Global = True 
regExReplace = regEx.Replace(str1, replStr) 
End Function 

 

dim c1
c1="<p><a href='1.html'>11111</a></p><p>2222</p> <p><a href='2.html'>3333</a></p><p>44444</p> " 
response.Write regExReplace(c1,"")