婷婷综合国产,91蜜桃婷婷狠狠久久综合9色 ,九九九九九精品,国产综合av

主頁 > 知識庫 > 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去除所有的超級鏈接的兩種方法 替換與正則的相關信息資訊供網民參考！
    • 推薦文章
    主站蜘蛛池模板： 武宣县| 河南省| 海伦市| 贺兰县| 温宿县| 乌兰察布市| 西宁市| 宝应县| 晋城| 潼关县| 丰顺县| 喀什市| 西安市| 德惠市| 江口县| 延川县| 崇州市| 盐边县| 楚雄市| 花莲县| 广平县| 成都市| 江口县| 绵阳市| 宝兴县| 南川市| 修水县| 铜陵市| 辽宁省| 额济纳旗| 汕头市| 正镶白旗| 盖州市| 桓仁| 梅河口市| 正镶白旗| 福安市| 广汉市| 福泉市| 永宁县| 芮城县|