一个asp函数，解决SQLInjection漏洞

函数很简单， 主要是针对字符串和数字两种类型的传入数据分别进行了处理，具体用法： &J hN&Ur  
jD^L<  
字符类型的 $hSu~}g  
strUsername = CheckInput(Request(“username“),“s“) *-|+phim  
数字类型的 oAyk  
ID = CheckInput(Request(“id“),“i“) Op)0D:BmR  
u."fJ2}l0X  
下面是函数 Q'+N72=  
0dkM72p  
@LL&ggV?  
Function CheckInput(str,strType) L''0`a. +S  
  函数功能：过滤字符参数中的单引号，对于数字参数进行判断，如果不是数值类型，则赋值0 `6mHt6"h  
  参数意义： str     ---- 要过滤的参数 faO8 &  
            strType ---- 参数类型，分为字符型和数字型，字符型为s，数字型为i UWn}0:6t  
Dim strTmp mZ;yk(  
strTmp   = cfeX(0  
If strType =s Then +X*`}-3  
strTmp = Replace(Trim(str),,) FYcMvY  
ElseIf strType=i Then ZVp\5V*  
If isNumeric(str)=False Then str=0 7Xad2wXn  
strTmp = str @su{Uno8/  
Else GoEIY  
strTmp = str fSqbGoIQ  
End If 3Gp4%UT&  
CheckInput = strTmp w ^<Y5K  
End Function )i_FU~ LRq  
INbjk;k  
m]-8?B1`Y  
Y6L+3*Qt  
转自： ASP教程采集

strTmp = Replace(Trim(str),,) ooZ-T>$  
单引号捏? owMH  
@6j*XF  
鉴定完毕.