文本框提交内容换行的问题

冰封シ绝恋

请问大家,怎么让提交的内容在文本框中实现换行,最好是不用编辑器.

我在百度里面找过,第一中解答是:
<%
function CHTMLEncode(fString)
fString = Replace(fString, CHR(13), "")
fString = Replace(fString, CHR(10), "<BR> ")
CHTMLEncode= fString
end function
%>
调用时候使用
<%=CHTMLEncode(rs("字段内容"))%>

第二种是:
StrVar=Replace(StrVar,chr(13),"<br/>")
StrVar=Replace(StrVar,chr(10),"<br/>")

两种都不是蛮好,例如提交的资料为:

jfkdsjfk
fsdjfkl

fjdsklfjlk

fjsdklfjksdlj
则它在文本框中就变成了:
jfkdsjfk
fsdjfkl
fjdsklfjlk
fjsdklfjksdlj
而且如果再次提交文本框（修改页面用到的），它又变成在一行，请问怎么能解决我这问题？

斌仔

看完了这么强的文章，我想说点什么，但是又不知道说什么好，想来想去只想

newman

【加油！金顺】在奥斯卡上一连拿了11个奖项的好帖

顺其自然

难道就没人会吗？
继续等待................................................

︶ㄣlоve_

在线等待大家的回复，谢谢！

べ.べ凡士林

谁有没简单一点的编辑器，越简单越好的，我不需要插入图片，超连接，图片上传之类的，我下载了一个ewebeditor的，里面好象不能简化．

瘋子愛老婆

<%
Function coder(str)
Dim result,L,i
If IsNull(str) Then : coder="" : Exit Function : End If
L=Len(str) : result=""
For i = 1 to L
select case mid(str,i,1)
case "<" : result=result+"&lt;"
case ">" : result=result+"&gt;"
case chr(34) : result=result+"&quot;"
case "&" : result=result+"&amp;"
case chr(13) : result=result+"<br>"
case chr(9) : result=result+"&nbsp; &nbsp; "
case chr(32) : result=result+"&nbsp;"
case else : result=result+mid(str,i,1)
end select
Next
coder=result
End Function
%>


这个我用这还可以
但是 "'" 还是需要自己转换下

ミつン戀ン

网上找的另一中方法：

<%
Function HTML2Txt(HTMLString)
If IsNull(HTMLString) Then Exit Function
HTMLString = Replace(HTMLString, "&lt;", "<")
HTMLString = Replace(HTMLString, "&gt;", ">")
HTMLString = Replace(HTMLString, "&#39;", Chr(39)) '单引号
HTMLString = Replace(HTMLString, "&quot;", Chr(34)) '双引号
HTMLString = Replace(HTMLString, "&nbsp;", Chr(32)) '空格
'HTMLString = Replace(HTMLString, "", Chr(13)) '换行
HTMLString = Replace(HTMLString, "<br>", Chr(10)) '回车

If Err.Number Then
Err.Clear()
HTML2Txt = HTMLString
Exit Function
End If
HTML2Txt = HTMLString
End Function
%>

运行是提示：

Microsoft VBScript 编译器错误 错误 '800a03ea'
语法错误
/new20070415/chinacoat/detail.asp，行 357
Function HTML2Txt(HTMLString)
^
仔细看了看，好象也没什么错误