asp去除所有的超级链接的两种方法 替换与正则
<%
'******************************
'函数：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
%>
下一篇：没有了
热门阅读
-
石泉县召开党史学习教育动
3月15日，全县党史教育动员大会召开。市委常委、县委书记李启全出席会议并讲话。县委副书记、县长
-
石泉县首个移动式核酸检测
近日，石泉县首个移动式核酸检测方舱实验室在县中医医院投入使用，该移动式核酸检测方舱实验室使用面
-
office 2010每次打开word都
这种情况只有曾经装2007的时候不幸遇到过，当时通过卸载重装解决。但这回实在懒
-
石泉汽车出售
好消息，好消息，我们公司6.18做活动 所有低首付车型618当天下单 全部免首付，还有4年免息车型
-
中欧地理标志协定正式生效
中欧地理标志协定3月1日起生效。首批“上榜”的中欧各100个地理标志即日起受到保护，安康市石泉
-
石泉县被授予“陕西省智慧
6月11日，在第三届西北教育装备博览会期间，省教育厅为全省智慧教育示范区和智慧校园示范校授牌，
-
淘宝终于要在微信开店，是
最近传出了一个重磅消息:淘宝特价版要出微信小程序了! 媒体向淘宝特价版客服求证的时
-
古城 禹王宫图/文卢剑利禹
古城 禹王宫 图/文卢剑利 禹王宫位于陕西省安康市石泉县城(老城景区)中心，始建
最新评论
0条评论
暂无评论，欢迎您评论。