在存进去的时候,把CHR(13)转换成《BR》就行了msg=request("msg")    
msg=server.HTMLEncode(msg)    
msg=Replace(msg," "," ")    
msg=Replace(msg,chr(13)&chr(10),"<br>") 这样写进数据库,显示的时候,直接显示就行了,