一个asp函数，解决SQLInjection漏洞

函数很简单， 主要是针对字符串和数字两种类型的传入数据分别进行了处理，具体用法： G"&9u2k  
]v7f9MC'\  
字符类型的 COJny/FT|  
strUsername = CheckInput(Request(“username“),“s“) f]H[uzsV  
数字类型的 iTi]D2jC  
ID = CheckInput(Request(“id“),“i“) `Y`Ujr\6  
n2\;`9zm  
下面是函数 _SM5x,Zd  
[4'C4Zl  
6?nAO  
Function CheckInput(str,strType) uNe5Mv|}  
  函数功能：过滤字符参数中的单引号，对于数字参数进行判断，如果不是数值类型，则赋值0 3B:U>F,]4  
  参数意义： str     ---- 要过滤的参数 !P7&{I,e  
            strType ---- 参数类型，分为字符型和数字型，字符型为s，数字型为i cOa.]Kk  
Dim strTmp VH1PC  
strTmp   = B'\^[  
If strType =s Then 5I9~OJ>  
strTmp = Replace(Trim(str),,) _gZ8UZ)  
ElseIf strType=i Then ?2
l#=t?PP  
If isNumeric(str)=False Then str=0 [xiZkV([  
strTmp = str 0,*clvH\;  
Else p$dVGvM(  
strTmp = str T% J;~|  
End If Fi.gf?d  
CheckInput = strTmp -miWXEe@l  
End Function t3!?F(&  
s"b()JP  
Z_{`$nW  
1qXqQA  
转自： ASP教程采集

strTmp = Replace(Trim(str),,) qUX  
单引号捏? ^LgaMmz  
!HyPe"`oL  
鉴定完毕.