主页 > 知识库 > asp下去除超链接的函数

asp下去除超链接的函数

热门标签:科大讯飞语音识别系统 团购网站 阿里云 Mysql连接数设置 银行业务 电子围栏 服务器配置 Linux服务器

复制代码 代码如下:

%
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

您可能感兴趣的文章:
  • js 取消超链接的方法小结

标签:衡水 江苏 萍乡 大理 广元 衢州 蚌埠 枣庄

巨人网络通讯声明:本文标题《asp下去除超链接的函数》,本文关键词  ;如发现本文内容存在版权问题,烦请提供相关信息告之我们,我们将及时沟通与处理。本站内容系统采集于网络,涉及言论、版权与本站无关。
  • 相关文章
  • 收缩
    • 微信客服
    • 微信二维码
    • 电话咨询

    • 400-1100-266