去除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

%>

以上就是本文的全部內容，希望本文的內容對大家的學習或者工作能帶來一定的幫助，同時也希望多多支持錯新技術頻道！