asp下去除超鏈接的函數(shù)
更新時間：2009年03月28日 00:15:27 作者：
有時候我們需要去除網(wǎng)頁中的超鏈接，那么就可以使用下面的代碼了
復(fù)制代碼 代碼如下:
<%
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
%>
正則表達(dá)式去除鏈接：
復(fù)制代碼 代碼如下:
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函數(shù)返回引用類型代碼，需要的朋友可以參考下。2010-03-03
對URL地址進(jìn)行編碼 優(yōu)化2...2006-08-08
SWFUpload上傳組件，最初由Vinterwebb.se開發(fā)，組件主體由Flash與JavaScript整合而成，主要致力解決多文件、大文件等的上傳問題，組件提供了豐富的事件與接口方便web開發(fā)者調(diào)用，開發(fā)者可以通過js與css等很方便的控制樣式和實現(xiàn)想要的上傳效果。2011-03-03
ASP代碼的對象化...2006-10-10
asp提示Server 對象 錯誤 ASP 0178 : 80070005
今天幫客戶配置好服務(wù)器以后測試程序發(fā)現(xiàn)asp程序提示Server 對象 錯誤 ASP 0178 : 80070005，經(jīng)測試是因為權(quán)限問題。2011-11-11
很多朋友對于asp的換行的實現(xiàn)，不是很懂，不懂什么情況下該使用什么樣的代碼，這里腳本之家簡單的為大家說下，希望對大家能有所幫助。2011-01-01
將首頁轉(zhuǎn)成靜態(tài)html頁的asp文件
將首頁轉(zhuǎn)成靜態(tài)html頁的asp文件...2007-03-03
這篇文章主要與大家分享了input中空格截段問題的解決方法，這是在項目中遇到的一個問題，將方法記錄下2014-10-10
asp 采集實戰(zhàn)代碼...2007-08-08
利用ASPUPLOAD，ASPJPEG實現(xiàn)圖片上傳自動生成縮略圖及加上水印
利用ASPUPLOAD，ASPJPEG實現(xiàn)圖片上傳自動生成縮略圖及加上水印...2007-02-02