一个asp函数，解决SQLInjection漏洞

函数很简单， 主要是针对字符串和数字两种类型的传入数据分别进行了处理，具体用法： (&x\,19U$  
\>k#]4@rp  
字符类型的 v"TH[}C9D  
strUsername = CheckInput(Request(“username“),“s“) u<r('IW0  
数字类型的 @ MoMU  
ID = CheckInput(Request(“id“),“i“) A+*(Pds  
K4L#%KUPW  
下面是函数 rxA)&  
4nXS9RiF2  
UsKn4Kh  
Function CheckInput(str,strType) jl29~^@}1i  
  函数功能：过滤字符参数中的单引号，对于数字参数进行判断，如果不是数值类型，则赋值0 _ L6>4  
  参数意义： str     ---- 要过滤的参数 Rzj!~`&N  
            strType ---- 参数类型，分为字符型和数字型，字符型为s，数字型为i {]N?DmF  
Dim strTmp "2j~3aWj  
strTmp   = vv_?ip:t  
If strType =s Then ozwqK oE  
strTmp = Replace(Trim(str),,) y`Y}P1y*  
ElseIf strType=i Then ~&|i'f[  
If isNumeric(str)=False Then str=0 c=E.-  
strTmp = str e+aQ$1^t  
Else FJ. :*K[  
strTmp = str 7-B'G/PS/  
End If }/FM#Xh  
CheckInput = strTmp r{;4(3E2  
End Function EU~'n-  
(G'ddZAJV  
?E+XD'~  
;!Bkk9r"H  
转自： ASP教程采集

strTmp = Replace(Trim(str),,) 
^el:)$  
单引号捏? l,8|E  
#r}c<?>Vw  
鉴定完毕.