作家
登录

asp去除所有的超级链接的两种方法 替换与正则

作者: 来源:www.28hudong.com 2013-03-30 08:38:55 阅读 我要评论

<% '****************************** '函数: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文档参考集-----------------------*/ *-->作者:草履虫 *-->时间:2007-4.28---2007-4.30(原来是自己编写的手册,现在发在这里) *-->联系:caolvchong@gmail.com *-->文档功能: 1.复习了ASP,>>>详细阅读


本文标题:asp去除所有的超级链接的两种方法 替换与正则

地址:http://www.17bianji.com/kaifa2/ASP/32516.html

关键词: 探索发现

乐购科技部分新闻及文章转载自互联网,供读者交流和学习,若有涉及作者版权等问题请及时与我们联系,以便更正、删除或按规定办理。感谢所有提供资讯的网站,欢迎各类媒体与乐购科技进行文章共享合作。

网友点评
自媒体专栏

评论

热度

精彩导读
栏目ID=71的表不存在(操作类型=0)