轻松解决表单中文本域中换行的问题

表单中的文本域textarea. 把用户输入的数据存到数据库中, 然后在页面显示的时候, 换行都被取消了. 怎么保留用户输入的换行?

解决方法是读出同样显示到文本框中的话, 回车和空格可以保留, 但是你要显示在网页中, 只有通过替换, 把回车换成<br> ,空格换成&nbsp;等方法解决.

代码如下:

'将文本框输入内容网页输入格式化
function TOHtmlCode(Str)
if not isnull(Str) then
TOHtmlCode = Replace(Str, CHR(13), "")
TOHtmlCode = Replace(TOHtmlCode, CHR(10) & CHR(10), "</P><P>")
TOHtmlCode = Replace(TOHtmlCode, CHR(10), "<BR>")
TOHtmlCode = Replace(TOHtmlCode, " ", "&nbsp;")
end if
end function