说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

如何处理备注字段的存储及显示?

编辑:说三道四文库 发布时间:2017-09-23 07:01
HTML文档下载 WORD文档下载 PDF文档下载
我程序中使用以下函数处理备注型字段
Function ChkString(str)
  str=replace(str," "," ")
  str=replace(str,Chr(10),"<br>")
  str=replace(str,Chr(13),"")
  ChkString = str
End Function

然后进行
rs.addnew
……
if Request.Form ("c_bz")<>"" then
  '**这里通过response.write输出request.form("c_bz")的效果是正确的
  rs("bz")=ChkString(Request.Form ("c_bz"))
end if
……
rs.update

但是察看数据表发现在输入的数据中空格之后或者回车之后的东东还是没有了,上述函数好像没有起到把空格替代为“&nbsp;”,把回车替代为“<br>”。保存都没有成功,不要说正确输出了。不知各位如何处理这个问题的?另外,如果输入的内容包括那种转义字符、html代码,会不会出问题?


给你一个函数,包含进去,在加入时调用
<%
function htmlencode2(str)
    dim result
    dim l
    if isNULL(str) then 
       htmlencode2=""
       exit function
    end if
    l=len(str)
    result=""
dim i
for i = 1 to l
    select case mid(str,i,1)
              case chr(13)
                result=result+"<br>"
           case chr(34)
                result=result+"&quot;"
              case chr(32)            
                'result=result+"&nbsp;"
                if i+1<=l and i-1>0 then
                   if mid(str,i+1,1)=chr(32) or mid(str,i+1,1)=chr(9) or mid(str,i-1,1)=chr(32) or mid(str,i-1,1)=chr(9)  then                       
                      result=result+"&nbsp;"
                   else
                      result=result+" "
                   end if
                else
                   result=result+"&nbsp;"                     
                end if
           case chr(9)
                result=result+"    "
           case else
                result=result+mid(str,i,1)
         end select
       next 
       htmlencode2=result
   end function
%>
<%xx=htmlencode2(request.form(""))%>
Function ChkString(str)
  str=replace(str," ","&nbsp;&nbsp;")  '两个&nbsp;&nbsp;是一个空格
  str=replace(str,vbcr,"<br>")        ’用vbcr
  ChkString = str
End Function
最好再将回复人:freezwy(网络自由人):给的函数增加禁止"<"和">"的功能,比较安全。
谢谢两位的回答。
但是如果用str=replace(str,vbcr,"<br>")的话,保存到表中字段里面的值只到<br为止。
比如我输入如下:
    1998年 获得
    硕士学位
这样再去查看表中的内容,发现该字段的值为“ 1998年&nbsp;获得<br ”,“<br>”只保存了一半,再后面就没有东西了。不知为什么?
gz
不会吧。
str=replace(str,vbcrlf,"<br>")吧        
把vbcr换成vbcrlf之后,依然老样子,我真是有点懵了,照理说这并不是什么特别复杂的问题,不知会不会有其他什么原因?会不会和Access表中字段的设置有关?
str=replace(str,chr(13)&chr(10),"<br>")

我刚试过!
text = request.form("text")  
    text = server.htmlencode(text)
    text = replace(text," ","&nbsp;")
    text = replace(text,chr(13)&chr(10),"<br>") 
    text = request.form("text")  
    text = server.htmlencode(text)
    text = replace(text," ","&nbsp;")//不需要两个&nbsp;
    text = replace(text,chr(13)&chr(10),"<br>") 
真是大意失荆州啊,原来在
if Request.Form ("c_bz")<>"" then
  '**这里通过response.write输出request.form("c_bz")的效果是正确的
  rs("bz")=ChkString(Request.Form ("c_bz"))
end if
上述代码中的request.Form("c_bz"))是获取前一表单中的隐藏字段,而我的隐藏字段中的Value后面的双引号没有加是罪魁祸首,也就是说我出错时候的代码是:
<input name="c_bz" type="hidden" value=<%=c_new_bz%>>
修改之后为:
<input name="c_bz" type="hidden" value="<%=c_new_bz%>">
                                             ^———————^———引号
以后我再也不敢偷懒了:-)
IE11中的WebGL探秘:渲染速度超Chrome 数据驱动智能:百度在计算广告学领域的技术突破 UX设计师和软件开发者,谁将是2014年的老大? 爸爸去哪儿:开发知名题材手游压力山大 多平台同步 谈IE11全新功能 高通副总裁沈劲:移动是产生变革的强大原动力 高性能、高流量Java Web站点打造的22条建议 云巅:第三代虚拟技术+搜索引擎+乐高理念打造分布式桌面云 Intel:从“芯”构建下一代数据中心 WhatsApp:50名员工,月4亿活跃用户,日160亿条消息和5亿张图片 三星Galaxy Gear智能手表失利 需改进的8个方面 IE11全新的F12开发人员工具详解 研发周报:为什么开发者担心将代码公布 Hadoop YARN的发展史与详细解析 一周消息树:Firefox OS会不会成为下一个Android PhoneGap 3.3.0发布,支持Android 4.4 KitKat 移动周报:两岸三地在线编程学习网站大搜罗 有道周枫和他的“放养”团队 看IE11如何助力AAF推动公益事业 SUSE总裁Nils:将SUSE Cloud 2.0打造成“零影响的云安装程序” Windows 8之父Steven Sinofsky:2014年科技界的十大趋势 电视盒子还没智能化?看Fan TV们怎么玩 畅游启动“必赢计划” 十亿巨资代理优质产品 数据控使用Hadoop的三种最常用方式 值得创始人学习的五大企业文化管理方式 圣诞节快乐:来自程序员们的问候 宏碁任命新CEO Jason Chen:曾任职英特尔14年、台积电8年 史上第一次越狱发布会与Evad3rs太极助手罗生门 新东方在线CTO曾明:已用Cocos2d-html5开发出150余款产品 Facebook 2013年的9个开源项目 开源力量公开课2013年度庆典:我们的开源项目 搞不董,TCP检验和为什么要引入TCP伪首部,请解释一下好吗? 我不知道怎么通过取得的ResultSet将取得的对象中的数据给显示出来,或者是显示在GRID当中。可否提供一下做法,或者代码,谢谢。 关于SYBASE数据库到SQL SERVER的问题!!! 用ARM芯片做linux嵌入式系统开发,是不是个好主意,请大家发表一下意见!高分 如何通过工具条按钮来控制DialogBar 多线程疑问 如何进行网站维护 当SARS向医疗条件较差或很差的中国内陆与农村地区蔓延的时候,那才是真正恐怖的后果! vb.net的打包问题 很小的程序,出问题~ 我遍了一个简单的ODBC实现,怎么不能通过? &&为何意? sql安全问题 在jsp中有哪个函数可以得到ping一个IP的时间,还有怎样得到从查询到得到结果所发费的时间? 谁有关于sql数据库开发的论文,题目是学生档案管理,相关的也可以。(给500) 请教思归!!asp.net中弹出对话框的问题 怎样设置权限。 很简单的一个关于在文本框中换行的问题 急求VB+sqlserver开发学生档案管理方面的论文。高分(500) 还是多表问题 只要用连续打印发票时,第一张正确,第二张就不正常,我调了不是走多了就是走少了第三张一样的。 请问,ConnectionString 属性尚未初始化? 爱上一朵有主之花,郁闷ing,请各位出出注意。 为何我没法将贴子发出去?! 爱上一朵有主之花,郁闷ing,请各位出出注意。 请问全局对象为什么先赋值为NULL? 急急急急!!急死我了!大哥们帮帮忙,打印不正确走纸问题! 硬汉对照:一位计算机大师,LISP语言的创造者之人生感悟。看者玩呗。[zt] 爱上一朵有主之花,郁闷ing,请各位出出注意。 请看这段JDBC代码 ./ 是什么意思? 如何把WEB Method指定为用GET方法传递常数? 像MSN那种有邮件时就提示的那个小窗口要怎么做? 用什么API函数可以实现big5转换为gb 关于文件上传问题,大家都使用htmlcontrols.htminputfile控件吗? 各位大虾,关于扫描仪的错误2800:0000是指什么错误?急!!! 请问如何在载入页面前,跳出一个询问用户名和密码的窗口,然后验证用户身份? MSsqlserver 意外终止服务 www服务器过一段时间就停止服务? resin 中jsp文件无法显示图片,怎么回事? 请教思归!!asp.net中弹出对话框的问题 debug命令f怎么用呀? 笔记本电池,能外挂吗?~~~~ 工具欄的顯示應算較專業的問題 寻求共同创业的伙伴! COM+组件远程调用问题 如何才能把计算稿保存下来? 急。chr 与ord的运用! 为什么当我在dreamweaver里把表格的单元格宽度设定为像素了,可当我的字符串超过它的宽度,它不换行?而是拉长我的单元格 使用delphi第三方控件出现的问题 用什么函数把int转成nvarchar 说说你对“只有把生死置之度外,才能尝到甘美的泉水”这句话的理解. 碧玉妆成一树高,万条垂下绿丝绦.季节 bmc public health 是什么杂志 你是怎么理解“你只有把生死置之度外,才能尝到甘甜的泉水”这句话的?在线急等!求解!等一小时!!!一小时后一律不采纳!!! 以点c( -4,3)为圆心的圆与直线2x+ y-5=0相离,则圆c半经r 的取值范围如上,我想要祥细的过程.不要跳过,再加一句,再遇到这种题我应该有怎样的步骤去解? 某河流自西向东运动,其南岸被流水侵蚀得更严重,为什么说该河流位于北半球 生宣和熟宣的价格差别生宣和熟宣那个更贵一些?大概的价格是多少啊.一般的就好. 以点P(-4,3)为圆心的圆与直线2x+y-5=0相离,则圆P的半径的取值范围是祝你们身体健康,万事如意 为什么北半球自西向东流的河流南岸被侵蚀 只要将生死置之度外,就能尝到甘甜的泉水的意思急用! 从2、4、6、…、30这15个偶数中,任取9个数,证明其中一定有两个数之和是34.从2、4、6、…、30这15个偶数中,任取9个数,证明其中一定有两个数之和是34.(抽屉原理) “千里黄云白日熏,北风吹雁雪纷纷”中()暗示了时间 小明的家里有3个孩子,老大叫皮皮,老二叫乐乐,请问老三叫什么?小明 三个连续偶数,其中最小数是最大数的四分之三,这三个偶数分别为()()(). “千里黄云白日曛,北风吹雁雪纷纷”所表示的情景,怎样用词语来形容呢? 一头猪的重量等于6只鸡的重量,3只鸡的重量等于4只鸭的重量,一头猪的重量等于几只鸭的重量 由1,2,3,4,5,6,7这七个数构成的七位正整数中,请问有且仅有两个偶数相邻的个数是多少谢谢了, 美国民主党政治主张最主要的特点是什么 一头猪平均有多重?成年猪比幼猪重多少 碧玉妆成一树高的下一句是什么 美国政治上实行的是一种什么体制?这一制制有何特点? 请问一亩牧草大概能养多少山羊 “你只有把生死置之度外,才能尝到甘美的泉水.”的含义是什么? 有没有"微秒"这个概念?时间里面的. 如何饲养山羊 四上语文第9课的描写冬天的词有哪些?并用某一个词语造句 在kile中while(--t);什么单位,是微秒还是~ 高中物理的核心是什么? 三个连续偶数的和比其中最小的一个偶数大22,这一个偶数中最大的一个是( )? 微秒怎么表示 高中物理最关键的是什么比如力学,电学 MnO2+4HCl(浓)===(加热)MnCl+Cl2+2H2O 反应中,产生的氯气在标准状况下的体积为11.2L.计算参加反应的HCl的物质的量,一级反应中被氧化的HCl的物质的量 “十里黄云白日曛,北风吹雁雪纷纷”是谁的诗 高中物理的重点是什么啊?! 这是苜蓿吗? 千里黄云白日曛,接下来诗句是什么 重核裂变和衰变有什么区别 “艹丿灬巛丶卩丨丬“怎么打出来的?复印别人或者有拼音打出来 鸡蛋壳有什么用处? 重核裂变和衰变的区别? 数轴上负1和负5之间隔了几个单位?(单位是什么) 千里黄云白日曛,北风吹雁雪纷纷.莫愁前路无知己,天下谁人不识君.这首诗描述了哪些景物?千里黄云白日曛,北风吹雁雪纷纷.莫愁前路无知己,天下谁人不识君.----《别董大》 高适这首诗描述 α与β衰变的主要特点及区别 数轴上最靠右的点与箭头的距离是一个单位长度吗 送别的古诗最佳答案挑别董大二首(其一) 千里黄云白日曛,北风吹雁雪纷纷.莫愁前路无知己,天下谁人 猫的天空怎么样 太阳系是超新星产生的星云孕育而来吗?那么,太阳她哥哥在哪里呢?就是中子星或者黑洞,太阳她妈妈留下的那个. 千里黄云白日曛,北风吹雁雪纷纷.莫愁前路无知己,天下谁人不识君的意思 天空之猫怎么样 力可以使物体发生( ),( ) ,( )都属于弹力 千里黄云白日曛.北风吹雁雪纷纷.莫愁前路无知己,天下谁人不知君诗人是谁? 普通的生物显微镜怎么使用斜射照明法拍出来立体的照片啊斜射照明法怎么使用?我目前只有平场物镜和目镜,还需配什么? 苜蓿草是不是又叫幸运草?吃起是酸的,又叫酸酸草?到草地上都有? 用银和铜做电极电解比如说硝酸钾 能产生银离子吗 银是阳极确实可以 问老师了 除金 铂 石墨外 一般都可以电离出离子 萤火虫发出来的光为什么又被人们称为冷光?A颜色清冷B基本上不产生热量C在温度较低的夜晚发光急,要回答原因 比喻内心空虚受伤的成语心一下子被掏空了,类似于饥肠辘辘,但饥肠辘辘是形容饿的,我要一个形容受伤的心的 美国选举是驴象之争!我是不是在猪圈里自己挑?驴和象如果管理好了,也能办好事,猪没人管会拱白菜的?美国选举是驴象之争!我们是不是在猪圈里自己挑?驴和象如果管理好了,也能办好事,猪没 将一定质量的钠与铝的混合物放入一定量的水中 固体恰好完全溶解 同时收集到气体22.4l(标况下)将一定质量的钠与铝的混合物放入一定量的水中 固体恰好完全溶解 同时收集到气体22.4l( 韩国经济实力怎样?全球排第几 美国的“驴象之争”是什么回事?两党实质上代表哪个阶级的利益 禁化武组织称叙利亚提交销毁化武初步计9月京二手住宅网签超1.2万套 市民叙问题特使将抵达叙利亚 筹备日内瓦国核心技术在手 才有\"数据主权\"我海军在西太平洋实兵演习遭外国舰机跟楼号无序车辆占道 老小区的“救命”通杭州“错时停车”推行5年难度越来越大浙商大赛昨决出总冠军 创新项目让大佬温州办公用房改革搁浅 官方表示执行有浙江副省长:希望金改把资金引到最需要北京香山红叶不红引抱怨 人多致下山索长沙机场收到危险品威胁 导致多航班延金花绽放伊斯坦布尔 彭帅谢淑薇2-0村官缘何频成大贪:占据大量资源 监管李娜“最佳赛季”绽放第二春 再夺大满李娜自评2013“最佳赛季” 感谢团国务院宽进严管激发市场活力 对监管提媒体揭胡万林江湖路:曾在新疆治死13湖南一菜农与市场保安争执后死亡 后者万人排舞展演(图)入秋刚满月 秋天已过半 清晨气温跌破创“芯”合作:海峡两岸半导体产业大咖安徽一司机竟无证驾驶十余年 高速公路浙江长兴小女孩失踪并被害 当地警方迅俄驻伊斯坦布尔总领馆附近发生枪战内蒙古妥善处置一起入境旅客猝死事件郴州破坏特大无证烟丝案 涉案价值达1甘肃省人大常委会原副主任陆武成受贿案吉林省通报22起民警违纪违法典型案件我国90%以上的乡镇设立交管站中国已建成全球最大裁判文书公开平台 辽宁营口:限制出境促使“老赖”履行法海口美兰法院集中公开审理宣判六宗贩毒杨丽莉:要在物联网的基础上创新生态环用脚步丈量色彩!潘通眼镜的好“色”之超多维戈张:一个“技术人”的脊梁vipabc青少年正式任命韩文琪为全济宁:非紧急问题,请拨12345青岛:新机场综合交通中心主体提前一月东营垦利一男子为讨600万非法拘禁他青岛中心医院建志愿基地,外国患者可享济宁嘉祥男孩李超乾,家人喊你回家,都
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘