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

主頁 > 知識庫 > 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去除所有的超級鏈接的兩種方法 替換與正則的相關信息資訊供網民參考！
    • 推薦文章
    主站蜘蛛池模板： 潢川县| 辽源市| 信丰县| 广州市| 册亨县| 辽阳县| 竹溪县| 江城| 开鲁县| 济南市| 蓬莱市| 平舆县| 苍山县| 河间市| 秀山| 嘉鱼县| 锦屏县| 若羌县| 博客| 合水县| 娄烦县| 特克斯县| 军事| 梁河县| 南开区| 渭源县| 额敏县| 治多县| 三原县| 柘城县| 三亚市| 郸城县| 新昌县| 道孚县| 封丘县| 漾濞| 和林格尔县| 泰来县| 周至县| 海盐县| 都江堰市|