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