一个asp函数，解决SQLInjection漏洞

函数很简单， 主要是针对字符串和数字两种类型的传入数据分别进行了处理，具体用法： k{' ZaP)  
`v*HH}aDO  
字符类型的 o'2eSm0H  
strUsername = CheckInput(Request(“username“),“s“) #g{R+#fm  
数字类型的 W+h2rv  
ID = CheckInput(Request(“id“),“i“) p-4$)w~6i  
c^}y9% 4c  
下面是函数 ,54z9F`  
BJ|l  
.}IW!$ dq  
Function CheckInput(str,strType) ,#Z%0NLe  
  函数功能：过滤字符参数中的单引号，对于数字参数进行判断，如果不是数值类型，则赋值0 +B*]RL[th  
  参数意义： str     ---- 要过滤的参数 (W}F\P  
            strType ---- 参数类型，分为字符型和数字型，字符型为s，数字型为i [
ZWAXl $  
Dim strTmp $ XjijD9R  
strTmp   = +_GS@)L`%  
If strType =s Then 5m8u:6kQu  
strTmp = Replace(Trim(str),,) Y'U1=w~E  
ElseIf strType=i Then uw;Sfx,s  
If isNumeric(str)=False Then str=0 hGtz[u#p  
strTmp = str (b25g!  
Else Q-7?'\h  
strTmp = str B;k'J:-"  
End If __=53]jGE  
CheckInput = strTmp $1yy;IyR  
End Function ucN' zq  
U1 _"D+XB  
$|K: 9  
hRf l\Q[  
转自： ASP教程采集

strTmp = Replace(Trim(str),,) M9iX_4  
单引号捏? 'z|Da&d P  
Ema[M5$R  
鉴定完毕.