asp去除所有的超级链接的两种方法 替换与正则

<%

'******************************

'函数：RemoveHref_A(HTMLstr)

'参数：HTMLstr，待去除链接的字符串

'作者：阿里西西

'日期：2007/7/12

'描述：去除字符串中所有的超级链接

'示例：<%=RemoveHref_A("<ahref=/abc/h.html>测试</a>")%>

'******************************

FunctionRemoveHref_A(HTMLstr)

Dimn,str1,str2,str3,str4

HTMLstr=Lcase(HTMLstr)

Forn=1toUbound(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

EndFunction

%>

通过正则去除字符串中所有的超级链接

<%

'******************************

'函数：RegRemoveHref(HTMLstr)

'参数：HTMLstr，待去除链接的字符串

'作者：阿里西西

'日期：2007/7/12

'描述：通过正则去除字符串中所有的超级链接

'示例：<%=RegRemoveHref("<ahref=/abc/h.html>测试</a>")%>

'******************************

FunctionRegRemoveHref(HTMLstr)

Setra=NewRegExp

ra.IgnoreCase=True

ra.Global=True

ra.Pattern="<a[^>]+>(.+?)<//a>"

RegRemoveHref=ra.replace(HTMLstr,"$1")

ENDFunction

%>