function of the original style of outputting data to text box in ASP _ Application techniques

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

Copy Code code as follows:

Function Cc_f_textarea_html_encode (CC_F_T_H_E_STR)
If not IsNull (CC_F_T_H_E_STR) and Cc_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 (a) & CHR (a), vbCrLf)
Cc_f_t_h_e_str = Replace (Cc_f_t_h_e_str, CHR (), vbCrLf)
Cc_f_textarea_html_encode = Cc_f_t_h_e_str
End If
End Function