asp下去除超鏈接的函數(shù)
更新時間：2009年03月28日 00:15:27 作者：
有時候我們需要去除網(wǎng)頁中的超鏈接，那么就可以使用下面的代碼了
復制代碼 代碼如下:
<%
Function ReplaceUrl2(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>","")
ReplaceUrl2 = HTMLstr
Next
End Function
%>
正則表達式去除鏈接：
復制代碼 代碼如下:
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代碼實現(xiàn)檢測組件是否安裝的函數(shù)...2007-08-08
這篇文章主要介紹了ASP中Global.asa文件技巧用法，Global.asa文件可以管理在ASP應用中兩個非?？量痰膶ο螅篈pplication、Session，對這方面感興趣的朋友可以參考一下2015-10-10
ASP UTF-8頁面亂碼+GB2312轉(zhuǎn)UTF-8 +生成UTF-8格式的文件(編碼)
ASP動態(tài)網(wǎng)頁下UTF-8頁面亂碼+GB2312轉(zhuǎn)UTF-8 +生成UTF-8格式的文件(編碼)2008-10-10
網(wǎng)上有不少生成縮略圖的ASP組件。若你的虛擬空間不支持注冊新組件，可能會感覺自己的網(wǎng)站失色不少。心晴不才，結(jié)合網(wǎng)上資源寫了個無組件生成縮略圖程序，僅供參考。2008-06-06
比較簡單的復制內(nèi)容到粘貼板的測試代碼2008-12-12
現(xiàn)在黑客經(jīng)常測試網(wǎng)站，一些網(wǎng)站經(jīng)常被各種注入，為程序員的成長提供了比較緊迫的環(huán)境，所以大家在寫程序的時候一定要注意網(wǎng)站安全問題2006-10-10
asp中response.write(''中文'')或者js中文亂碼問題
這篇文章主要介紹了asp中response.write('中文')或者js中文亂碼問題，有時候我們需要輸出js也會出現(xiàn)亂碼，這里給出了幾個解決方法,需要的朋友可以參考下2020-03-03
服務器常用組件...2006-09-09
有一個思路是：將一批唯一中獎碼，錄入的到數(shù)據(jù)庫，中獎時，取出來一條，做一個標記，把中獎碼告訴2008-07-07
PostHttpPage用asp是實現(xiàn)模擬登錄效果的代碼
PostHttpPage用asp是實現(xiàn)模擬登錄效果的代碼...2007-09-09