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