asp去除所有的超級(jí)鏈接的兩種方法 替換與正則
更新時(shí)間：2007年08月08日 11:23:16 作者：
<%
'******************************
'函數(shù)：RemoveHref_A(HTMLstr)
'參數(shù)：HTMLstr，待去除鏈接的字符串
'作者：阿里西西
'日期：2007/7/12
'描述：去除字符串中所有的超級(jí)鏈接
'示例：<%=RemoveHref_A("<a href=/abc/h.html>測(cè)試</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
%>
通過(guò)正則去除字符串中所有的超級(jí)鏈接
<%
'******************************
'函數(shù)：RegRemoveHref(HTMLstr)
'參數(shù)：HTMLstr，待去除鏈接的字符串
'作者：阿里西西
'日期：2007/7/12
'描述：通過(guò)正則去除字符串中所有的超級(jí)鏈接
'示例：<%=RegRemoveHref("<a href=/abc/h.html>測(cè)試</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
%>
'******************************
'函數(shù)：RemoveHref_A(HTMLstr)
'參數(shù)：HTMLstr，待去除鏈接的字符串
'作者：阿里西西
'日期：2007/7/12
'描述：去除字符串中所有的超級(jí)鏈接
'示例：<%=RemoveHref_A("<a href=/abc/h.html>測(cè)試</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
%>
通過(guò)正則去除字符串中所有的超級(jí)鏈接
<%
'******************************
'函數(shù)：RegRemoveHref(HTMLstr)
'參數(shù)：HTMLstr，待去除鏈接的字符串
'作者：阿里西西
'日期：2007/7/12
'描述：通過(guò)正則去除字符串中所有的超級(jí)鏈接
'示例：<%=RegRemoveHref("<a href=/abc/h.html>測(cè)試</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
%>
相關(guān)文章
ASP上傳漏洞之利用CHR(0)繞過(guò)擴(kuò)展名檢測(cè)腳本
本文部分腳本具有攻擊性，僅供學(xué)習(xí)研究用，請(qǐng)用在合法合理范圍內(nèi)，對(duì)造成的損失本人不承擔(dān)責(zé)任，本人也不提供黑客攻擊技術(shù)指導(dǎo)2012-01-01
asp ajax注冊(cè)驗(yàn)證之 防止用戶名輸入空格
注冊(cè)驗(yàn)證之防止用戶名輸入空格,asp批量替換特殊字符函數(shù)代碼2009-08-08
前段時(shí)間開(kāi)始學(xué)習(xí)JSON在ASP中的使用，JSON確實(shí)比XML方便。以前在寫(xiě)程序的時(shí)候有考慮使用XML來(lái)存儲(chǔ)數(shù)據(jù)，但是一直覺(jué)得生成文檔及文檔的調(diào)用查詢等都很麻煩。2011-06-06
ASP.NET?MVC+EntityFramework圖片頭像上傳功能實(shí)現(xiàn)
這篇文章主要介紹了ASP.NET?MVC+EntityFramework圖片頭像上傳功能實(shí)現(xiàn)，本文通過(guò)實(shí)例代碼給大家介紹的非常詳細(xì)，對(duì)大家的學(xué)習(xí)或工作具有一定的參考借鑒價(jià)值,需要的朋友可以參考下2023-12-12
asp+fso在線管理圖片功能...2006-08-08
asp 批量刪除選中的多條記錄的實(shí)現(xiàn)代碼
如果需要?jiǎng)h除記錄，一條一條的刪比較耗時(shí)，所以批量刪除記錄是個(gè)不錯(cuò)的功能，原理就是利用asp數(shù)組來(lái)實(shí)現(xiàn)。2011-06-06
asp中通過(guò)addnew添加內(nèi)容后取得當(dāng)前文章的自遞增ID的方法
asp中使用addnew方法添加一條記錄后，我們經(jīng)常使用取得自遞增的ID，而使用bookmark很容易實(shí)現(xiàn)這樣的功能。2011-01-01
這篇文章給大家介紹使用asp實(shí)現(xiàn)qq在線查詢功能，涉及到的知識(shí)點(diǎn)有xmlhttp讀取騰訊網(wǎng)站相應(yīng)的html代碼獲取qq頭像。對(duì)qq在線查詢感興趣的朋友可以參考下本篇文章2015-10-10
asp兩組字符串?dāng)?shù)據(jù)比較合并相同數(shù)據(jù)
兩組字符串?dāng)?shù)據(jù)，需要比較其中相同的數(shù)據(jù)，并將其值相加并組成一個(gè)新的字符串?dāng)?shù)據(jù)2008-08-08
.NET中的6種定時(shí)器的基本用法和特點(diǎn)
.NET中至少有6種定時(shí)器,每一種定時(shí)器都有它的用途和特點(diǎn),根據(jù)定時(shí)器的應(yīng)用場(chǎng)景,可以分為UI相關(guān)的定時(shí)器和UI無(wú)關(guān)的定時(shí)器,本文將簡(jiǎn)單介紹這6種定時(shí)器的基本用法和特點(diǎn),感興趣的朋友一起看看吧2023-12-12