asp去除所有的超级链接的两种方法 替换与正则

<%
'******************************
'函数：removehref_a(htmlstr)
'参数：htmlstr，待去除链接的字符串
'作者：阿里西西
'日期：2007/7/12
'描述：去除字符串中所有的超级链接
'示例：<%=removehref_a("<a href=/abc/h.html>测试</a>")%>
'******************************
function removehref_a(htmlstr)
dim n,str1,str2,str3,str4
htmlstr = lcase(htmlstr)
for n=1 to ubound(split(htmlstr,"<a"))
str1 = instr(htmlstr,"<a")
str2 = instr(str1,htmlstr,">")
htmlstr = left(htmlstr,str1-1)&right(htmlstr,len(htmlstr)-len(left(htmlstr,str2)))
htmlstr = replace (htmlstr,"</a>","")
removehref_a = htmlstr
next
end function
%>
通过正则去除字符串中所有的超级链接
<%
'******************************
'函数：regremovehref(htmlstr)
'参数：htmlstr，待去除链接的字符串
'作者：阿里西西
'日期：2007/7/12
'描述：通过正则去除字符串中所有的超级链接
'示例：<%=regremovehref("<a href=/abc/h.html>测试</a>")%>
'******************************
function regremovehref(htmlstr)
 set ra = new regexp
 ra.ignorecase = true
 ra.global = true
 ra.pattern = "<a[^>]+>(.+?)<\/a>"
 regremovehref = ra.replace(htmlstr,"$1")
end function
%>