从数据库输出信息时有转换函数，可以将回车空格按原样式输出。这段代码可向文本框原样输出代码。

复制代码 代码如下:

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