一个asp函数，解决SQLInjection漏洞

函数很简单， 主要是针对字符串和数字两种类型的传入数据分别进行了处理，具体用法： s{q2C}=$?D  
5;^8wh(  
字符类型的 T]vD ,I+  
strUsername = CheckInput(Request(“username“),“s“) _>`0!mG  
数字类型的 J5o"JRJ"  
ID = CheckInput(Request(“id“),“i“) Ti)n(G9$  
gR(c;  
下面是函数 1OGlD+f  
'QV4=h`  

?B}>
[
 
Function CheckInput(str,strType) TRq~n7Y7C  
  函数功能：过滤字符参数中的单引号，对于数字参数进行判断，如果不是数值类型，则赋值0 A!f0AEA,  
  参数意义： str     ---- 要过滤的参数 q@!:<Ra,){  
            strType ---- 参数类型，分为字符型和数字型，字符型为s，数字型为i { &qBr&kg  
Dim strTmp I0ie3ESdN  
strTmp   = cQ8:;-M   
If strType =s Then Q.|2/6hD7[  
strTmp = Replace(Trim(str),,) JIQzP?+?  
ElseIf strType=i Then l1:j/[B=  
If isNumeric(str)=False Then str=0 ;|^fAc~9{r  
strTmp = str RTU:J67E  
Else wd]Yjr#%Ii  
strTmp = str zR .MXr  
End If {e@1,19  
CheckInput = strTmp ~8X'p6  
End Function m,KY_1%M  
TB[vpTC9)  
j;y|Ys)I  
Qm-P& g-  
转自： ASP教程采集

strTmp = Replace(Trim(str),,) }cT}G;L'-  
单引号捏? 4_Jdh48-d  
>H1d9y+Z  
鉴定完毕.