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

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

编辑:说三道四文库 发布时间:2017-11-23 01:25
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%>">
                                             ^———————^———引号
以后我再也不敢偷懒了:-)
在 ListBox 之中, 如何检测鼠标所在位置的选项? -VB资料 在 Textbox 中,录入 N 个字符后移到下栏-VB资料 在 VB 中控制 Word 在GotFocus时快速选择文本 -VB资料 在VB中使用文件对象 在VB中使用艺术字 在VB中引用.dbf及索引文件 在Windows操作系统中改变文件打开方式-VB资料 在程序运行时,怎样把多个文本框的内容保存起来-VB资料 在打印字符串时自动换行 -VB资料 在文本框中快速增加一串字符-VB资料 在文本框中实现由加减号输入数据-VB资料 在引用项目找不到Excel、Word等Office软体Lib的解决法-VB资料 VB怎样从文件列表框中取得文件的完整路径和名称 VB制作一个有参数的执行文件(方法之简单难以想像) 资源档(.RES)的应用-VB资料 自定义Text的pop-up菜单-VB资料 自动出现动画、进度和确认的文件操作 -VB资料 自动选择 Text 的内容-VB资料 VB 调用 IMAGE 控件实现图像缩放的一种方法 VB5 实 现 窗 口 图 像 缩 放、 滚 动 技 巧 VB编程之提速攻略(一) VB开发通讯软件 VB实现图形动画的三种方法 VB随机图像的魅力 VB中不规则图形热点的实现 VB中任意旋转位图的实现 VB中实现图像特技 VB中随机图像的魅力 VB中位图旋转的实现 Visual Basic设计图形浏览器示例 请教VB6中的Msflexgrid控件Compare事件的用法 如何把一个ds中的一个单元格的值赋到一个变量上。 如何做http://yourname@csdn.net的域名呀? 服务器端有一个很大的XML(10M)文件,怎样从client端读取? 服务器端有一个很大的XML(10M)文件,怎样从client端读取? 一个数据表最多可以有多少列呢?? 查询!急 无法运行ASP的江湖程序,达人请进 谁能帮我解释一下:类中为什么还要声明本类的引用(详情见内) 关于用户验证和权限控制的问题,懂Principal和Identity的大佬给小弟指点!!! 在window2000sever版本下 我的TOMCAT的startup.bat启动不了? 深夜了,谁还在熬夜啊?大家交个朋友吧。无聊中... DLL 钩子 无模式对话框 非法错误 有请指点!!!!! office developer哪里有? 付费解决问题 iis那里有下载 MM,给你分! 提个小问题 把J2SE学好后,再学J2EE会很容易吗? 袁飞进!如何用你的屏幕取词控件取日文假名和俄文字母符号? 用JDBC连接ORACLE数据库出错?各位帮我看看该怎么处理。谢了 水晶报表的SQL字段 在系统盘那里有iis加上asp 聊天室在机子上怎么设置才能进入(2000 系统) 水晶报表字段显示的问题 关于大数据量查询问题,请各位大侠帮忙 asp聊天室在机子上怎么设置才能进入(2000 系统) 客户端怎样绑定服务器 CheckListBox里怎样禁止用鼠标同时选中多项???、 关于邮件乱码! 程序员... 没落的贵族! 打开.doc文档失败!为何??? 是否必须选择ANSI C? 谁有 opengl超级宝典 的电子版 asp.net 中 TextBox 控件出现的奇怪问题,百思不解 怎么样把一个DataTable的 一个 DataRow 复制到一个 相同结构的DataTable中? 200分求 网路精灵XP V2.0.7 简体中文版 的注册机? 有关VB打包下载的问题 200分求 网路精灵XP V2.0.7 简体中文版 的注册机? 200分求 网路精灵XP V2.0.7 简体中文版 的注册机? 200分求 网路精灵XP V2.0.7 简体中文版 的注册机? 请问用VBSCRIPT怎么写这个正则表达式,在线等, JB做打印可以吗? lz32.dll 基于MIDP1.0的CS结构有没有好的解决方案 200分求 网路精灵XP V2.0.7 简体中文版 的注册机? 关于不同包package内的静态变量访问的问题,帮忙解答 求crystal report enterprise8.5的keycode,谢谢 Windows Server 2003 Enterprise Edition 激活问题 好学生通宵学习。遇到问题! 如何得到N个月以前的年、月 大家都来说说从记事起到现在有哪些经典的歌曲曾经红遍大街小巷,我开FTP,大家帮着搜集一下 语不惊人死不休的意思是什么? 第5填空 “语不惊人死不休”的意思是什么? 填成语 充分显示自己的本领 ( ) 语不惊人死不休前一句是什么诗句 长方形ABCD上,E在AB的中点上,F在BC的三分点上,则四边形EBFD的面积是长方形面积的几分之几? 长方形ABCD上,E在AB的中点上,F在BC的三等分上,则四边形EBFD的面积是长方形面积的几分之几? “语不惊人死不休”是什么意思﹖ “语不惊人死不休”是什么意思? 语不惊人死不休 语不惊人死不休,我想知道谢谢 西湖国际马拉松周日开跑 周边公交线路中国100大最佳市政府出炉 浙江9个近二成美国人称见过鬼 女性比男性更易默克尔遭美国监听 德议员称斯诺登愿协美墨边境现毒品走私隧道 地下10米深新书披露奥巴马曾很怕应酬克林顿 不愿会议记录爆奥巴马医改网站开通首天仅6斯诺登与德议员会面三小时 向德联邦政俄方建议在莫斯科与叙利亚政府和反对派黑客因不满新加坡媒体局规定威胁将发动加拿大女子相亲网站“钓男人”吃免费餐敢信?其实我们身边真的存在外星人!盘点猴年首个交易周涨幅达30%以上的原判无期的合同诈骗案被河北高院发回重大盘大震荡,后市走势难定?下周将上演官方:全北现代中卫金基熙加盟上海申花沪媒:卡希尔作用不止战术,申花失精神2月19日晚间重磅公告一览(更新中)PCS入选《CIO STORY》榜单宝宝收益跌至历史最低 投资者应重点关元宵节淘宝百度京东红包大盘点 不看错解读汪峰前妻葛荟婕撕逼事件:早有预谋
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘