让从数据保持原来的格式-小叶白龙博客

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

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

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

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

代码拷贝框

以下是引用片段：
<%
‘中文处理函数
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+" "
else
result=result+" "
end if
else
result=result+" "
end if
case chr(9) ‘处理空格符
result=result+"    "
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
%>

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

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

以下是引用片段：

<%
Function HtmlEncode(fstring)

   fstring = Replace(fstring,Chr(32)," ")
   fstring = Replace(fstring,Chr(9)," ")
   fstring = Replace(fstring,Chr(39),"'")
   fstring = Replace(fstring,Chr(10),"<br>")
   fstring = Replace(fstring,Chr(10)&Chr(10),"<p></p>")
   fstring = Replace(fstring,Chr(34),""")
   fstring = Replace(fstring,Chr(13),"")

   HtmlEncode = fstring

End Function
%>

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

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