asp下去除超链接的函数
更新时间：2009年03月28日 00:15:27 作者：
有时候我们需要去除网页中的超链接，那么就可以使用下面的代码了
复制代码 代码如下:
<%
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函数返回引用类型代码，需要的朋友可以参考下。2010-03-03
对URL地址进行编码 优化2...2006-08-08
SWFUpload上传组件，最初由Vinterwebb.se开发，组件主体由Flash与JavaScript整合而成，主要致力解决多文件、大文件等的上传问题，组件提供了丰富的事件与接口方便web开发者调用，开发者可以通过js与css等很方便的控制样式和实现想要的上传效果。2011-03-03
ASP代码的对象化...2006-10-10
asp提示Server 对象 错误 ASP 0178 : 80070005
今天帮客户配置好服务器以后测试程序发现asp程序提示Server 对象 错误 ASP 0178 : 80070005，经测试是因为权限问题。2011-11-11
很多朋友对于asp的换行的实现，不是很懂，不懂什么情况下该使用什么样的代码，这里脚本之家简单的为大家说下，希望对大家能有所帮助。2011-01-01
将首页转成静态html页的asp文件...2007-03-03
这篇文章主要与大家分享了input中空格截段问题的解决方法，这是在项目中遇到的一个问题，将方法记录下2014-10-10
asp 采集实战代码...2007-08-08
利用ASPUPLOAD，ASPJPEG实现图片上传自动生成缩略图及加上水印
利用ASPUPLOAD，ASPJPEG实现图片上传自动生成缩略图及加上水印...2007-02-02
最新评论