怎样输入出原有的数据库内格式!

Question

要把回车换行的替换成在html中可用的回车效果，也就是<br>之类的

Answer 1

用在线编辑之类东西，直接将innerHTML保存下来。不过，在显示时要把回车去掉。嘿嘿，这个问题我搞了大半天。

Answer 2

用 pre 标签:
<pre>
  content
</pre>

Answer 3

<%
function htmlencode2(str)
    dim result
    dim l
    if isNULL(str) then 
       htmlencode2=""
       exit function
    end if
    l=len(str)
    result=""
dim i
for i = 1 to l
    select case mid(str,i,1)
           case "<"
                result=result+"&lt;"
           case ">"
                result=result+"&gt;"
              case chr(13)
                result=result+"<br>"
           case chr(34)
                result=result+"&quot;"
           case "&"
                result=result+"&amp;"
              case chr(32)            
                'result=result+"&nbsp;"
                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+"&nbsp;"
                   else
                      result=result+" "
                   end if
                else
                   result=result+"&nbsp;"                     
                end if
           case chr(9)
                result=result+"    "
           case else
                result=result+mid(str,i,1)
         end select
       next 
       htmlencode2=result
   end function
%>然后调用
htmlencode2(request.form("txtcontent"))