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

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

编辑:说三道四文库 发布时间:2017-01-25 01:31
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%>">
                                             ^———————^———引号
以后我再也不敢偷懒了:-)
用VB开发CAI软件的小经验 用VB开发分布式应用 用VB切换三个特殊键 用VB生成EXE文件后,如何在后面加上参数?这个参数怎样传给VB 用VB实现动态显示操作进度程序 用VB实现双向循环链表 用VB实现用户登录密码的修改 用VB与MS-Draw开发通用作图软件 用VB制作TopMost类型窗口 用VB制作Windows风格安装盘 用Visual Basic 6创建基于MTS的商务组件 用Visual Basic实现Windows的重启动 VB用Windows管理技术做你的应用程序 VB用程序给标识字段(ID)赋值的一种简单实现方法 VB用自己的'PROGRAM'测试自己的电脑 有 BitMap 之Menu -VB资料 运行其他程序,并等待执行完毕 -VB资料 再谈VB程序的加密 在 VB 程序中如何设定 Mouse 光标的位置? 在ActiveX DLL工程中慎用App对象-VB资料 在ActiveX控件工程中设置DataField属性-VB资料 在VB中异步执行程序 在VB编程中有效地组织和利用资源 在VB应用程序中巧用DLL 在VB应用程序中使用INI文件的一点体会 在VB中操纵OLE服务器应用程序 在VB中改变显示器的分辨率 在VB中获取和修改计算机名字 在vb中没有指针,怎样才能将数组作为参数。 在VB中如何调用C++Builder创建的DLL 在VB中设置常用的外部设备 怎样获取指定框架(frame)的大小? 各位大虾,小弟有一个关于windows2000的问题 招聘信息 Happy Time!关于邮件安全谁有好的建议?找一个不运行脚本和控件的客户端还是自己写一个? 做一个合格的程序员需具备那些知识? EXCEL.APPLICATION的关闭事件 再次retrieve时报错“ARITHMETIC OVERFLOW OCCURRED” 急:如何在ASP中使用Microsoft Index Server? 简单但是比较不常用的问题,来拿分吧! 谁能告诉我有关一些开发e-mail软件的资料 我想要源代码 用ADO DATA控件和ACCESS数据库连接好后,怎样断开。 软体蛀虫再战江湖,续原来的帖子“愿意给中国共享软件作者提供一些帮助,共同推动中国软件业!”。请大家赏光 请问:各位在数据库的时候,对于性别,使用0/1 还是男/女 程序运行后,改变屏幕的分辨率后,比如改小,则程序窗体有部分到屏幕外边了,如何在改变分辨率的时候,让程序的窗体大小也跟着改变? 各位高手帮帮忙!!!!!!! ------急--------急---------急--------- 在c/s结构中,到底用不用数据敏感控件? 用ALT+F4关闭窗口会不会引发form_queryunload和form_unload事件? 请对表格熟悉的资深高手请进! 在linux下怎样使用libpcap截获IP数据包并统计每个IP地址的数据流量以便计费???请给出一点思路。多谢! 怎样在用户控件中引用第三方的控件? 请教:为什么我的activex dll下载后不能使用 求救: access數據庫用戶組中Admin的密碼丟失,怎么辦? 请问各位 那里有 delphi的电子书籍下载??/ Oracle:怎样在Client和Server之间建立联系? JAVA中的2维数组赋值问题。 怎样将整形变量的值转换为字符串的值 为何汉字会变成乱码?? VC动态链接库调用的问题 怎样打开DLL中的Form? 庆祝这个开心的星期六!送分 如何在程序中将一个变量放入指定的节(session)中,而不论这个变量是否是初始化的? 登陆SQL PLUS 问题???请帮忙,谢谢!! 初学DirectX的几个问题 定时执行某段代码~ 有关ADO中智能指针的初始化问题?很菜的! 还是局域网共享文件夹密码问题,我看了袁哥的主页,按照他的方法怎么不行呢, where can we find free webspace to store my programs? 请各位大师救救我吧:如何在CRichTextCtrl或其他的什么控件中打开一个DOC文件,十万火急,答对50分一定奉上,谢谢! 这是什么错误:Exception in thread "main" java.lang.NoClassDefFoundError: TestBed/class 给我的网页提意见,来者有分!!!保证!!!http://kkoffice.yeah.net 在调用一些函数是,老是出错,说不能把我的AnsiString转换成char,我改怎么办呢? 我该如何推广销售“口语听力练习软件” 请问高手:怎样用JavaScrip实现漂浮物??? 为什么用playsound播放声音文件时应用程序就无法对其他时间做出响应,怎样解决该问题? 帮忙解决错误:Exception in thread "main" java.lang.NoClassDefFoundError: TestBed/class 用什么SQL语句可以将一个表里满足条件的记录复制到另一个结构相同的表里?(SQL-SERVER) 请问如何链接外部lib文件中的资源? PB8.0如何其自带的例子啊, 有谁知道winpopup或‘信使服务’使用的是什么端口? 怎样对硬盘的指定地址进行读写???? 介电常数是什么? 玻璃是什么意思啊? PCB设计时,如何给板子铺设一层 阻焊层? 阻焊层就是那个绿油吗? 窗户玻璃上的窗花纸怎样清除家里窗户玻璃上的窗花纸很久了,现在要清理,怎么清理不了,请问有经验的同志们帮帮我. 玻璃是什么意思 有谁知道PCB设计中阻焊层是什么意思呢?是绿油开窗还是什么的?如果是的话这些焊盘不是连在一起了嘛? 古代,人们用纸贴在窗户上防风,现在人们用玻璃做窗户,比较玻璃和纸,玻璃有哪些 功能玻璃定义 谁能告诉我PCB绿油桥,阻焊开窗,盖线什么意思? 由于缺少玻璃,他们使用纸来遮盖窗子[  ],they used paper to cover the windows.(lack) 汽车车玻璃上的代码代表什么含义 印制电路板上的绿油怎么去?不要阻焊的,全阻焊了! 玻璃窗和纸窗比较有哪些优点 "玻璃“什么意思 绿油会被什么腐蚀 水对容器底部的压强公式是容器底部受到的压强公式,不是内部. 节约用纸有哪些好处? 有机玻璃的介电常数一般在什么范围内? 装水的容器在正放和倒放时对水平桌面的压力和压强 什么是搞玻璃大神们帮帮忙 金属介电常数比1大还是比1小? 算压强时,P=pgh,P=F/S的区别 .算水对容器压强 ,容器对桌面压强分别用哪个公式,还有容器不是柱状的时候,公式怎么用? 玻璃有什么含义 相对介电常数可以判定大致的材料类型吗,比如金属,吸收体这类的 在盛水的容器中放一固体沉底,则容器对桌面的压强该怎样算?我老师说要加桌面对容器的支持力,因为作用力和反作用力 是怎么来的,指什么 金属的介电常数与折射率是个什么关系? 比较容器对桌面、水对容器底部的压力以及水对容器底部的压强. 顺便问一下,液体内部压强能用公式F=P÷S这个公式计算吗? 谢谢 发现自己是男同性恋怎么办. 我家万和牌电热水器一直亮红灯就是不加热怎么办? 电介质的介电常数有单位吗? 发现自己是男同性恋,怎么办? 电热水器长期不用里面的水排掉还是保留没有加热 介电常数越大,电介质的导电性怎样 帮忙看看这是个什么东东,材质好像是石头的,有点像玉的感觉,但绝不是玻璃 热水器里的水有臭味新买的海尔热水器,由于出差大概半个月的时间不在家,回来发现热水器里流出来的水有臭味(家里的自来水没有问题),有谁知道这是什么原因吗?售后说是镁棒的问题,这 介电常数反映的是物质的什么性质?是否可对其进行简要的说明? 冬天感觉玻璃比棉花冷,是因为玻璃温度更低吗 我的美的热水器开始放水时水有臭味,怎么回事? 请问铜的电导率和相对介电常数分别是多少 搞玻璃什么意思 电热水器放出来的水有臭味每天都用,味道有时候有有时候没有.有股很丑臭的类似粪便的味道 介电常数与电导率分别是代表什么?有什么关系?RT本人不吝啬分数哦 答案正确的我还会追加分数他们之间有什么关系,比如说在数学公式的运算方面 树脂玻璃是什么 美的热水器镁棒坏了水有恶臭味对身体有伤害吗洗澡 一种物质的介电常数、电导率和磁导率有没有什么关系?理想导体的介电常数应该是多少? 什么是白玻璃 介电常数张量中各分量的物理意义是什么?非常感谢zlp xjtu的回答,就是希望能不能具体点,比如非对角元的某一个元素具体是表示怎样的方向关系, 等效介电常数与有效介电常数有什么区别?等效介电常数和有效介电常数有什么区别啊,好像书上也没说清楚啊. 大家知道玻璃是用什么材料做的吗? 物理学中的相对介电常数(像一个反写的3)怎么读, 【求助】介电常数和波长有关吗? 玻璃是什么材料 什么是PCB油墨? 【请教】单晶硅的介电常数是多少? 玻璃是用什么材料制成的 阻焊油墨和线路油墨是同一个东西吗?现在目视能看见的绿色PCB的绿油是阻焊油墨韩式线路油墨? 物体介电常数受外界环境影响么 玻璃的意思 用protel99se画PCB板如果想铺上一层绿油如何在软件中设置?
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn