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中随机产生用户密码的代码...2007-04-04
asp下将数据库中的信息存储至XML文件中...2007-04-04
Microsoft JET Database Engine(0x80004005)未指定错误的解决方法
今天在配置iis asp运行环境的时候提示Microsoft JET Database Engine(0x80004005)未指定错误，不过最后通过如下方法解决了，这里脚本之家小编特为大家分享下，方便需要的朋友2014-06-06
ASP中SELECT下拉菜单同时获取VALUE和TEXT值的实现代码
这篇文章主要介绍了ASP中SELECT下拉菜单同时获取VALUE和TEXT值的实现代码,需要的朋友可以参考下2020-06-06
厉害的用Asp获取Dll加密新闻内容...2007-03-03
ASP读取Request.QueryString编码的函数代码
ASP读取Request.QueryString编码的函数代码，学习asp的朋友可以参考下。2011-09-09
64位Windows 2003下面配置好IIS后，运行ASP页面，如果里面有连接access数据库的代码，就会出现错误警告2009-06-06
ASP 关于动态数据显示页面得锚点...2007-09-09
有没有办法不用模板，如一个正常的htmer.asp页面，直接生成为htmer.html页面呢？当然是可以的，而且非常简单，今天就教大家在ASP中不用模板生成HTML静态页的方法2014-09-09
'此代码是在别人基础上增加的汉字功能，特此感谢，同时感谢鬼火狼烟。 '以前的图片验证码很容易被破解，所以在其基础上进行改进，生成汉字，就目前而言很难破解2008-04-04
最新评论