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
%>

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