asp屏蔽HTML代码的问题

eslion 2009-08-13 11:06:46
比如说,数据库里的代码是这样的(引号内): "    这里是文章正文,<br/>这里是第二段正文!",我要用RESPONSE.WRITE把数据库里的内容输出到屏幕,但是不需要格式的代码,如 <br/>,只要把内容按格式显示出来就行了。怎么操作?
...全文
43 点赞 收藏 4
写回复
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
number123456 2009-08-13

'去除HTML
Function RemoveHTML(strHTML)
Dim objRegExp, Match, Matches
Set objRegExp = New Regexp

objRegExp.IgnoreCase = false
objRegExp.Global = True
'
objRegExp.Pattern="(\<.[^\<]*\>)"
strHTML=objRegExp.replace(strHTML," ")
objRegExp.Pattern="(\<\/[^\<]*\>)"
strHTML=objRegExp.replace(strHTML," ")

strHTML=replace(strHTML," "," ")
strHTML=replace(strHTML,chr(32),"")
strHTML=replace(strHTML,chr(10),"")
RemoveHTML=strHTML
Set objRegExp = Nothing
End Function

去除HTML的,不知道你要的是不是这个效果,可以去掉所有的HTML代码
回复
eslion 2009-08-13
[Quote=引用楼主 eslion 的回复:]
比如说,数据库里的代码是这样的(引号内): "    这里是文章正文, <br/>这里是第二段正文!",我要用RESPONSE.WRITE把数据库里的内容输出到屏幕,但是不需要格式的代码,如  <br/>,只要把内容按格式显示出来就行了。怎么操作?
[/Quote]

这样做,不会将内容按格式输出吧!
回复
hookee 2009-08-13
s = rs("xx").value
s = Replace(s, " ", " ")
s = Replace(s, "<br/>", VBCrLf)
s = Replace(s, "<br>", VBCrLf)
Response.Write s


回复
str = Replace(str," "," ")
str = Replace(str,"<br>",vbcrlf)
回复
发动态
发帖子
ASP
创建于2007-09-28

2.8w+

社区成员

ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
申请成为版主
社区公告
暂无公告