<% '****************************** '函数：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

 1/2    1