如何使用asp去掉字符串中的超链接呢

源代码网整理以下
<%
Function regExReplace(sSource,patrn, replStr) 
Dim regEx, str1 
str1 = sSource 
Set regEx = New RegExp 
regEx.Pattern = patrn 
regEx.IgnoreCase = True 
regEx.Global = True 
regExReplace = regEx.Replace(str1, replStr) 
End Function 

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