[代码]TextArea中显示回车换行

<textarea name="messages" cols="90" rows="30" id="messages"><%
while not chat.eof
response.Write(chat("messagedate")&":"&chat("statevalue")&"说："&chat("linkname")&" "&chat("message")&vbCrlf)
chat.movenext
wend%>
</textarea>