如何保持数据库中原有格式不变：这些问题在论坛里面几乎天天有人问~！
其实当在输入信息，然后提交信息的时候，所有内容的格式是没有变的。
只是在当提取数据库的时候，某些特殊的东西需要将它们显示出来：比如空格、比如回车等
1，先定义一个函数：主要作用是替换特殊字符代码
＜%
function HTMLEncode(fString)
fString = replace(fString, "＞", ">")
fString = replace(fString, "＜", "<")
fString = Replace(fString, CHR(32), " ")
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, "＞", ">")
fString = replace(fString, "＜", "<")
fString = Replace(fString, CHR(32), " ")
fString = Replace(fString, CHR(13), "")
fString = Replace(fString, CHR(10) & CHR(10), "＜/P＞＜P＞")
fString = Replace(fString, CHR(10), "＜BR＞")
HTMLEncode = fString
end function
function 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＞
