服务器之家:专注于服务器技术及软件下载分享
分类导航

PHP教程|ASP.NET教程|JAVA教程|ASP教程|

服务器之家 - 编程语言 - ASP教程 - asp去除所有的超级链接的两种方法 替换与正则

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

2019-10-13 12:43阿里西西 ASP教程

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. %> 

延伸 · 阅读

精彩推荐