让从数据保持原来的格式

如何让数据从数据库里读出来能够保持录入时候的格式？
如：

欢迎来到“蓝色理想”之“经典论坛”。
在这里您可以在技术区提一些疑惑的问题，让大家帮您解答。
但请记住，不要发任何触及法律的帖子，问问题也请写明问题的具体情况！

我想这个大部份的人都在问如何让页面显示的时候该回车的时候回车，该空格的时候空格。
下面我就把解决这部份的代码贴出来大家参考：

这一段代码是君三思的代码：

代码拷贝框
<% '中文处理函数 sub ShowBody(Str) dim result dim l l=len(str) result="" dim i for i = 1 to l select case mid(str,i,1) case chr(32) '处理空格符 if i+1<=l and i-1>0 then if mid(str,i+1,1)=chr(32) or mid(str,i+1,1)=chr(9) or mid(str,i-1,1)=chr(32) or mid(str,i-1,1)=chr(9) then result=result+"&nbsp;" else result=result+" " end if else result=result+"&nbsp;" end if case chr(9) '处理空格符 result=result+"&nbsp;&nbsp;&nbsp;&nbsp;" case chr(13) '处理回车符 result=result+"<br>" case else result=result+mid(str,i,1) end select next response.write result end sub sub display(str) if not isNULL(str) then showbody str end if end sub %>
[Ctrl+A 全部选择 然后拷贝]

引用的时候可以这样引用：
       如你的代码读取出来赋于一变量：content
       则这样引用：<%=ShowBody(content)%>就可以了。

当然，现在论坛里也有一种相对于这个较简单的代码：

<% Function HtmlEncode(fstring) fstring = Replace(fstring,Chr(32),"&nbsp;") fstring = Replace(fstring,Chr(9),"&nbsp;") fstring = Replace(fstring,Chr(39),"&#39;") fstring = Replace(fstring,Chr(10),"<br>") fstring = Replace(fstring,Chr(10)&Chr(10),"<p></p>") fstring = Replace(fstring,Chr(34),"&quot;") fstring = Replace(fstring,Chr(13),"") HtmlEncode = fstring End Function %>
[Ctrl+A 全部选择 然后拷贝]

引用方法（情况如上）：<%=HtmlEncode(content)%>就可以了。

如果还有其他的代码，可以到论坛里贴出。

Copyright ＠ 2007-2012 敏韬网(敏而好学，文韬武略--MinTao.Net)（学习笔记） Inc All Rights Reserved.
闵涛 E_mail:admin@mintao.net(欢迎提供学习资源)

鄂公网安备 42011102001154号

站长：MinTao ICP备案号：鄂ICP备11006601号-18