asp去除html的函数代码分析附实例说明
时间:2023-07-02 20:09:18
下面这段代码,不会替换ld<sad中间的<,所以内容仍然是正常的
<%
function nohtml(str)
dim re
Set re=new RegExp
re.IgnoreCase =true
re.Global=True
re.Pattern="(\<.[^\<]*\>)"
str=re.replace(str," ")
re.Pattern="(\<\/[^\<]*\>)"
str=re.replace(str," ")
str=replace(str," ","")
str=replace(str," ","")
nohtml=str
set re=nothing
end function
str="<title>sadjksjdlasp之家欢迎你sajdljsald<sadsadsad<br>" '这里是测试
response.write nohtml(str)
%>
结果为:
sadjksjdlasp之家欢迎你sajdljsald<sadsadsad
不过下面的代码是不问的,直接看到<就忘后面无限制的匹配
<%
Function dropHtml(Byval strHTML)
Dim objRegExp, Match, Matches
Set objRegExp = New Regexp
objRegExp.IgnoreCase = True
objRegExp.Global = True
'取闭合的<>
objRegExp.Pattern = "<.+?>"
'进行匹配
Set Matches = objRegExp.Execute(strHTML)
' 遍历匹配集合,并替换掉匹配的项目
For Each Match in Matches
strHtml=Replace(strHTML,Match.Value,"")
Next
dropHtml=strHTML
Set objRegExp = Nothing
End Function
str="<title>sadjksjdlasp之家欢迎你sajdljsald<sadsadsad<br>" '这里是测试
response.write dropHtml(str)
%>
结果为:
sadjksjdlasp之家欢迎你sajdljsald
标签:去除html
0
投稿
猜你喜欢
Ajax改造:使用Ajax和jQuery改进现有站点
2010-04-02 12:50:00
用户不需要信息快餐
2009-02-25 12:34:00
FrontPage2003 中网页布局功能的应用
2007-11-18 14:43:00
日式酒店电梯面板设计
2008-06-08 13:23:00
Web设计师的出路问题
2009-06-08 13:07:00
css布局自适应高度方法
2007-05-11 17:03:00
关于浮动的前世今生
2009-08-19 18:51:00
web标准:CSS clear的属性及使用方法
2008-10-27 13:31:00
使用SSIS创建同步数据库数据任务的方法
2012-11-30 19:53:44
swfupload上传使用代码说明ASP版
2011-11-27 09:34:32
Oracle 外连接实现代码
2009-08-08 23:08:00
深入透析样式表滤镜(下)
2011-06-14 09:49:19
CSS布局之浮动(二)三列浮动
2008-08-19 12:47:00
根据Dreamweaver里的ToolTip代码改进的提示框
2008-11-27 12:19:00
Mysql导入TXT文件
2012-01-05 19:01:10
Linux安装卸载Mysql数据库
2011-01-29 16:45:00
如何动态在文档中加入<script></script>写入大段js?
2010-07-02 13:17:00
css实现图片倒影效果
2007-11-05 18:29:00
Ajax缓存解决办法
2008-10-22 13:42:00
网页制作,改变你的思维方式
2007-09-29 13:12:00