Ada fungsi konversi saat mengeluarkan informasi dari database, dan ruang pengembalian carriage dapat output dalam gaya asli. Kode ini mengeluarkan kode seperti ke kotak teks.
Salinan kode adalah sebagai berikut:
Functioncc_f_textarea_html_encode (cc_f_t_h_e_str)
Ifnotisnull (cc_f_t_h_e_str) dancc_f_t_h_e_str <> "" Lalu
cc_f_t_h_e_str = ganti (cc_f_t_h_e_str, ">", ">")
cc_f_t_h_e_str = ganti (cc_f_t_h_e_str, "<", "<")
cc_f_t_h_e_str = ganti (cc_f_t_h_e_str, chr (13), "")
cc_f_t_h_e_str = ganti (cc_f_t_h_e_str, chr (10) & chr (10), vbcrlf)
cc_f_t_h_e_str = ganti (cc_f_t_h_e_str, chr (10), vbcrlf)
cc_f_textarea_html_encode = cc_f_t_h_e_str
Endif
Fungsi endfungsi