去除asp所有的超级链接的方法

asp中我们可能会添加一些超级链接，但是添加之后我们又不需要应该怎么办？现在我们去看看去除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

%>

以上就是本文的全部内容，希望本文的内容对大家的学习或者工作能带来一定的帮助，同时也希望多多支持错新技术频道！