一个asp函数，解决SQLInjection漏洞

函数很简单， 主要是针对字符串和数字两种类型的传入数据分别进行了处理，具体用法： rYp3(k3  
]q6;#EUr?  
字符类型的 Uz7^1.-g4  
strUsername = CheckInput(Request(“username“),“s“) 0v]?6wX  
数字类型的 l$YC/bP  
ID = CheckInput(Request(“id“),“i“) b9"jtRTdz  
>/#KI~}'N  
下面是函数 _ib"
b#  
#BQ.R,  
3( ]M{4j  
Function CheckInput(str,strType) 7c;9$j  
  函数功能：过滤字符参数中的单引号，对于数字参数进行判断，如果不是数值类型，则赋值0 jr)7kP@  
  参数意义： str     ---- 要过滤的参数 Ed:eGm }  
            strType ---- 参数类型，分为字符型和数字型，字符型为s，数字型为i 0x9x@gF  
Dim strTmp ?\#N9+{W  
strTmp   = <BW[1h1k5_  
If strType =s Then ncSFj.}w]  
strTmp = Replace(Trim(str),,) u-1;'a  
ElseIf strType=i Then ^{\<N()R  
If isNumeric(str)=False Then str=0 (708H_  
strTmp = str 1&/FG(*/  
Else
8k^|G  
strTmp = str XK"
-'  
End If Uh'#izm[l  
CheckInput = strTmp .7 asW(  
End Function $46{<4.  
3b YCOqG  
!J=sk4T  
\@>b;4Fb+N  
转自： ASP教程采集

strTmp = Replace(Trim(str),,) {} Bf  
单引号捏? J>^\oAgpE  
xcJ`1*1N  
鉴定完毕.