如何使数据库中取出的数据保持原有格式

如何保持数据库中原有格式不变：这些问题在论坛里面几乎天天有人问~！

其实当在输入信息，然后提交信息的时候，所有内容的格式是没有变的。

只是在当提取数据库的时候，某些特殊的东西需要将它们显示出来：比如空格、比如回车等

1，先定义一个函数：主要作用是替换特殊字符代码

<％
function HTMLEncode(fString)

fString = replace(fString, ">", "&gt;")
fString = replace(fString, "<", "&lt;")
fString = Replace(fString, CHR(32), "&nbsp;")
fString = Replace(fString, CHR(13), "")
fString = Replace(fString, CHR(10) & CHR(10), "</P><P>")
fString = Replace(fString, CHR(10), "<BR>")
HTMLEncode = fString

end function
％>

2，直接调用该函数

<％=HTMLEncode(rs("content"))％>

<script language=vbs>function HTMLEncode(fString)  fString = replace(fString, ">", "&gt;")  fString = replace(fString, "<", "&lt;")  fString = Replace(fString, CHR(32), "&nbsp;")  fString = Replace(fString, CHR(13), "")  fString = Replace(fString, CHR(10) & CHR(10), "</P><P>")  fString = Replace(fString, CHR(10), "<BR>")  HTMLEncode = fStringend functionfunction output(str) out.innerHTML=HTMLEncode(str)end function</script><textarea name=phx cols=95 rows=12></textarea><br><button onclick=output(phx.value)>显示</button><div id=out style="border:1 solid red;width:500;height:300"></div>