從數據庫輸出信息時有轉換函數，可以將回車空格按原樣式輸出。這段代碼可向文本框原樣輸出代碼。
複製代碼代碼如下:
Functioncc_f_textarea_html_encode(cc_f_t_h_e_str)
IfNotIsNull(cc_f_t_h_e_str)Andcc_f_t_h_e_str<>""Then
cc_f_t_h_e_str=Replace(cc_f_t_h_e_str,">",">")
cc_f_t_h_e_str=Replace(cc_f_t_h_e_str,"<","<")
cc_f_t_h_e_str=Replace(cc_f_t_h_e_str,CHR(13),"")
cc_f_t_h_e_str=Replace(cc_f_t_h_e_str,CHR(10)&CHR(10),vbCrLf)
cc_f_t_h_e_str=Replace(cc_f_t_h_e_str,CHR(10),vbCrLf)
cc_f_textarea_html_encode=cc_f_t_h_e_str
EndIf
EndFunction