Functions that output data original style to text box in asp

There is a conversion function when outputting information from the database, and the carriage return space can be output in the original style. This code outputs the code as is to the text box.

The code copy is as follows:

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