asp中向文本框输出数据原样式的函数

Function _f_textarea_html_encode(_f_t_h_e_str) 
If Not IsNull(_f_t_h_e_str) And _f_t_h_e_str <> "" Then 
_f_t_h_e_str = Replace(_f_t_h_e_str, ">", ">") 
_f_t_h_e_str = Replace(_f_t_h_e_str, "<", "<") 
_f_t_h_e_str = Replace(_f_t_h_e_str, CHR(13), "")  
_f_t_h_e_str = Replace(_f_t_h_e_str, CHR(10) & CHR(10), vbCrLf) 
_f_t_h_e_str = Replace(_f_t_h_e_str, CHR(10), vbCrLf) 
_f_textarea_html_encode = _f_t_h_e_str 
End If 
End Function