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

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

编辑:说三道四文库 发布时间:2017-02-26 08:28
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%>">
                                             ^———————^———引号
以后我再也不敢偷懒了:-)
自定义快速报表的打印预览窗口-Delphi资料 Delphi 3 图形VCL中Bug修改方案 Delphi hint的字体和色彩如何改变 Delphi3.0中复活节彩蛋及实现 Delphi数据库应用程序开发中图像数据的存取技巧 DELPHI图形编辑技巧二则 DELPHI显示JPEG图像文件 Delphi中CANVAS使用三例 Delphi中的图形显示技巧 DELPHI中画布应用技巧 Delphi中控件深度投影及阴影效果的实现 DELPHI中利用对象的常用属性制作动画 Form生成时的事件次序-Delphi资料 LED数码管仿真显示程序-Delphi资料 TPaintBox与TImage的比较-Delphi资料 WINDOWS基于调色板的图像消隐-Delphi资料 改变图片效果-Delphi资料 改造HINT的输出方式-Delphi资料 基于Delphi的图像漫游 将BMP放入Paradox的BLOB的字段中-Delphi资料 界面色彩渐变效果的实现-Delphi资料 如何查阅可视窗口标题-Delphi资料 如何得到Timage控件的DC-Delphi资料 如何关闭一个MDI子窗口-Delphi资料 如何检测鼠标击了哪一个对象-Delphi资料 如何将鼠标锁定在固定范围内-Delphi资料 如何使你的窗口Stay on Top-Delphi资料 如何在ListView控件中绘底图-Delphi资料 如何在屏幕上移动Image图象-Delphi资料 软件中复活节彩蛋的实现-Delphi资料 实现图象局部放大的原理和方法-Delphi资料 如何取得DBGRID当前选定行的内容,包括该行所有的列。一定给分。 请问电力的《java与XML》翻译得如何呢? 我快受不了了,D5下的程序在D6下用为什么会出现那么多的错误?释放也出错。请问这是为什么?谢谢! ---------------COM---------------- 在读数据文件时如何强制性地使程序中断本行数据的读取,接着从下一行开始读取其他数据 为什么我的outlook可发送,不可接收和发送,注意是可发不可收,不是可收不可发 用JBuilder5开发WebApplication: 如何在WEB-INF目录中建立自已的目录? 一本C++/面向对象好书????(kingofark) 用JBuilder5开发WebApplication的问题? 我讨厌控件,有意者跟进! VB请教 关于打包war文件的问题(用JBuilder5开发)? 耶稣与撒旦比赛写程序 怎么多行注释,怎么创建多个表? 对C++有深刻理解的高手请进!!!!初学者更应进,否则可以困扰你好久..... clsid 问题 如何将VB5工程移植到VB6环境中(很急)!!! 关于封装war文件的问题? 在websphere 下应该将我自己的类放在哪里才能让我的jsp程序访问到??? 关于《c#完全手册》的URL 怎样取得server的时间日期?help!!!11111 在websphere 下应该将我自己的类放在哪里才能让我的jsp程序访问到?? 谁遇到过这种怪现象:我在DW中输入数据,居然DEBUG时不进入EDITCHANGED事件,反倒进入其它事件并且再也不能DEBUG了? 吴文智能帮忙吗? 关于版本的问题 请问vb6做的程序怎样才能在Win2000下运行? 高分:为什么BCB经常报告该文件正在被使用。我从新启动BCB后一切正常。 哪位有ziptv for Delphi5而且是破解过的请发给我一份好吗? 为什么BCB经常报告该文件正在被使用。我从新启动BCB后一切正常。 请问这个程序执行时为什么什么都看不见? J2EE随带文档的翻译版本哪里有下载? 大家帮忙推荐几个学习java好的站点吧,中外都行。 哪里有installshield下载呀! 如何能让 Flash 动画,应用在 Ad Rotator 组件中? 请教高手,急! magic 急!一个关于串口及组波的题目~ J2EE随带文档的中文版本哪里有下载? 紧急求救,如何得知当前程序所在的物理硬盘????? 各位大虾有礼了, Jbuilder6哪儿可下啊??? 如何播放.rm文件? 致 smallpig(小奔奔) 你凭什么说我不爱她。 nil 和null有什么区别? 怎样修改crosstab数据窗口中变动列的列名? 懂COM的都应该知道! 问题:select * from servername.dbname.username.tablename PCI设备的速度测试之疑问?有精确至毫秒级甚至是100微秒级的函数吗? 一个总是无法解决的问题 window2000中如何用命令行杀一进程? 请问各位大哥:怎样在win98或winme下注册和使用动态连接库“PSAPI.DLL”呀? 再問一遍. 做數據庫的朋友沒有碰到過這個問題嗎.斑主也來看一下.在SQL語句中.怎麼進行區分大小寫查詢.求在ACESS97(2000) 和SQL中的解決方案. 绘制生物图是对图中较暗的部分绘制要求是? 这个化学公式怎么得来的? 碳的相对原子质量是? 绘生物图时,较暗部分绘制的方法是? 实际质量除以相对原子量是什么? 一束光线从空气中垂直射入水中,求它的入射角,反射角和折射角的度数 原子个数比是什么?元素平均相对原子质量是什么?问题说明越详细,回答也会越准确! A,B元素的相对原子质量比是7:2,在由它们组成的化合物中,A,B元素的质量之比是7:3,则该化合物的化学式是A.A2B3B.A3B2C.A7B2D.A7B3 相对原子质量通常用什么表示? 31.在探究“导体中的电流与导体电阻的关系”实验中,小明猜想导体中的电流还与导体两端的电压有关.实能不能解析一下二 四两题啊31.在探究“导体中的电流与导体电阻的关系”实验中, AB两种元素都是短周期元素,它们的相对原子质量都大于10.AB可形成两种气态化合物X和Y.已知X的一个分子中有A、B原子各一个,且7gX在标准状况下的体积为5.6L.Y饿一个分子中含有一个A原子,Y的密 用弹簧测立即吊着一质量为60g的金属块浸入水中称得示数为0.2N则金属块在水中受到的浮力是多少 相对原子质量数=A+Z,那么该元素的相对原子质量数为A+Z对吗?对还错啊 1号电池、2号电池、5号电池的区别?(从电流、电压、电阻)的方面来讲. 写出化学表达式. 这种绘画用的笔较什么? 评估:探究电流与电压的关系甲:可以通过改变串联电路的个数,来改变定值电阻两端的电压值. 化学的表达式如何书写 这是绘画用的什么笔? 评估:可以通过改变串联电池的个数来改变定值电阻两端的电压值 问一下这个化学表达式怎么读镁和氧气生成氧化镁,(其中生成上面有点燃,那要是用符号来表达这个式子时,写得写,那读呢?用读成"点燃生成吗?) 这是什么绘画笔~ 探究电阻上的电流跟两端电压的关系的评估交流 碳的相对原子质量是多少 绘画笔怎么样 答案是同一,不能.可不可以画图解析一下呢?某植物的高茎(B)对矮茎(b为)显性,花粉粒长形(D)对圆形(d)为 显性,花粉粒非糯性(E)对花粉粒糯性(e)为显性,非糯性花粉遇碘液变蓝色 实验浮力的大小与物体浸在水中的深度有关吗?要具体过程. 高中生物 画红笔的句子是怎么得到的? 研究表明:家属的黑色和白色是一对相对性状,由非同源染色体上的两基因共同控制,黑色家鼠和白色家鼠杂交,F1均为黑色家鼠,F1中黑色家鼠自由交配,F2吹按黑色家鼠:浅黄色家鼠:白色家鼠=9 相对原子质量与碳12的关系 在探究电流与电压关系过程中电阻不变,电流与电压的关系是什么理由是什么 元素R的氧化物的相对分子质量为80 已知R的相对原子质量为32 则此氧化物的化学式?元素R的氧化物的相对分子质量为80 ,已知R的相对原子质量为32,则此氧化物的化学式?A.RO B.RO2 C.RO3 D.R2O 我在C 碳的相对原子质量为什么不是正好的12?以一种碳原子质量的1\12为标准,那碳的相对原子质量不是应该正好12吗? 在某正二价元素R的氧化物中,R元素与氧元素的质量比是7:2,该R元素的相对原子质量是? 某元素R的相对原子质量为32,则该元素的氧化物的相对分子质量为A 48B 64C 80 D 96求原因 计算氢氧碳的元素的相对原子质量、写过程已知1个氢原子的质量为1.67*10的-27kg,一个氧原子的质量为2.657*10的-26kg,1个碳原子的质量为1.992*10的-26kg 某+6价元素R的氧化物中含氧60%,则R得相对原子质量为? 探究电阻上的电流跟两端电压的关系 实验方法与过程 提出问题 两种同位素碳12和碳13,他们的原子个数比是65比1,求碳元素的相对原子质量 某元素R的氧化物中R元素与氧元素的质量比为7:16,R的相对原子质量为14,则该氧化物中R的元素化合价是A.+1 B.+2 C.+3 D.+4 初中生物实验方法有哪些? 未完全浸入水中的物体,浮力与深度的关系. 在某R元素的氧化物中,R元素的与氧元素的质量比为4:1,R的相对原子质量为m,则R在此氧化物中的化合价为?A +m/4 B +4m C +m/32 D +32/m 快 快 、、、给个初中生物实验方案要详细一些! 是要初一的 碳的平均相对原子质量为多少?RT 生物画图时为什么用3H的铅笔? 相对原子质量=____+____ 在Word中怎样输入化学名称右下角的小数字?知道的大哥大姐帮帮忙,小弟感激不尽! 生物中绘制图形,全部涂黑表示什么?quick 串并联电路中,电压一定时,分得的电流大小与电阻之间的关系是? 化学符号右下角数字怎么标注啊 绘生物图时,对图中较暗部分的绘制要求是什么? 高中生物有颜色的实验有哪些? 如何在化学返程式中将数字写在右下角S+O2=SO2 比如在此方程中的2怎样写在字母的右下角 绘生物细胞图时,对图中较暗部分的绘制要求是A用直线条涂黑它 B点上细点表示C用横线条涂黑它 D随意涂黑它 高中生物有关颜色的反应或实验 化学符号右下角数字怎么算?比如,O2+Fe→Fe3O4;P+O2→P2O5.这些右下角数字是怎么算出来的?是最外层电子数的公倍数什么什么的? 绘生物图时,对较暗部分的要求是什么?是划横线,或是涂黑,还是画点? 什么是相对原子质量 碳的相对原子质量为?
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn