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

%>

（编辑：银川站长网）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!