asp屏蔽HTML代码的问题

[eslion]

比如说，数据库里的代码是这样的(引号内)： "    这里是文章正文，<br/>这里是第二段正文！"，我要用RESPONSE.WRITE把数据库里的内容输出到屏幕，但是不需要格式的代码，如 <br/>,只要把内容按格式显示出来就行了。怎么操作？

[抱抱我的小猫]

str = Replace(str," "," ")
str = Replace(str,"<br>",vbcrlf)

[hookee]

s = rs("xx").value
s = Replace(s, " ", " ")
s = Replace(s, "<br/>", VBCrLf)
s = Replace(s, "<br>", VBCrLf)
Response.Write s

[eslion]

[Quote=引用楼主 eslion 的回复:]
比如说，数据库里的代码是这样的(引号内)： "    这里是文章正文， <br/>这里是第二段正文！"，我要用RESPONSE.WRITE把数据库里的内容输出到屏幕，但是不需要格式的代码，如  <br/>,只要把内容按格式显示出来就行了。怎么操作？
[/Quote]

这样做，不会将内容按格式输出吧！

[number123456]

'去除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代码