一个asp函数，解决SQLInjection漏洞

函数很简单， 主要是针对字符串和数字两种类型的传入数据分别进行了处理，具体用法： T#O??3/%$1  
'ho{eR@d  
字符类型的 AA:no=  
strUsername = CheckInput(Request(“username“),“s“) 7);:ZpDv%L  
数字类型的 |8)Xc=Hz  
ID = CheckInput(Request(“id“),“i“) I|/'Ds:  
@+_&Y]   
下面是函数 8#` 6M5  
E:nt)Ef,  
1zktU.SZ  
Function CheckInput(str,strType) A{<xc[w;p  
  函数功能：过滤字符参数中的单引号，对于数字参数进行判断，如果不是数值类型，则赋值0 =raA?Bp3;(  
  参数意义： str     ---- 要过滤的参数 c0 WFlj9b  
            strType ---- 参数类型，分为字符型和数字型，字符型为s，数字型为i y@wF_WX2  
Dim strTmp w.N,)]h  
strTmp   = }xlKonk  
If strType =s Then T[Pa/j{  
strTmp = Replace(Trim(str),,) s{/qS3=  
ElseIf strType=i Then \Z/k;=Sla  
If isNumeric(str)=False Then str=0 ZB5?!.ND  
strTmp = str MF[z-7  
Else 5A&y]5-Q`  
strTmp = str V8O.3fo`[`  
End If Vj; vo`T  
CheckInput = strTmp Ih1|LR/c  
End Function *T4<&  
NfE.N&vI_c  
y7<&vIEC  
Napf"Av  
转自： ASP教程采集

strTmp = Replace(Trim(str),,) )qPSD2h  
单引号捏? fY2wDD  
|ZU#IQVQfn  
鉴定完毕.