一个asp函数，解决SQLInjection漏洞

函数很简单， 主要是针对字符串和数字两种类型的传入数据分别进行了处理，具体用法： Z3X&<Y5  
1A`?y& Ll  
字符类型的 ;EE&~&*w  
strUsername = CheckInput(Request(“username“),“s“) wB1|r{  
数字类型的 U&Sbm~Qi  
ID = CheckInput(Request(“id“),“i“) K=!ZI/+ju  
2-cU -i4  
下面是函数 8ACYuN\  
HdY3DdC%q  
!SO$k%b}!  
Function CheckInput(str,strType) j &0fC!k  
  函数功能：过滤字符参数中的单引号，对于数字参数进行判断，如果不是数值类型，则赋值0 =E"kv!e   
  参数意义： str     ---- 要过滤的参数 m>Z\ rqOK  
            strType ---- 参数类型，分为字符型和数字型，字符型为s，数字型为i Ul$
X%  
Dim strTmp =}%#$  
strTmp   = pb/{ss+  
If strType =s Then ZVL-o<6  
strTmp = Replace(Trim(str),,) 0w'y#U)&8  
ElseIf strType=i Then xu_XX#9?b  
If isNumeric(str)=False Then str=0 },n,P&M\`  
strTmp = str ard3yNQt  
Else vs'L1$L'c  
strTmp = str J1c&"Oh  
End If {P<BJ52=  
CheckInput = strTmp Vav+$l|j@  
End Function #T$'.M  
%_j?<h&  
-NflaV~  
>DL-Q\U  
转自： ASP教程采集

strTmp = Replace(Trim(str),,) ]UCk_zWsn1  
单引号捏? *OGXu07 !  
Gwrx)Mq  
鉴定完毕.