一个asp函数，解决SQLInjection漏洞

函数很简单， 主要是针对字符串和数字两种类型的传入数据分别进行了处理，具体用法： )'t&q/Wn  
w,/6B&|  
字符类型的 XfDX:b1p  
strUsername = CheckInput(Request(“username“),“s“)
(-J<Vy]  
数字类型的
SeOy7  
ID = CheckInput(Request(“id“),“i“) iu|v9+  
#QS?s8IrW  
下面是函数 DN<M?u]  
FB_NkXR  
-"tY{}z  
Function CheckInput(str,strType) ol
}`Wwy  
  函数功能：过滤字符参数中的单引号，对于数字参数进行判断，如果不是数值类型，则赋值0 |EEi&GOR(y  
  参数意义： str     ---- 要过滤的参数 OJ>iq@>  
            strType ---- 参数类型，分为字符型和数字型，字符型为s，数字型为i kV+ R5R  
Dim strTmp {Zl4C;c  
strTmp   = }uiPvO+&p  
If strType =s Then QtlT&|$   
strTmp = Replace(Trim(str),,) V:>`*tlh  
ElseIf strType=i Then B:nK)"{  
If isNumeric(str)=False Then str=0 /B[}I}X  
strTmp = str I)lC{v  
Else t\%%d)d9  
strTmp = str 5*+I M*c  
End If m9!DOL1pl  
CheckInput = strTmp O2lIlCL  
End Function _Jy,yMQ^[_  
S<pk
c8  
,J&9kYz  
%qi%$  
转自： ASP教程采集

strTmp = Replace(Trim(str),,) [zx|eG<&-  
单引号捏? N%*9&FjrL  
@ t|3gF$X  
鉴定完毕.