当前位置：主页 > 查看内容

asp下去除超链接的函数

发布时间：2021-06-12 00:00| 有 位朋友查看

简介：复制代码 代码如下: % Function ReplaceUrl2(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……

复制代码 代码如下:

<%
Function ReplaceUrl2(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>","")
ReplaceUrl2 = HTMLstr
Next
End Function
%>


正则表达式去除链接：

复制代码 代码如下:

Function RegRemoveHref(HTMLstr)
Set ra = New RegExp
ra.IgnoreCase = True
ra.Global = True
ra.Pattern = "<A[^>]+>(.+?)<\/A>"
RegRemoveHref = ra.replace(HTMLstr,"$1")
END Function


原文链接：https://m.jb51.net/article/17613.htm
本站部分内容转载于网络，版权归原作者所有，转载之目的在于传播更多优秀技术内容，如有侵权请联系QQ/微信：153890879删除，谢谢！
上一篇：ASP 根据用户权限判断显示的列标题 下一篇：asp datediff 时间相减

推荐图文

  • 周排行
  • 月排行
  • 总排行

随机推荐