一个asp函数，解决SQLInjection漏洞

函数很简单， 主要是针对字符串和数字两种类型的传入数据分别进行了处理，具体用法： P b-4$n2c  
}}qY,@eeX  
字符类型的 ' hDs.Wnu  
strUsername = CheckInput(Request(“username“),“s“) -zg 6^f_pW  
数字类型的 l(Ya,/4  
ID = CheckInput(Request(“id“),“i“) b_&:tE--]  
$D='NzE/  
下面是函数 i>7]9gBm1q  
I`77[  
+~>cAWZq_  
Function CheckInput(str,strType) b@S~ =  
  函数功能：过滤字符参数中的单引号，对于数字参数进行判断，如果不是数值类型，则赋值0 e?7y$H-  
  参数意义： str     ---- 要过滤的参数 uZTbJ3$$  
            strType ---- 参数类型，分为字符型和数字型，字符型为s，数字型为i O7
]kcA  
Dim strTmp H:nO\]  
strTmp   = d]USk&8  
If strType =s Then OI_Px3) y  
strTmp = Replace(Trim(str),,) `PZ\3SC'i  
ElseIf strType=i Then =Fc}T%  
If isNumeric(str)=False Then str=0 7g5Pc_  
strTmp = str 7z_ZD0PxPc  
Else ;VzdlCZ@  
strTmp = str Q\
W)}  
End If 8=@f lK  
CheckInput = strTmp riF-9 %i  
End Function _FNW[V  
6i;q=N$'  
s{OV-H  
f8\DAN  
转自： ASP教程采集

strTmp = Replace(Trim(str),,) DQ}&J  
单引号捏? :]4s;q:m  
#)m[R5g(  
鉴定完毕.