asp读取数据库内容如何让它以原格式显示？

[Abingdz]

asp读取数据库内容如何让它以原格式显示？
如空格，换行？
在线积求！

[dh20156]

写入时转换，如：chr(13) -> <br>,chr(32) ->  

[wangwm]

使用该函数转换：
function htmlEncode(str)
dim tmp

if not IsNull(str) then
tmp = Replace(str,"<","<")
tmp = Replace(tmp,">",">")
tmp = Replace(tmp,chr(34),""")
tmp = Replace(tmp,chr(13) & Chr(10),"<br>")
tmp = Replace(tmp," ","  ")
else
tmp = null
end if

htmlEncode = tmp
end function

[随缘而聚]

Function chgTextArea(strVal)
if trim(strVal)<>"" then
strVal=replace(strVal," "," ")
strVal=replace(strVal,vbcrlf,"<br>")
strVal=replace(strVal,"　","  ")
chgTextArea=strVal
else
chgTextArea=" "
end if
end Function