主頁 > 知識庫 > asp去除所有的超級鏈接的兩種方法 替換與正則

asp去除所有的超級鏈接的兩種方法 替換與正則
熱門標簽：調(diào)度系統(tǒng)外呼 伊春外呼業(yè)務系統(tǒng) 電銷機器人源碼網(wǎng)盤下載 中國辦理電信400電話 福建外呼增值業(yè)務線路 河北智能外呼系統(tǒng)軟件 綿陽防封電銷卡價格 電銷機器人教育 宜賓語音外呼系統(tǒng)軟件
%
'******************************
'函數(shù)：RemoveHref_A(HTMLstr)
'參數(shù)：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
%>
通過正則去除字符串中所有的超級鏈接
%
'******************************
'函數(shù)：RegRemoveHref(HTMLstr)
'參數(shù)：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
%>

標簽：河池 銅川 優(yōu)質(zhì)小號 那曲 電商邀評 蘇州 新鄉(xiāng) 延邊

巨人網(wǎng)絡通訊聲明：本文標題《asp去除所有的超級鏈接的兩種方法 替換與正則》，本文關鍵詞  asp,去除,所,有的,超級鏈接,；如發(fā)現(xiàn)本文內(nèi)容存在版權問題，煩請?zhí)峁┫嚓P信息告之我們，我們將及時溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡，涉及言論、版權與本站無關。
  • 相關文章
  • 下面列出與本文章《asp去除所有的超級鏈接的兩種方法 替換與正則》相關的同類信息！
  • 本頁收集關于asp去除所有的超級鏈接的兩種方法 替換與正則的相關信息資訊供網(wǎng)民參考！
    • 推薦文章