asp下去除超链接的函数

<%
function replaceurl2(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>","")
replaceurl2 = htmlstr
next
end function
%>

正则表达式去除链接：

function regremovehref(htmlstr)
set ra = new regexp
ra.ignorecase = true
ra.global = true
ra.pattern = "<a[^>]+>(.+?)<\/a>"
regremovehref = ra.replace(htmlstr,"$1")
end function