表单中提交回车符出错?

Question

<%  ren=request.form("ren")
    if request.form("sub")<>"" then
    neirong=replace(neirong,chr(13),"<br>")
    conn.execute "insert into quwen(neirong) values('"&neirong&"')"
    end if 
 set rs=server.createobject("adodb.recordset")
rs.open "select * from quwen",conn,1,1
      rs.movelast
 neirong=rs("neirong")  %>
   <form name="yan" method="post" action="yan.asp">  
  
        <textarea name="ren" rows="6"  cols="35">
 </textarea>      
  <input type="submit" name="sub">
</form>   <%   response.write("<script language='javascript'>") 
   response.write("document.yan.ren.value='"&neirong&"'")&vbcrlf
    response.write("</script>")   %>  哪位大虾能帮我分析一下,文本区域不换行时能正常显示,但若换了行则有错误.小弟万分感谢!!!!!!!!!!!!!!

Answer 1

<%
  neirong = Replace(neirong,"\", "\\")
  neirong = Replace(neirong,VBCrLf, "\n")
  neirong = Replace(neirong,VBCr, "\n")
  neirong = Replace(neirong,VBLf, "\n")
  neirong = Replace(neirong,"'", "\'")
  response.write(" <script language='javascript'>") 
  response.write("document.yan.ren.value='" & neirong & "'")&vbcrlf 
  response.write(" </script>")
%> 

Answer 2

你的方法要得.但 neirong=replace(neirong,chr(13)," <br>") 怎么不行呢????