把textarea的内容写到数据库中再读出来时不能自动换行和不识别空格，该怎么样处理！

Question

把textarea的内容写到数据库中再读出来时不能自动换行和不识别空格，该怎么样处理！

Answer 1

把textarea的内容写到数据库中再读出来时不能自动换行和不识别空格，该怎么样处理！

Answer 2

<%
   dim conn   
   dim connstr
   'on error resume next
   connstr="DBQ="+server.mappath("all.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
   set conn=server.createobject("ADODB.CONNECTION")
   conn.open connstr
   function HTML(fString)
if not isnull(fString) then
fString = replace(fString, ">", "&gt;")
fString = replace(fString, "<", "&lt;")

fString = Replace(fString, CHR(32), "<I></I>&nbsp;")
fString = Replace(fString, CHR(9), "&nbsp;")
fString = Replace(fString, CHR(34), "&quot;")
fString = Replace(fString, CHR(39), "&#39;")
fString = Replace(fString, CHR(13), "")
fString = Replace(fString, CHR(10) & CHR(10), "</P><P> ")
fString = Replace(fString, CHR(10), "<BR> ")
fString = Replace(fString,"'","""")
HTML = fString
end if
end function
function REHTML(fString)
if not isnull(fString) then
fString = replace(fString, "&gt;", ">")
fString = replace(fString, "&lt;", "<")

fString = Replace(fString, "<I></I>&nbsp;", CHR(32))
fString = Replace(fString, "&nbsp;", CHR(9))
fString = Replace(fString, "&quot;", CHR(34))
fString = Replace(fString, "&#39;", CHR(39))
fString = Replace(fString, "", CHR(13))
fString = Replace(fString, "</P><P> ", CHR(10) & CHR(10))
fString = Replace(fString, "<BR> ", CHR(10))
REHTML = fString
end if
end function
%>写进数据库之前用HTML(date),取出显示时用REHTML(date)

Answer 3

<pre><% response.write("数据库中的内容") %></pre>

Answer 4

我有vbscript版，但想用javascript实现

Answer 5

我有vbscript版，但想用javascript实现