asp中向文本框输出数据原样式的函数
更新时间：2007年03月29日 00:00:00 作者：
从数据库输出信息时有转换函数，可以将回车空格按原样式输出。这段代码可向文本框原样输出代码。
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
复制代码 代码如下:
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
相关文章
如何把ASP编写成DLL...2007-09-09
asp操作access提示无法从指定的数据表中删除原因分析及解决
asp操作access时提示无法从指定的数据表中删除这个问题相当的棘手，于是搜索整理了一些实用的解决方法，感兴趣的你可以参考下本文2013-03-03
asp下删除Access数词库中的空记录的sql语句...2007-04-04
这篇文章主要介绍了ASP.NET Core整合Zipkin链路跟踪,本文给大家介绍的非常详细，对大家的学习或工作具有一定的参考借鉴价值，需要的朋友可以参考下2020-09-09
这个函数多用来后台表单设置，然后生成asp配置文件的函数，这样不用每次都读取数据库，提高程序速度2008-04-04
这里成功的关键在于：水印图片一定要是png格式的，且在去掉背景的情况下效果也一样。2010-09-09
Coolite 中前台获取 GridPanel 当前选择行值的代码
掌握获取 GridPanel 当前行的各个字段值的方法，需要的朋友可以参考下。2010-06-06
一段ASP 伪静态代码...2007-03-03
ASP高级技巧精选集...2007-01-01
运行asp是提示Microsoft OLE DB Provider for ODBC Drivers (0x80004005)[Microsoft][ODBC Microsoft Access Driver] 找不到文件 '(未知的)'。2009-12-12
最新评论