一个asp函数，解决SQLInjection漏洞

函数很简单， 主要是针对字符串和数字两种类型的传入数据分别进行了处理，具体用法： <k'JhMwN  
1HOYp*{#wP  
字符类型的 9gFb=&1k  
strUsername = CheckInput(Request(“username“),“s“) pdCn98}%-  
数字类型的 &%3$zgvR  
ID = CheckInput(Request(“id“),“i“) Fl)p^uUtl  
f%r0K6p  
下面是函数 [>+}2-#  
V^Gz7`^  
Th1/Bxb:  
Function CheckInput(str,strType) 15PFnk6E|  
  函数功能：过滤字符参数中的单引号，对于数字参数进行判断，如果不是数值类型，则赋值0 l"9.zPvT<  
  参数意义： str     ---- 要过滤的参数 {|)u).n|  
            strType ---- 参数类型，分为字符型和数字型，字符型为s，数字型为i }py6H[  
Dim strTmp 9e^H
TUFbG  
strTmp   = $x_6 .AOZ,  
If strType =s Then _m3}0q  
strTmp = Replace(Trim(str),,) ch2Qk8  
ElseIf strType=i Then H(f~B<7q  
If isNumeric(str)=False Then str=0 rzmd`)g  
strTmp = str (pY'v/a-  
Else w#V{'{DKp  
strTmp = str nT UKA  
End If )nJo\HFXv  
CheckInput = strTmp % H"A%  
End Function 1O" Mo  
yL =*yC  
]WZ_~8  
Ml &Cr  
转自： ASP教程采集

strTmp = Replace(Trim(str),,) |a!AgvNF  
单引号捏? _"BYnPq@wb  
{O\>"2}m'f  
鉴定完毕.