怎么在textarea中输出文字,并且保持输入时的回车换行?

[zcchm]

请教!

[freefalcon]

str_after=replace(str_before,vbCrLf,"<br>")

[zcchm]

这样不行呀
我说的是在textarea中

[hillhero789]

我也很想知道
例如csdn这里
它能原本不动的帮我们显示我们写的东西。
请问freefalcon(心宇)：
能不能具体点？

[zhpfaff]

你在提交后把chr(13)转换成<BR>，在修改的时候再把<BR>转换成chr(13)即可

[挨踢啊挨踢]

将控件内的内容作为一个字符串，分离字符串成为独立文本行的数组，遍历数组，循环写入或读出内容。也可考虑用TextStream对象，创建一个文本文件，先写入保存，再读出（少量数据）。

[gooyan]

使用htmlencode方法，把空格和回车符换掉

[zcchm]

是str = server.htmlencode(str)

可还是不行

[wanghr100]

<textarea>...</textarea>中文章的格式（比如回车、换行等）

用<pre>....</pre>
或用
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+"<"
case ">" : result=result+">"
case chr(34) : result=result+""" 'This is the""
case "&" : result=result+"&"
case chr(13) : result=result+"<br/>"
case chr(9) : result=result+"    "
case chr(32) : result=result+" "
case else : result=result+mid(str,i,1)
end select
Next
coder=result
End Function
处理一下