除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

%>