从数据库输出信息时有转换函数，可以将回车空格按原样式输出。这段代码可向文本框原样输出代码。
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(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
End If
End Function
向文本框输出数据的函数
原创文章如转载，请注明：转载自悠悠博客 [ http://www.ajaxstu.com/ ]
相关文章:
- onsubmit="return false;"(2007-10-25 4:0:0)
- 限制TextArea区的文字输入数量(2007-9-26 6:30:36)
- 判断checkbox是否至少有选择一项(2007-9-12 8:42:1)
- HTML元素 - select(2007-9-6 6:16:28)
- HTML元素 - textarea(2007-8-21 2:27:35)
- ASP表单与用户输入区域(2007-8-7 1:27:35)
- 可编辑的SELECT(2007-7-5 9:14:19)
- 简单的表单验证(后台验证)(2007-7-3 4:27:19)
- ASP连动下拉列表从数据库读取(2007-6-20 1:45:55)
- HTML元素 - input type=hidden(2007-6-15 1:57:14)
◎欢迎参与讨论，请在这里发表您的看法、交流您的观点。
