一个asp函数，解决SQLInjection漏洞

函数很简单， 主要是针对字符串和数字两种类型的传入数据分别进行了处理，具体用法： qp (ng8%c  
$,"{g<*k;  
字符类型的 f2Frb  
strUsername = CheckInput(Request(“username“),“s“) bf2R15|t5`  
数字类型的 xExy?5H7  
ID = CheckInput(Request(“id“),“i“) q+2yp&zF  
NfcY30}:  
下面是函数 % INRds  
 b<v\  
) ?rJKr[`  
Function CheckInput(str,strType) Ao)hb4ex  
  函数功能：过滤字符参数中的单引号，对于数字参数进行判断，如果不是数值类型，则赋值0 1L1_x'tT%  
  参数意义： str     ---- 要过滤的参数 =$601r  
            strType ---- 参数类型，分为字符型和数字型，字符型为s，数字型为i p%e!&:!  
Dim strTmp RP
'`\||*  
strTmp   = 0-cqux2U  
If strType =s Then KpBh@S  
strTmp = Replace(Trim(str),,) 8;9GM^L  
ElseIf strType=i Then Knsb`1"E^6  
If isNumeric(str)=False Then str=0 b9%}<w  
strTmp = str O-B~~$
g  
Else O @fX +W?U  
strTmp = str `EVTlq@<  
End If j-|YE?AA  
CheckInput = strTmp GXB4&Q!C  
End Function L(Q v78F  
r4caIV  
|`T3H5X>  
.CFaBwj  
转自： ASP教程采集

strTmp = Replace(Trim(str),,) i.2O~30ST  
单引号捏? VaZ+TE  
=MO2M~e!  
鉴定完毕.