几个ASP通用的函数

最新推荐文章于 2024-01-13 14:39:59 发布
最新推荐文章于 2024-01-13 14:39:59 发布
阅读量787 收藏
点赞数
分类专栏： asp编程技术 文章标签： asp function 正则表达式 javascript vbscript insert
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/huoyuming/article/details/4160803
版权

一：处理SQL注入的  
  Function   SafeReplace(ParaName)  
            '---   传入参数   ---  
            'ParaName:参数名称-字符型，惊梦   84881411   2004/09/13  
            Dim   Paravalue  
            Paravalue=LCase(Trim(ParaName))  
             
            Paravalue=Replace(Paravalue,"select","")  
            Paravalue=Replace(Paravalue,"insert","")  
            Paravalue=Replace(Paravalue,"updata","")  
            Paravalue=Replace(Paravalue,"addnew","")  
            Paravalue=Replace(Paravalue,"delete","")  
            Paravalue=Replace(Paravalue,"order","")  
            Paravalue=Replace(Paravalue,"and","")  
            Paravalue=Replace(Paravalue,"or","")  
            Paravalue=Replace(Paravalue,"exec","")  
            Paravalue=Replace(Paravalue,"--","")  
            Paravalue=Replace(Paravalue,"-","")  
            Paravalue=Replace(Paravalue,";","")  
            Paravalue=Replace(Paravalue,"%","")  
            Paravalue=Replace(Paravalue,"<","")  
            Paravalue=Replace(Paravalue,">","")  
            Paravalue=Replace(Paravalue,"(","")  
            Paravalue=Replace(Paravalue,")","")  
            Paravalue=Replace(Paravalue,"window.open","")  
            Paravalue=Replace(Paravalue,"window.close","")  
            Paravalue=Replace(Paravalue,"while(1)","")  
            Paravalue=Replace(Paravalue,"script","")  
            Paravalue=Replace(Paravalue,"'","")  
            Paravalue=Replace(Paravalue,chr(34),"")  
            Paravalue=Replace(Paravalue,chr(39),"")  
             
            SafeReplace=Paravalue  
  End   function  
   
  Function   SafeRequest(ParaName,ParaType)  
                '---   传入参数   ---  
                'ParaName:参数名称-字符型  
                'ParaType:参数类型-数字型(1表示以上参数是数字，0表示以上参数为字符)  
                Dim   Paravalue  
                Paravalue=Request(ParaName)  
                If   ParaType=1   then  
                              '添加非空判断           Paravalue=replace(Paravalue,"-","")  
            If   Paravalue=""   then  
                  'Response.write   "参数"   &   ParaName   &   "不能为空！"  
              Response.Write("<script   language='javascript1.2'>history.go(-1)</script>")  
                                            Response.end    
            elseIf   not   isNumeric(Paravalue)   then  
                                            'Response.write   "参数"   &   ParaName   &   "必须为数字型！"  
              Response.Write("<script   language='javascript1.2'>history.go(-1)</script>")  
                                            Response.end  
                              End   if  
                Else  
                              Paravalue=replace(Paravalue,"'","''")  
                End   if  
                SafeRequest=Paravalue  
  End   function  
   
  二：反处理htmlencode的  
  Function   HTMLDecode(strEncode)  
     
                  strEncode=LCase(strEncode)  
                  strEncode=Replace(strEncode,"&amp;","&")  
                  strEncode=Replace(strEncode,"&lt;","<")  
                  strEncode=Replace(strEncode,"&gt;",">")  
                  strEncode=Replace(strEncode,"&quot;",Chr(34))  
                  strEncode=Replace(strEncode,"<br>","/r/n")  
                  strEncode=Replace(strEncode,"&nbsp;","   ")  
       
                  HTMLDecode   =   strEncode  
    End   Function  
   
  三：去掉html标签  
  function   nohtml(str)  
          dim   re  
          Set   re=new   RegExp  
          re.IgnoreCase   =true  
          re.Global=True  
          re.Pattern="(/<.[^/<]*/>)"  
          str=re.replace(str,"   ")  
          re.Pattern="(/<//[^/<]*/>)"  
          str=re.replace(str,"   ")  
          nohtml=str  
          set   re=nothing  
  end   function

 

四：错误显示  
  Function   ErrorMsgList(intErrNumber)  
    select   case   intErrNumber  
      case   7    
      ErrorMsgList="内存不足   "  
      case   28    
      ErrorMsgList="堆栈溢出   "  
      case   14    
      ErrorMsgList="字符串空间溢出   "  
      case   6    
      ErrorMsgList="溢出   "  
       
       
      case   429    
      ErrorMsgList="activex   部件无法创建对象   "  
      case   507    
      ErrorMsgList="发生异常   "  
      case   449    
      ErrorMsgList="参数不可选   "  
      case   17    
      ErrorMsgList="无法执行请求的操作   "  
      case   430    
      ErrorMsgList="类不支持自动化   "  
      case   506    
      ErrorMsgList="类未被定义   "  
      case   11    
      ErrorMsgList="被零除   "  
      case   48    
      ErrorMsgList="加载   dll   错误   "  
      case   5020    
      ErrorMsgList="在正则表达式中需要   ')'   "  
      case   5019    
      ErrorMsgList="在正则表达式中需要   ']'   "  
      case   432    
      ErrorMsgList="在自动化操作中未找到文件名或类名   "  
      case   92    
      ErrorMsgList="for   循环未初始化   "  
      case   5008    
      ErrorMsgList="非法赋值   "  
      case   51    
      ErrorMsgList="内部错误   "  
      case   505    
      ErrorMsgList="无效的或不合格的引用   "  
      case   481    
      ErrorMsgList="无效图片   "  
      case   5    
      ErrorMsgList="无效过程调用或参数   "  
      case   5021    
      ErrorMsgList="字符集越界   "  
      case   94    
      ErrorMsgList="非法使用   null   "  
      case   448    
      ErrorMsgList="未找到命名参数   "  
      case   447    
      ErrorMsgList="对象不支持当前的区域设置   "  
      case   445    
      ErrorMsgList="对象不支持此操作   "  
      case   438    
      ErrorMsgList="对象不支持该属性或方法   "  
      case   451    
      ErrorMsgList="对象不是一个集合   "  
      case   504    
      ErrorMsgList="对象不能安全创建   "  
      case   503    
      ErrorMsgList="对象不能安全初始化   "  
      case   502    
      ErrorMsgList="脚本对象不安全   "  
      case   424    
      ErrorMsgList="需要对象   "  
      case   91    
      ErrorMsgList="未设置对象变量   "  
      case   35    
      ErrorMsgList="未定义   sub   或   function   "  
      case   9    
      ErrorMsgList="下标越界   "  
      case   5017    
      ErrorMsgList="正则表达式中的语法错误   "  
      case   462    
      ErrorMsgList="远程服务器不存在或不能访问   "  
      case   10    
      ErrorMsgList="该数组为定长的或临时被锁定   "  
      case   13    
      ErrorMsgList="类型不匹配   "  
      case   5018    
      ErrorMsgList="错误的数量词   "  
      case   500    
      ErrorMsgList="变量未定义   "  
      case   458    
      ErrorMsgList="变量使用了一个   vbscript   中不支持的自动化类型   "  
      case   450    
      ErrorMsgList="错误的参数个数或无效的参数属性值   "  
      case   1052    
      ErrorMsgList="在类中不能有多个缺省的属性/方法   "  
      case   1044    
      ErrorMsgList="调用   sub   时不能使用圆括号   "  
      case   1053    
      ErrorMsgList="类初始化或终止不能带参数   "  
      case   1058    
      ErrorMsgList="只能在   property   get   中指定   'default'   "  
      case   1057    
      ErrorMsgList="说明   'default'   必须同时说明   'public'   "    
      case   1005    
      ErrorMsgList="需要   '('   "  
      case   1006    
      ErrorMsgList="需要   ')'   "  
      case   1011    
      ErrorMsgList="需要   '='   "  
      case   1021    
      ErrorMsgList="需要   'case'   "  
      case   1047    
      ErrorMsgList="需要   'class'   "  
      case   1025    
      ErrorMsgList="需要语句的结束     "  
      case   1014    
      ErrorMsgList="需要   'end'   "  
      case   1023    
      ErrorMsgList="需要表达式   "  
      case   1015    
      ErrorMsgList="需要   'function'   "  
      case   1010    
      ErrorMsgList="需要标识符   "  
      case   1012    
      ErrorMsgList="需要   'if'   "  
      case   1046    
      ErrorMsgList="需要   'in'   "  
      case   1026    
      ErrorMsgList="需要整数常数   "  
      case   1049    
      ErrorMsgList="在属性声明中需要   let   ,   set   或   get   "  
      case   1045    
      ErrorMsgList="需要文字常数"    
      case   1019    
      ErrorMsgList="需要   'loop'   "  
      case   1020    
      ErrorMsgList="需要   'next'   "  
      case   1050    
      ErrorMsgList="需要   'property'   "  
      case   1022    
      ErrorMsgList="需要   'select'   "  
      case   1024    
      ErrorMsgList="需要语句   "  
      case   1016    
      ErrorMsgList="需要   'sub'   "  
      case   1017    
      ErrorMsgList="需要   'then'   "  
      case   1013    
      ErrorMsgList="需要   'to'   "  
      case   1018    
      ErrorMsgList="需要   'wend'   "  
      case   1027    
      ErrorMsgList="需要   'while'   或   'until'   "  
      case   1028    
      ErrorMsgList="需要   'while,'、   'until,'   或语句未结束   "  
      case   1029    
      ErrorMsgList="需要   'with'   "  
      case   1030    
      ErrorMsgList="标识符太长   "  
      case   1014    
      ErrorMsgList="无效字符   "  
      case   1039    
      ErrorMsgList="无效   'exit'   语句   "  
      case   1040    
      ErrorMsgList="无效   'for'   循环控制变量   "  
      case   1013    
      ErrorMsgList="无效数字   "  
      case   1037    
      ErrorMsgList="无效使用关键字   'me'   "  
      case   1038    
      ErrorMsgList="'loop'   没有   'do'   "  
      case   1048    
      ErrorMsgList="必须在一个类的内部定义   "  
      case   1042    
      ErrorMsgList="必须为行的第一个语句   "  
      case   1041    
      ErrorMsgList="名称重定义   "  
      case   1051    
      ErrorMsgList="参数数目必须与属性说明一致   "  
      case   1054    
      ErrorMsgList="property   let   或   set   至少应该有一个参数   "  
      case   1002    
      ErrorMsgList="语法错误   "  
      case   1055    
      ErrorMsgList="不需要的   'next'   "  
      case   1015    
      ErrorMsgList="未终止字符串常数   "  
       
       
      case   1001    
      ErrorMsgList="内存不足   "  
      case   3021  
      ErrorMsgList="没有您要查询的数据！"  
      case   3219  
      ErrorMsgList="内容不允许重复，请重新输入！"  
      case   3709  
      ErrorMsgList="数据库读取发生未知错误，可能ODBC没有配置。"  
      case   -2147217887  
      ErrorMsgList="内容不能为空！"  
      'case   -2147217900  
      'ErrorMsgList="要删除的信息已被其它信息引用，请先删除其它资料。"  
      case   else  
      ErrorMsgList=""  
      end   select      
  End   Function  
   
  声明，1，2我的常用和验证过的，3没有验证过，4是拷别人的

huoyuming
关注
  • 0
    点赞
  • 踩
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
专栏目录
【Jmeter】插件详解：函数助手（Function Helper Dialog）
顾三殇 —— 博客空间（软件测试）
04-26 2165
函数助手对话框：在性能测试过程中为了真实模拟用户请求，往往我们需要让提交的表单内容每次都发生变化，这个过程叫参数化。 JMeter 配置元件与前置处理器都能帮我们进行参数化，但都有局限性，为了帮助我们更好地进行参数化，JMeter 提供了一组函数来帮我们生成需要的数据，这些函数可以通过函数助手对话框来进行编辑。...
创建一个ASP通用分页类
01-20
从开始学习到使用ASP到现在也写了不少程序了，最令人头痛的是写数据分页，每次都是由于几个变量名或几个参数的不同，因而需要每次都写哪一段冗长而又繁杂的分页代码，代码长了使得程序的可读性变差，容易出差，调试...
asp 自用 公用函数
boys1999的专栏
01-27 455
'//////////////// '////////常用函数 '/////////////// '读取记事本函数 function FSOFileRead(filename) Dim objFSO,objCountFile,FiletempData Set objFSO = Server.CreateObject("Scripting.FileSystemObject") if i
ASP函数大全
PrivateBoy的空间
09-24 2751
ASP系列函数大全 ASP函数大全　 ASP函数与VBSCRIPT类似，以下举一些常用的函数　　Array()　 　函数返回一个数组　 　表达式 Array(list)　 　允许数据类型: 字符，数字均可　 　实例： 　Dim myArray()　　For i = 1 to 7　　Redim Preserve myArray(i)　　myArray(i) = WeekdayName(i)　　N
几个ASP+操作日期的函数
zhcool(碳元素)的专栏
10-17 1306
一。各种时间加减的运算 用时间间隔的方法减去一定的天数 Function Date1() Dim NewTime as DateTime NewTime = DateTime.Now.Subtract( New TimeSpan(7, 0, 0, 0) ) NewTime = NewTime.Format("MM/dd/yyyy", DateTimeFormatInfo) response.wri
JS中箭头函数写法及5种简写规则
大剑师兰特的GIS世界
01-29 1942
ES6箭头函数的引入，使函数的写法变的更加简洁。箭头函数没有自己的this，arguments，super或new.target。箭头函数表达式更适用于那些本来需要匿名函数的地方，并且它不能用作构造函数。
【ASP.NET Core 基础知识】--中间件--什么是中间件
最新发布
喵叔
01-13 2018
在软件开发中，中间件是连接两个不同应用程序或软件组件的软件层。它位于两个系统或组件之间，充当通信、数据传递或功能交互的桥梁。中间件的主要目标是简化系统集成和提供一致的接口，使得不同组件能够有效地协同工作。在ASP.NET Core中，中间件是一种特定类型的组件，用于处理HTTP请求和响应。ASP.NET Core中间件在请求管道中按照顺序执行，每个中间件执行特定的任务或操作。这些中间件可以包括预处理请求、进行身份验证、记录日志、路由请求等功能。
ASP的时间处理函数
暗淡亮点的博客
10-28 2654
主要介绍返回日期名称字符串，长日期模式，短日期模式，格式化成长时间格式的函数等。now() 获取当前系统日期和时间,ASP输出可以这样写：Year(now()) 获取年份， ASP输出：Month(now()) 获取当前月份，ASP输出：day(now()) 获取当天数，ASP输出：Minute(now()) 获取分钟数，ASP输出：Second(now()) 获取秒钟数，ASP输出：date()
从底层了解ASP.NET体系结构
gqk01的博客
03-01 2526
A low-level Look at the ASP.NET Architecture ASP.NET is a powerful platform for building Web applications, that provides a tremendousamount of flexibility and power for building just about any kind of Web a
一个ASP通用分页类
顺子网络 PHP网站建设
05-31 3237
一、类的属性、方法 　　这是一个ASP通用分页类。你可以用它方便的给记录集分页，当然在网上有许多的分页类和分页函数。本分页主要有Conn、SQL、URL、FieldList、PageSize、Template、Init、Show、Close等属性和方法。 　　1.Conn属性　　　 ：用来获取一个已创建的Connection对象。 　　2.SQL属性　　　　　 ：根据传入的SQL语句，自动创建Re
asp通用采集函数冗余版可以保存文件到本地
10-30
这个ASP通用采集函数冗余版包含了几个重要的功能模块，如获取HTTP页面内容、获取HTTP图片以及保存这些内容到本地。这些功能在网站开发、数据抓取等场景中有广泛的应用价值。通过对上述代码的分析，我们可以了解到ASP...
asp.net通用权限.zip
03-31
在这个`asp.net通用权限.zip`压缩包中，包含了几个关键的项目文件夹，包括`RM.Business`、`RM.Common`、`RM.Database`以及`RM.Web`，这些组件共同构建了一个完整的权限管理系统。 首先，`RM.Business`层是业务逻辑...
一段asp防注入的通用脚本
10-30
以下是一段ASP防注入的通用脚本，详细解释了其中的关键点： 首先，代码开始对通过URL传递的参数进行防护。这是因为URL参数常被用于传递查询条件，容易成为SQL注入攻击的目标。`Request.ServerVariables("QUERY_...
ASP.NET知识点总结
分享技术，传播知识!
03-03 4678
ASP.NET知识点总结1、ASP.Net的特色与优势2、几对概念3、解决方案构成4、系统对象与状态管理5、控件的分类6、站点地图7、系统导航8、母版页9、系统框架10、数据绑定11、数据源控件12、数据绑定控件GridView数据查询与展示、删除DetailsView 展示多选光棒效果13、数据验证控件14、文件上载15、其他服务器控件DataList 查询与展示16、基于SQL语句分页17...
ASP读取显示TXT文件内容
霍禹铭的专栏
07-23 2881
ASP读取显示TXT文件内容 html>head>title>基于文本的消息发布系统title>head>body>table border="1" cellspacing="0" cellpadding="1" bordercolorlight="#dfdfdf" bordercolordark="#ffffff" align="center">tr bgcolor="#cccce6
asp实现批量删除选中的多条记录
霍禹铭的专栏
04-12 2590
asp实现批量删除选中的多条记录摘要：这篇文章主要针对有一定asp编程经验和SQL语句基础的爱好者如何实现后台管理时，批量删除多条记录的方法。 好多网友问起来，·深度学习网址导航·深度学习整站系统 的后台管理能否增加批量删除功能，如何加：就是列出N篇文章或网址信息，每篇文章或网址前有一个复选框，页面最底下有一个按钮“删除”，多选文章或点击删除，选中的文章或网址实现全部删除。。。   这个功
ASP截取字符串函数
霍禹铭的专栏
04-07 2425
在列出新闻标题的时候，如果新闻标题长，就是改变网页的长度，引起页面难看。这种情况下，可使用left和len两个函数来解决。但是遇到新闻标题中有英文或字母的时候，又会出现即使两个新闻标题都很长，但截取后在前台显示的新闻标题不一样长。主要的原因left和len两个函数将中文当作一个字符去了，所以引起这样。下面这个函数可以解决这个问题，使用的方法和left函数一样。******************
FormatDateTime 函数
霍禹铭的专栏
04-07 1787
 FormatDateTime 函数返回表达式，此表达式已被格式化为日期或时间。 FormatDateTime(Date[, NamedFormat])参数Date必选项。要被格式化的日期表达式。NamedFormat可选项。指示所使用的日期/时间格式的数值，如果省略，则使用 vbGeneralDate。设置NamedFormat 参数可以有以下值：
ASP.NET C#经典代码集锦：30个实用示例
以下是对其中几个代码片段的详细解释： 1. 打开新的窗口并传送参数： 这段代码利用JavaScript的`window.open()`函数在用户选择一个选项后打开一个新的页面，并将DropDownList的选择值传递给新页面。在服务器端，...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值