一个asp函数，解决SQLInjection漏洞

函数很简单， 主要是针对字符串和数字两种类型的传入数据分别进行了处理，具体用法： ]7RK/Zu i  
xK4E+^ b  
字符类型的 &)|f|\yh"  
strUsername = CheckInput(Request(“username“),“s“) lwo,D}  
数字类型的 B B^81{A  
ID = CheckInput(Request(“id“),“i“) SRU#Y8Xv|  
1v<uA9A%[  
下面是函数 Yp8XZ3  
,mKUCG  
gKgdu($NJ  
Function CheckInput(str,strType) R;uP^  
  函数功能：过滤字符参数中的单引号，对于数字参数进行判断，如果不是数值类型，则赋值0 Q8]S6,pt  
  参数意义： str     ---- 要过滤的参数 ~q}]/0-m  
            strType ---- 参数类型，分为字符型和数字型，字符型为s，数字型为i pW>.3pj  
Dim strTmp :5jorVu  
strTmp   = 23opaX5V=  
If strType =s Then @V@<j)3P  
strTmp = Replace(Trim(str),,) 6;Mv)|FJF  
ElseIf strType=i Then 3E>]6  
If isNumeric(str)=False Then str=0 [|YJg]i-  
strTmp = str H>"P]Y)oX  
Else T(k:\z/  
strTmp = str L Z3=K`gj  
End If >feeVk  
CheckInput = strTmp 8^R~qp
g%  
End Function `_"?$ v2F  
zE7)4!  
Xob(4  
D2io3Lo$ov  
转自： ASP教程采集

strTmp = Replace(Trim(str),,) "tj]mij2)G  
单引号捏? lg 1r]  
u:,B&}j  
鉴定完毕.