校园春色亚洲色图_亚洲视频分类_中文字幕精品一区二区精品_麻豆一区区三区四区产品精品蜜桃

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

asp去除所有的超級鏈接的兩種方法 替換與正則
熱門標簽：調度系統外呼 伊春外呼業務系統 電銷機器人源碼網盤下載 中國辦理電信400電話 福建外呼增值業務線路 河北智能外呼系統軟件 綿陽防封電銷卡價格 電銷機器人教育 宜賓語音外呼系統軟件
%
'******************************
'函數：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
%>

標簽：河池 銅川 優質小號 那曲 電商邀評 蘇州 新鄉 延邊

巨人網絡通訊聲明：本文標題《asp去除所有的超級鏈接的兩種方法 替換與正則》，本文關鍵詞  asp,去除,所,有的,超級鏈接,；如發現本文內容存在版權問題，煩請提供相關信息告之我們，我們將及時溝通與處理。本站內容系統采集于網絡，涉及言論、版權與本站無關。
  • 相關文章
  • 下面列出與本文章《asp去除所有的超級鏈接的兩種方法 替換與正則》相關的同類信息！
  • 本頁收集關于asp去除所有的超級鏈接的兩種方法 替換與正則的相關信息資訊供網民參考！
    • 推薦文章
    主站蜘蛛池模板： 屯门区| 织金县| 镶黄旗| 娄烦县| 洛扎县| 马龙县| 辽阳县| 漳州市| 西乌| 惠安县| 伊吾县| 黔江区| 县级市| 新昌县| 同德县| 保山市| 武穴市| 辉县市| 延津县| 大关县| 射洪县| 广水市| 梁山县| 固安县| 琼结县| 资兴市| 卢龙县| 罗平县| 桐城市| 子洲县| 南丰县| 雷波县| 陇西县| 桐梓县| 邯郸市| 贵德县| 淅川县| 马关县| 连云港市| 千阳县| 惠州市|