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

　　%>