一个asp函数，解决SQLInjection漏洞

函数很简单， 主要是针对字符串和数字两种类型的传入数据分别进行了处理，具体用法： YK#bzu ,!  
Two$wL/  
字符类型的 Ie>)U)/$  
strUsername = CheckInput(Request(“username“),“s“) xe[Cuy$P  
数字类型的 *Got  
ID = CheckInput(Request(“id“),“i“) e$|g  
) 'x4#5]  
下面是函数 %7q,[g8  
<\c5
 
 Z+ [Nco
 
Function CheckInput(str,strType) (NUwkAOM}  
  函数功能：过滤字符参数中的单引号，对于数字参数进行判断，如果不是数值类型，则赋值0 'M2Jw8i  
  参数意义： str     ---- 要过滤的参数 S2/c2  
            strType ---- 参数类型，分为字符型和数字型，字符型为s，数字型为i #LEK?
]y  
Dim strTmp +hg|!SS@5  
strTmp   = zRsG$)B  
If strType =s Then z-nhL=  
strTmp = Replace(Trim(str),,) S5]rIcM  
ElseIf strType=i Then 2bU3*m^M  
If isNumeric(str)=False Then str=0 %^}3:0G  
strTmp = str <N^2|*3  
Else ipfiarT~)  
strTmp = str \:C@L&3[  
End If i
F2/:iP  
CheckInput = strTmp y8jk9Tv  
End Function +~RiCZt  
b8v?@s~  
a2fV0d6*l  
*,!6#Z7  
转自： ASP教程采集

strTmp = Replace(Trim(str),,) tn201TDZ]=  
单引号捏? q?'*T?|  
!Y/$I?13Z  
鉴定完毕.