textarea 回车换行空格等字符存入数据库并读取

　做简单留言或评论时经常会遇到在textarea里用回车和空格做的排版，提交后格式没有保留，这是因为textarea里输入和车出现的是编码vbCrlf，页面读取数据库显示的内容必须有<br/>才可以显示换行，所以我们要做的就是在存入数据时把vbCrlf换成<br/>。
录入数据库时

str = Replace(str,vbCrlf, "<br/>" )

这样页显示的时候就有换行了

当要编辑信息时

str = Replace(str," <br/>" ,vbCrlf)

这样放到编辑的textarea上时就有换行了

写到数据库的内容,读出来时没有了空格和换行，类似问题的解答就是在写入数据库做Replace替换

<%
'----------Html转换为文本:编辑时拿来做转换
Function Html2Text(Str1)
If isNULL(Str1) Then
Html2Text=""
Exit Function
End If
Str1=Replace(Str1,"<"," <")
Str1=Replace(Str1,">",">")
Str1=Replace(Str1," <br>",VBcrlf)
Str1=Replace(Str1,""",chr(34))
Str1=Replace(Str1," "," ")
Str1=Replace(Str1,"&","&")
Html2Text=Str1
End Function
'-------------------文本转换为Html:写入数据库时使用---------------
Function Text2Html(Str1)
If isNULL(Str1) Then
Text2Html=""
Exit Function
End If
Str1=Replace(Str1,"&","&")
Str1=Replace(Str1," <","<")
Str1=Replace(Str1,">",">")
Str1=Replace(Str1,VBcrlf," <br>")
Str1=Replace(Str1,chr(34),""")
Str1=Replace(Str1,chr(9)," ")
Str1=Replace(Str1," "," ")
Text2Html=Str1
End Function
%>

输出时如果不是在文本框就不用text2html