asp下去除超链接的函数
来源:asp之家 时间:2011-03-29 11:11: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,len(HTMLstr)-len(left(HTMLstr,str2)))
HTMLstr = replace (HTMLstr,"</a>","")
ReplaceUrl2 = HTMLstr
Next
End Function
%>
标签:asp,超链接
0
投稿
猜你喜欢
VS2008 和.NET 3.5 Beta2常见问题的解决方案
2007-09-23 12:33:00
了解WEB页面工具语言XML(三)支持工具
2008-09-05 17:18:00
ASP实例:即时显示当前页面浏览人数
2008-04-19 22:02:00
javascript 动态插入技术
2009-12-14 20:50:00
ASP伪静态页简单教程
2007-09-28 14:35:00
用ASP实现在线压缩与解压缩
2007-09-29 12:13:00
悟道WEB标准:统一思想,遵循标准
2009-10-11 16:38:00
js求一组数中的最大数
2008-04-10 12:00:00
用Dreamweaver设计限时自动关闭网页
2009-07-10 13:13:00
Oracle SQL性能优化系列学习二
2010-07-23 13:23:00
jQuery 让人恋恋不舍的秘密
2010-01-20 10:09:00
ASP关于SQL插入数据后获得当前ID
2010-01-24 19:55:00
Mozilla专有JavaScript扩展之一(__noSuchMethod__)
2009-03-01 12:45:00
Dreamweaver量身打造Wordpress留言板(三)
2009-12-13 18:45:00
我的“Orcas初览”讲座
2007-09-23 12:53:00
asp实现*号隐藏IP地址
2008-08-10 18:51:00
ASP获取当前页面URL地址(带参数)的方法
2010-01-14 19:40:00
浅谈ASP自动采集程序及入库
2007-08-17 11:25:00
asp中字符编码转换的10个函数[荐]
2007-11-11 10:32:00
SQL Server错误代码大全及解释(留着备用)
2012-07-11 16:17:03