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

%>