ASP removal of all hyperlinks in two ways to replace and regular _ application tips

<%
'******************************
' Function: removehref_a (HTMLSTR)
' Parameters: Htmlstr, string to remove link
' Author: Arisisi
' Date: 2007/7/12
' Description: Remove all hyperlinks in the string
' Example: <%=removehref_a ("<a href=/abc/h.html> test </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
%>
Remove all hyperlinks in a string by regular
<%
'******************************
' Function: Regremovehref (HTMLSTR)
' Parameters: Htmlstr, string to remove link
' Author: Arisisi
' Date: 2007/7/12
' Description: All hyperlinks in the string are removed by regular
' Example: <%=regremovehref ("<a href=/abc/h.html> test </a>")%>
'******************************
Function Regremovehref (HTMLSTR)
Set RA = New RegExp
Ra. IgnoreCase = True
Ra. Global = True
Ra. Pattern = "<a[^>]+> (. +?) <\/a> "
Regremovehref = Ra.replace (Htmlstr, "$")
End Function
%>