NB叶子的一些防SQL函数=====(转载)

原创 2005年01月02日 19:02:00
最近休息,没事情看了几个黑客网站上的内容(都是因为我的网站最近已经被些无聊人士搞过两三次,而且每次的手段都不同,也看得出各自水平都不一样。前段时间比较忙,没多少时间来这里。现在闲下来,今天发现这个东西,贴出来给大家做个参考,函数本身是很简单,主要是看它的思路怎么样?)

NB叶子的一些防SQL函数
程序代码:
函数部分'用途:检查是否为数字,以及数字是否超出范围
'输入:检查字符,传值方式(0直接传,1取Form,2取QueryString,3取cookies,4直接Reqeust),开始数字(默认数字),结束数字(为-1则不检查大小)
Function CheckNum(str_str,int_quest,int_startnum,int_endnum)  
    mystr=Trim(str_str)
    Select Case int_quest
    Case 1
        istr=Request.Form(mystr)
    Case 2
        istr=Request.QueryString(mystr)
    Case 3
        istr=Request.Cookies(mystr)
Case 4
        istr=Request(mystr)
    Case Else
        istr=mystr
    End Select  
istr=Left(istr,32) 
    If IsNumeric(istr) Then
       iNum=CDbl(istr)
    Else
       iNum=int_startnum
    End If
    If int_endnum>-1Then
       If iNum<int_startnum Then iNum=int_startnum
       If iNum>int_endnum Then iNum=int_endnum 
    End If  
    CheckNum=iNum
End Function
'------------------------------------------------
'用途:检查过滤字符串
'输入:字符串,传值方式(0直接传,1取Form,2取QueryString,3取cookies,4直接Reqeust),检查方式(1不过滤html,2纯html,3标题过滤,4其他html过滤,),字符段截取长度
Function CheckStr(str_str,int_quest,int_type,int_strlen)
    mystr=str_str
    Select Case int_quest
    Case 1
        istr=Request.Form(mystr)
    Case 2
        istr=Request.QueryString(mystr)
    Case 3
        istr=Request.Cookies(mystr)
Case 4
        istr=Request(mystr)
    Case Else
        istr=mystr
    End Select 
    istr=""&Trim(istr)
    istr=Replace(istr,"'","''")
    Select Case int_type
    Case 1 
        istr=Replace(istr,CHR(32),"&nbsp;")
        istr=Replace(istr,CHR(9),"&nbsp;")
        istr=Replace(istr,CHR(10) & CHR(10),"</P><P> ")
        istr=Replace(istr,CHR(10),"<BR> ")   
        istr=Replace(istr,CHR(13),"")      
    Case 2    
     istr=istr
    Case 3    
        istr=Replace(istr,CHR(32),"&nbsp;")
        istr=Replace(istr,CHR(9),"&nbsp;")      
        istr=Replace(istr,CHR(13), "")
        istr=Replace(istr,"<","&lt;")
        istr=Replace(istr,">","&gt;") 
        istr=Replace(istr,CHR(34),"&quot;") 
        istr=Replace(istr," ","&nbsp;")
        istr=Replace(istr,CHR(39), "&#39;")   
    Case Else
        istr=Replace(istr,CHR(32),"&nbsp;")
        istr=Replace(istr,CHR(9),"&nbsp;")
        istr=Replace(istr,CHR(10) & CHR(10), "</P><P> ")
        istr=Replace(istr,CHR(10), "<BR> ")   
        istr=Replace(istr,CHR(13), "")
        istr=Replace(istr,"<","&lt;")
        istr=Replace(istr,">","&gt;") 
        istr=Replace(istr,CHR(34),"&quot;") 
        istr=Replace(istr," ","&nbsp;")
        istr=Replace(istr,CHR(39), "&#39;")     
    End select
    istr=CutStr(istr,int_strlen,"")
    CheckStr=istr
End Function
'------------------------------------------------
'用途:截取字符串
'输入:字符串,字符段截取长度,超过部分字符
Function CutStr(str_str,int_strlen,str_addtrr)
Dim k,i
k=0 
For i=1 to Len(str_str)
     c=Abs(Asc(Mid(str_str,i,1)))
     If c>255 Then
         k=k+2
     Else
         k=k+1
     End If
     If k>=int_strlen Then Exit For   
Next
CutStr=Left(str_str,k)&str_addtrr
End Function

网站防止转载,复制的解决办法

前两天我的朋友的博客新站,刚刚发布的原创的文章就被他的好友转载到百度贴吧上去,因为毕竟是新站么,原创文章是很重要的,但是朋友的不地道却让他苦不堪言,要知道一点,百度贴吧的权重是很高的,在里面发帖,一般...
  • chenlycly
  • chenlycly
  • 2014年05月04日 11:57
  • 789

复制简书上一篇基础文章

复制简书上一篇基础文章,很基础但是很受用  原文地址 本章主要介绍的是Android的绘图机制和处理技巧 1.屏幕尺寸的信息: 屏幕参数有屏幕大小即屏幕对角线的长度,用“...
  • ning_gg
  • ning_gg
  • 2016年02月17日 16:53
  • 655

MySQL+SQL函数大全

《MySQL函数大全》 [color=red]字符串函数[/color] ASCII(str)  返回字符串str的第一个字符的ASCII值(str是空串时返回0) mysql> selec...
  • chenlix
  • chenlix
  • 2013年11月30日 11:54
  • 1824

最安全的网络验证码防破解系统

1.百宝云注册码,是网络验证,动态混合加密模式,目前业界最安全的加密模式,使用百宝云注册码系统就再也不用担心你的脚本被破解;   用百宝云做防破解要轻松很多,因为可以自己控制服务器端的逻辑代码,这样...
  • zhineng007
  • zhineng007
  • 2015年11月13日 17:25
  • 837

一些sql函数

 1、取月份month(riqi) as fum
  • JerryXue
  • JerryXue
  • 2009年01月04日 09:51
  • 192

什么是叶子类目

叶子类目叶子类目 叶子类目:下面没有子类目的类目。调用taobao.itemcats.get.v2(获取后台供卖家发布商品的标准商品类目) 参考 后台类目前台类目 属性工具: 请点击属性工具,图形化界...
  • diyagoanyhacker
  • diyagoanyhacker
  • 2011年06月28日 11:33
  • 5460

叶子分页类2

Rem =================================================================Rem = RCSfile:Cls_Pages.aspRem ...
  • hongliya
  • hongliya
  • 2005年01月10日 16:58
  • 1189

NB的一些算法

A*搜寻算法 俗称A星算法。这是一种在图形平面上,有多个节点的路径,求出最低通过成本的算法。常用于游戏中的NPC的移动计算,或线上游戏的BOT的移动计算上。该算法像Dijkstra算法一样,可以找到...
  • tkp2014
  • tkp2014
  • 2015年03月22日 20:37
  • 238

NB-IoT频段

国内的NB-IoT主要运行在B5和B8频段。
  • zoomdy
  • zoomdy
  • 2017年05月26日 11:27
  • 2839

CSDN如何转载他人文章

利用Markdown可以解析html的特点,我们可以很方便的转载他人的文章。
  • Michael753951
  • Michael753951
  • 2017年04月21日 04:01
  • 517
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:NB叶子的一些防SQL函数=====(转载)
举报原因:
原因补充:

(最多只允许输入30个字)