一个asp函数，解决SQLInjection漏洞

函数很简单， 主要是针对字符串和数字两种类型的传入数据分别进行了处理，具体用法： aN(|'uO@  
UT="2*3gz  
字符类型的 eilYA_FL.  
strUsername = CheckInput(Request(“username“),“s“) n[(Qr9  
数字类型的 $v Z$'(  
ID = CheckInput(Request(“id“),“i“) m>SErxU(z  
YM DMH"3  
下面是函数 rSrIEP,c'  
j!3 Gz  
Uo2GK3nT  
Function CheckInput(str,strType) VWO9=A*Y|  
  函数功能：过滤字符参数中的单引号，对于数字参数进行判断，如果不是数值类型，则赋值0 o: ;"w"G  
  参数意义： str     ---- 要过滤的参数 0 U
s5  
            strType ---- 参数类型，分为字符型和数字型，字符型为s，数字型为i Qqlup  
Dim strTmp ":_vK}5  
strTmp   = 2=_gf  
If strType =s Then f47M#UC  
strTmp = Replace(Trim(str),,) zhf.NCSt(  
ElseIf strType=i Then O eL}EVs8=  
If isNumeric(str)=False Then str=0 Bm]8m=p  
strTmp = str w
gw(YU  
Else 'R_g">B.  
strTmp = str 4Fm90O  
End If NB<A>baL*  
CheckInput = strTmp +a*tO@HG  
End Function XU"~
h64]  
q&d~ \{J  
h9eMcCU  
5ls6t{Ci  
转自： ASP教程采集

strTmp = Replace(Trim(str),,) r9dyA5oD  
单引号捏? rOVVL%@QqJ  
[1u-Q%?#  
鉴定完毕.