<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<TITLE></TITLE>
</HEAD>
<BODY><textarea id=a1 onblur="a2.value=a1.value"></textarea>
<textarea id=a2></textarea>
</BODY>
</HTML>

解决方案 »

  1.   

    <%  
    '转换回车、<、>、&、空格等格式
    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=Trim(result)
       end function
    %>
      

  2.   

    谢谢,我的意思是:
    我通过textarea输入一些内容,然后获得其内容,存入数据库,然后从数据库中读出来显示。
    内容可以显示,但是,已不是输入是的格式了。
      

  3.   

    <%
    ……
    content=Replace(rs("content"),chr(10)&chr(13),"<br>")   'rs("content")为数据库中读出内容
    Response.Write content
    %>