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

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

编辑:说三道四文库 发布时间:2017-03-28 02:52
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%>">
                                             ^———————^———引号
以后我再也不敢偷懒了:-)
Uplinq2014:人工智能嵌入硬件 万物互联建生态 Uplinq2014:基于Vuforia的新奇智能玩具 一应俱全!开源跨平台3D应用开发框架Minko 【线下技术培训】敏捷测试实战解析和系统方案 《近匠》Ping++:简单、高效、第三方支付SDK 有关编程的12个猜想 【问底】王帅:深入PHP内核(二)——SAPI探究 【CTO俱乐部走进汽车之家】活动图文实录 只为逼格?超薄便携式无线充电设备Deuce 戴尔未来重心:云计算、大数据、移动互联与安全 【讲师】搜狐于顺治:Container在搜狐PaaS平台中的应用实践 【先锋】从代码层诊断,云端OneAPM平台让开发者专注开发 阿里将推无线领域重磅计划 阿里百川无线开放大会揭晓 提升网站转化率的四步优化方案 开发者应该了解的API技术清单! 【讲师】腾讯刘永峰:Docker时代,公有云面临的挑战和机遇 移动开发工具服务商Mob推出免费短信验证码SDK 遇见他们,MDCC 2014移动开发者大会嘉宾揭秘 揭秘全球最小无线耳机背后的技术 《最终幻想》之父访谈:我为何转战F2P游戏开发 寓教于乐 11款最适合教儿童编程的学习工具 苹果iPhone6获工信部许可 本月17日在内地发售 使用Redis之前5个必须了解的事情 妆媒体微信公众号背后的酸甜苦辣 TIOBE 2014年10月编程语言排行榜:Dart首次进入前20 Instagram工程师教你如何改善App的性能 利用Neo4j对电影评论进行深度学习情感分析 【简讯】SQLite 3.8.7来了 性能提升超50% 浏览器重定向性能分析经验谈 豆瓣工程副总裁段念:看板方法核心瞄准流程中的“流动性” 【图文实录】CTO俱乐部公开课:探讨如何成为技术团队管理者 各位大侠!推荐几个学习linux的网站吧! 还是关于classpath的问题,请大家教我,从头教起吧,谢谢 关于想得到刚刚保存的行的问题 socket不能连接,“目标机器积极地拒绝它 如何用applet显示服务器的系统时间? to:jeckel 如何在TREEVIEW中改变所选结点时在框架的另一个FRAME中调用某个页面? ASP中数据集的操作 猪啊猪,气死我了 capboy 请你看一下“capboy:为什么我加入了memfile.h后编译回出这样的错误”,后面有新问题,我的分快没了,谢谢! 请问何处有编制plugin宿主程序的资料? ORBIT是一个基于组件的开放型的组件开发平台,介绍给大家。支持VB 来说一下自己手机的开机问候语呀 公告:收到fredfei(飞飞)得Ehlib 2.1的朋友请注意!!!! 菜鸟级问题! 做树状菜单,不用jtree,布局该如何选?不用xylayout。帮帮忙,给点提示吧! 怎样在安装程序中注册我的com服务器,安装用installshiled6,不是install for bcb 急! 系统日期格式问题? 请教大侠一个ping的错误信息 EXCEL QUESTION 如何将图片存到SQL SERVER中? 急!!!oracle数据库中的blob字段,我用getchunk取出后在网页上显示为乱码,有什么办法可以让它转成文本吗?在线等待 请问怎么用ASP编写外部管理网站的程序,不通过数据库的,谢谢! 在java中如何打开一个文件? 关于VC的图象处理,高手请过目!! 版主新开了一个论坛 ... 不知道大家去过没?! 怎样获取鼠标图片 发布站点的问题 发送邮件问题 高难度 图象算法问题 一个很简单的问题,我在建一个主从数据库(明细型数据库应用程序)不能联接啊,初学者 c++程序问题? 如何在VC中把资源打包成cab可自动下载的文件? 请高手介绍一个Java+XML的例子 关于显示数据库记录的问题!用stringgrid或者drowstring能实现吗? 菜鸟问题:这个SQL语句怎么写? 有关字段计算的问题 如何禁止修改系统时间???? 哇,好奇怪哦~~~` 请教大侠一个ping的错误信息! 这条语句怎么写? sql server 2000 安全管理与用户的问题 问一下,csdn的论坛列表菜单是否有bug,为什么会导致非法操作? HELP~~~~~有谁能回答这个问题?高分相送~~~ 请教:如何在某一时间改变列表视图里光标条为红色(不是全过程),可以不改写类吗? 单词不是这样背地......http://www.swordgrass.com 关于非正增型列的唯一性? 小问题:(送分)程序中如何新建一个窗体。 高难度 图象算法问题 关于文件上传和变量值上传的冲突 一个三角形的高如果增加25%,要使三角形的面积不变,底应()a、减少25% b、减少20% 才、增加25% 一条水渠穿过一块长方形土地.这块地的实际耕种面积是多少平方米长50,宽30,水渠是平行四边形,高为6唉...这是5年纪的测验题...我也觉得是错的...老师也做不出来才上来提问哒 一张平行四边形彩纸底长8分之3米,底是高的8分之5,这张平行四边形彩纸的面积是多少平方米? 平行四边形玻璃的高比底少七分之二,这块平行四边形的面积是多少厘米? 一个平行四边形,底是4m,高比底长5分之1,平行四边形面积是多少? 要过程,急! 一张平行四边形彩纸低长8分之3,底是高的8分之5.这张平行四边形彩纸的面积是多少平方米?急!方程解答! 一个三角形的高如果增加25%要是面积不变底应减少多少? 1.一个平行四边形的底长12厘米,高比底短4厘米 求面积2.一个梯形的上底是3厘米,下底是7厘米,高时上底的2倍 求面积3.一个三角形的面积是12平方分米,它的底是6分米,求高4.一个长方形面积是32 一张平行四边形的彩纸低长3/8米,的士高的5/8.这张平行四边形彩纸的面积是多少平方 一个三角形的高如果增加25%,要使三角形面积不变,底应减少百分之几? (2/2)提高重为1200N的物体,拉力F,的功率是多少?用这个滑轮组匀速提升600N重物和1200N重物两种情况下...(2/2)提高重为1200N的物体,拉力F,的功率是多少?用这个滑轮组匀速提升600N重物和1200N重物两种 一张平行四边形的彩纸低长3/8米,的士高的5/8.这张平行四边形彩纸的面积是多少平方m? 用方程解:一块梯形土地,上底长40米,比下底短30米,面积是1375平方米,土地的高? 将一个长方形沿一边划去30米,划走的面积是1200平方米.剩下的面积是10800平方米,直角梯形的上底是多少米? 一张平行四边形彩纸底长8分之3m,底是高的8分之5.这张平行四边形彩纸的面积是多少平方米? 三角形面积是3平方厘米,它的底增加20/100,高减少10/100后,这个三角形的面积是多少? 长方形划去30米,划走的面积是1200平方米.剩下的面积是10800平方米,直角梯形的上长方形划去30米,划走的面积是1200平方米.剩下的面积是10800平方米,直角梯形的上底是多少米? 1:50000比例尺怎么转换成1:10000比例尺需要扩大几倍?还有就是那个比例尺大!还有就是其他比例尺怎么转换,用什么工具才能知道扩大几倍?不好意思,么财富币了,我正在做任务,以后还你们, 一个三角形,底为6厘米,底边再延长4厘米,那么面积就增加10平方厘米,求三角形的面积 把一个三角形的底扩大3倍,高缩小2倍,它的面积( ) 谁能帮我算一下 这个比例尺的转换?图上距离 20cm比例尺 1:600万实地距离拉~ 一块平行四边形的玻璃,底长42厘米,高30厘米,它的面积是()厘米,在上面切 三角形的底扩大3倍高不变,面积是多少 一块长方形试验田,长和宽各增加3米,它的面积增加了99平方米,周长现在是多少 "5.12"汶川大地震是一场()的灾难,全国任命()()抗震救灾,各地的救灾物资()地运往灾区.(填成语)急,限今晚 一个三角形高不变,要是面积扩大3倍,底要扩大( )倍. 一块长方形试验田的长和宽都增加20米后,面积一定加2000平方米.原来长方形周长是多少米可以吗 一块平行四边形的玻璃,底是50厘米,高是60厘米,它的面积是多少平方厘米急 一个运动场,两头是半圆形,中间是长方形,里面周长400米,每条跑道宽1米,在400 一个平行四边形,面积是九分之八平方米,这个平行四边形的低是多少米? 汶川大地震后,全国上下万众一心(),共同抗震救灾.括号里填四字成语 一个运动场,两头是半圆形,中间是长方形,里圈周长400米,每条跑道宽1.5米,在400米的长跑比赛中,里圈第一道的运动员和第二道的运动员起跑线相差多少米? 一块周长是120米的长方形实验田,长是长和宽之和的五分之三,这块试验田的面积是多少平方米?(算式列出来 一个三角形的高不变,底扩大2倍,它的面积( ). 直角三角形计算公式 一个平行四边形的底是6米,高是底的八分之九,它的面积是多少? 把一个三角形的底扩大4倍,高不变,其面积扩大了( )倍.jiu. 一个运动场,两头是半圆形,中间是长方形,里圈周长400米,每条跑道宽1米(在400米短跑比赛中)1.里圈第一道的运动员和第二道的运动员的起跑线相差多少米?2.里圈第一道的运动员和第三道的运动 比例尺的换算1.如果比例尺是1:500,图上的两地距离是2厘米,那么实际距离怎么求?2.如果比例尺是1:500,两地的实际距离是900米,那么图上距离怎么求? 一个三角形高不变,底扩大三倍,面积扩大几倍 三角形的底和高都扩大3倍,面积就( )几倍. 一个平行四边形的底是6米,高是底的八分之九,它的面积是多少平方米? 如果三角形的底扩大2倍,高不变,它的面积( ). 一个三角形,底和高分别扩大3倍,那么它的面积扩大()倍. 一个长方形体育场一边长是90米,以平均每分钟72米的速度步行绕场一周用7分,体育场占地多少公顷? 一个三角形的底不变,要使面积扩大到原来的4倍,高应扩大到多少倍 一个三角形的底和高分别扩大4倍,它的面积扩大( )倍. 一个长方形的草场,长8千米,牧马人骑马以每小时32千米的速度绕草地一周,要用42分钟,这块草地是多少公顷 在一个CAD图里面怎么画两种比例尺的图比如一个CAD图形文件里面包含两个不同比例尺的小图,一个是1:50,一个是1:20,应该怎么画,请详细解答,谢谢 2010年4月14日07时49分许,青海省玉树藏族自治州玉树县发生7.1级地震,地震发生后,某单位承揽一项为灾区生产救灾帐篷1600顶的任务,计划用t天完成.由于任务紧急,需要调整生产计划,厂家决定提 如何换算比例尺如行驶了4.5千米,比例尺为1比100000 在一定比例尺下CAD怎样画转弯的道路. 运输液体的糟车,液体上面有气泡(如图)当车向右开动时,气泡将向____运动,其原因是____具有惯性 比例尺怎么换算 某修路队修理工一条路,第一天修了全长的1/4;第二天修了余下的1/3,正好150米,第一天修多少?急 一个三角形的底不变,要使面积扩大到它的3倍,高应该扩大到它的()倍? 一个修路队修一条公路,第一天修了全长的四分之一,第二天修了全长的40%,第一天你第二天少修300米,这条路全长多少米? 一块平行四边形的玻璃,底长4cm,高比底短8分之1.这块玻璃的高是多少?面积是多少 一个三角形的底扩大5倍,高不变,面积也扩大了5倍 这句话对吗?随便说一下理由 求这个线段比例尺换算成数字比例尺是多少?图上没有单位,0 1000 2000 5000|______|______|______|______|
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘