CSDN首页 空间 新闻 论坛 Blog 下载 读书 网摘 搜索 .NET Java 视频 接项目 求职 在线学习 买书 程序员 通知
山寨机中的战斗机! 程序优化工程师到底对IT界有没有贡献
CSDN社区
搜索 收藏 打印 关闭
CSDN社区 >  Web 开发 >  ASP

怎样防止表单的文本框中贴网页代码……

楼主shellia(冰点)2002-05-27 11:35:02 在 Web 开发 / ASP 提问

如何防止在网页的输入表单中的多行文本框中贴上一段可执行的asp、html代码。ASP可以做的到吗?高手们帮帮忙,不胜感激!分数不够可以再加。 问题点数:50、回复次数:6Top

1 楼cmsoft(韦小宝是我的老乡)(草根在路上)回复于 2002-05-27 11:39:56 得分 20

写个函数  
  function   HTMLEncode(fString)  
   
  fString   =   replace(fString,   ">",   ">")  
  fString   =   replace(fString,   "<",   "&lt;")  
   
  fString   =   Replace(fString,   CHR(13),   "")  
  fString   =   Replace(fString,   CHR(10)   &   CHR(10),   "</P><P>")  
  fString   =   Replace(fString,   CHR(10),   "<BR>")  
  HTMLEncode   =   fString  
  end   function  
   
   
   
  function   UnHTMLEncode(fString)  
   
  fString   =   replace(fString,   "&gt;",">")  
  fString   =   replace(fString,   "&lt;","<")  
  fString   =   Replace(fString,   "&quot;",chr(34))  
  fString   =   Replace(fString,   "&amp;","&")  
   
  fString   =   Replace(fString,   "",CHR(13))  
  fString   =   Replace(fString,"&nbsp;","   ")  
   
  'fString   =   Replace(fString,   "</p><p>",CHR(10)   &   CHR(10))  
  'fString   =   Replace(fString,   "</P><P>",chr(10)   &   chr(10))  
  'fString   =   Replace(fString,   "</p><P>",chr(10)   &   chr(10))  
  'fString   =   Replace(fString,   "</P><p>",chr(10)   &   chr(10))  
   
  fString   =   Replace(fString,   "<BR>","")  
  fString   =   Replace(fstring,"<br>","")  
   
  UnHTMLEncode   =   fString  
  end   function  
  Top

2 楼misiren(夜斓)回复于 2002-05-27 12:14:03 得分 3

好象是可以用HTMICODE实现的吧,不过我没试过,你试试看Top

3 楼misiren(夜斓)回复于 2002-05-27 12:14:52 得分 0

刚才打错了个字,好象是可以用htmlcode实现的吧,不过我没试过,你试试看Top

4 楼freezwy(网络自由人)回复于 2002-05-27 12:31:39 得分 20

过滤函数如下:  
  <%  
  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("xx"))Top

5 楼Lostinet(Hello)回复于 2002-05-27 12:36:43 得分 4

这个思想是错误的。  
  作为一个基本的ASP程序员,  
  要做到把别人输入的按原格式输出,  
  并不是困难的事情。  
  只是要处理HTML的编码问题。利用HTML的编码原则来做。  
  而  
  所谓的,防止、屏蔽、过滤,都是错误的思想。  
  Top

6 楼possible_Y(████本人签名需要刮开,方可看到 )回复于 2002-05-27 12:56:54 得分 3

用HtmlenCode(string),这样string就算是可执行的asp、html代码也不会被执行Top

相关问题

  • 怎样用代码给表单元素设值,例如把文本框的value置1(vb)
  • asp中怎样在当页代码中提取表单文本框填写的内容?
  • 如何清除留在网页表单文本框中的文本??????在线等待~~~~~~~~
  • 表单中的文本框问题。
  • 表单验证文本框的问题,文本框的数量不定。
  • 怎样判断表单中的文本框是否为空?
  • 表单里的文本框中VALUE值如何靠右显示?
  • 急!!!!!!!关于表单中的文本框的disabled属性问题
  • 如何控制表单内文本框动态加上只读?
  • form表单里的text文本框问题

关键词

  • 代码
  • asp
  • 执行
  • html
  • fstring
  • chr
  • htmlencode
  • 防止
  • replace
  • mid

得分解答快速导航

  • 帖主:shellia
  • cmsoft
  • misiren
  • freezwy
  • Lostinet
  • possible_Y

相关链接

  • Web开发类图书

广告也精彩

反馈

请通过下述方式给我们反馈
反馈
提问
网站简介|广告服务|VIP资费标准|银行汇款帐号|网站地图|帮助|联系方式|诚聘英才|English|问题报告
北京创新乐知广告有限公司 版权所有, 京 ICP 证 070598 号
世纪乐知(北京)网络技术有限公司 提供技术支持
Copyright © 2000-2008, CSDN.NET, All Rights Reserved
GongshangLogo