asp去除所有的超级链接的两种方法 替换与正则
2007-08-08 11:23
465 查看
<%
'******************************
'函数: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
%>
'******************************
'函数: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
%>
相关文章推荐
- Java去除掉HTML里面所有标签的两种方法——开源jar包和自己写正则表达式
- Asp.net打开新窗口或实现超级链接的多种方法!(转)
- PHP正则表达式替换站点关键字链接后空白的解决方法
- ASP超级链接和HTML函数正则表达式
- php正则表达式取得内容所有链接的方法
- asp 图片正则 替换,替换前检查图片是不是本地地址的方法
- 去除图像或链接黑眼圈的两种方法总结
- ASP超级链接和HTML函数正则表达式 修正版
- [导入]2006-5-7 ASP VBSCRIPT 正则表达式之 替换 URL 与 EMAIL 地址为热链接 By Stabx
- asp正则替换链接实现伪静态效果
- 如何去掉图片点击后的超级链接产生的虚框问题(两种实现方法)
- PHP正则表达式替换站点关键字链接后空白的解决方法
- asp 图片正则 替换,替换前检查图片是不是本地地址的方法
- Python通过正则表达式获取,去除(过滤)或者替换HTML标签的几种方法(本文由169it.com搜集整理)
- 2006-5-7 ASP VBSCRIPT 正则表达式之 替换 URL 与 EMAIL 地址为热链接 By Stabx
- ASP.NET 去除所有HTML标记的方法
- js替换所有的方法,js正则替换所有
- asp 图片正则 替换,替换前检查图片是不是本地地址的方法