一个asp函数，解决SQLInjection漏洞

函数很简单， 主要是针对字符串和数字两种类型的传入数据分别进行了处理，具体用法： 6~}H
3rvO}  
0D'Wr(U(  
字符类型的 TU/J]'))C  
strUsername = CheckInput(Request(“username“),“s“) aPC!M4#  
数字类型的 ~g{,W  
ID = CheckInput(Request(“id“),“i“) )=D&NO67Pq  
_x!pMj(A  
下面是函数 w#e'K-=  
AUC< m.  
>$y >  
Function CheckInput(str,strType) d}ZHY[  
  函数功能：过滤字符参数中的单引号，对于数字参数进行判断，如果不是数值类型，则赋值0 {ZcZ\Q;6  
  参数意义： str     ---- 要过滤的参数 dc05,Bz  
            strType ---- 参数类型，分为字符型和数字型，字符型为s，数字型为i {OOt+U!  
Dim strTmp l
K4+8VZ  
strTmp   = 4(R2V]  
If strType =s Then k mjm6  
strTmp = Replace(Trim(str),,) _a&|,ajy>  
ElseIf strType=i Then E(@;p%:  
If isNumeric(str)=False Then str=0
FMVmH!E  
strTmp = str oo!g?X[[  
Else ~laZ(Bma);  
strTmp = str asg>TOW  
End If o >Lk`\  
CheckInput = strTmp Pio^5jhB6  
End Function z+*Z<c5d  
-?W@-*J
 
OLrD4 e  
9zJ`;1  
转自： ASP教程采集

strTmp = Replace(Trim(str),,) akQH+j  
单引号捏? hptuTBD  
PlZiTP  
鉴定完毕.