CFSDN坚持开源创造价值，我们致力于搭建一个资源共享平台，让每一个IT人在这里找到属于你的精彩世界.

这篇CFSDN的博客文章asp下去除超链接的函数由作者收集整理，如果你对这篇文章有兴趣，记得点赞哟.

代码如下

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

最后此篇关于asp下去除超链接的函数的文章就讲到这里了,如果你想了解更多关于asp下去除超链接的函数的内容请搜索CFSDN的文章或继续浏览相关文章，希望大家以后支持我的博客！ 。