<% '****************************** '函数：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 %> [b]通过正则去除字符串中所有的超级链接[/b] <% '****************************** '函数：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 %>