婷婷综合国产,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去除所有的超級鏈接的兩種方法 替換與正則的相關信息資訊供網民參考！
    • 推薦文章
    主站蜘蛛池模板： 浑源县| 万源市| 兴国县| 水城县| 黄陵县| 镇巴县| 思茅市| 虞城县| 四平市| 丰台区| 沂南县| 怀集县| 汶上县| 新乐市| 蓬莱市| 红原县| 开鲁县| 来安县| 江源县| 疏附县| 崇阳县| 黎川县| 定结县| 乐清市| 中方县| 新丰县| 通许县| 同德县| 启东市| 武平县| 陇川县| 铅山县| 南昌市| 凌云县| 宝丰县| 雷州市| 云梦县| 西畴县| 伽师县| 山西省| 都兰县|