首页 / 网页编程 / ASP / 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
%>