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

1. <%  
2. '******************************  
3. '函数：RemoveHref_A(HTMLstr)  
4. '参数：HTMLstr，待去除链接的字符串  
5. '作者：阿里西西  
6. '日期：2007/7/12  
7. '描述：去除字符串中所有的超级链接  
8. '示例：<%=RemoveHref_A("<a href=/abc/h.html>测试</a>")%>  
9. '******************************  
10. Function RemoveHref_A(HTMLstr)  
11. Dim n,str1,str2,str3,str4  
12. HTMLstr = Lcase(HTMLstr)  
13. For n=1 to Ubound(Split(HTMLstr,"<a"))  
14. str1 = Instr(HTMLstr,"<a")  
15. str2 = Instr(str1,HTMLstr,">")  
16. HTMLstr = left(HTMLstr,str1-1)&right(HTMLstr,len(HTMLstr)-len(left(HTMLstr,str2)))  
17. HTMLstr = replace (HTMLstr,"</a>","")  
18. RemoveHref_A = HTMLstr  
19. Next  
20. End Function  
21. %>  
22. 通过正则去除字符串中所有的超级链接 
23. <%  
24. '******************************  
25. '函数：RegRemoveHref(HTMLstr)  
26. '参数：HTMLstr，待去除链接的字符串  
27. '作者：阿里西西  
28. '日期：2007/7/12  
29. '描述：通过正则去除字符串中所有的超级链接  
30. '示例：<%=RegRemoveHref("<a href=/abc/h.html>测试</a>")%>  
31. '******************************  
32. Function RegRemoveHref(HTMLstr)  
33.  Set ra = New RegExp  
34.  ra.IgnoreCase = True  
35.  ra.Global = True  
36.  ra.Pattern = "<a[^>]+>(.+?)<\/a>"  
37.  RegRemoveHref = ra.replace(HTMLstr,"$1")  
38. END Function  
39. %>