一个asp函数，解决SQLInjection漏洞

函数很简单， 主要是针对字符串和数字两种类型的传入数据分别进行了处理，具体用法： \tgY2:  
+ f6LG 0q  
字符类型的 >|SIqB<%:  
strUsername = CheckInput(Request(“username“),“s“) ? $B4'wc5  
数字类型的 6{+yAsI  
ID = CheckInput(Request(“id“),“i“) L2VwW  
fJLl-H  
下面是函数 k[x-O?$O@  
K
&[0`sH!  
`:C1Wo^<  
Function CheckInput(str,strType) n5QO'Jr%[  
  函数功能：过滤字符参数中的单引号，对于数字参数进行判断，如果不是数值类型，则赋值0 Z|qI[uiO  
  参数意义： str     ---- 要过滤的参数 V>Jr4z  
            strType ---- 参数类型，分为字符型和数字型，字符型为s，数字型为i li
*S^uSF  
Dim strTmp N]W*ei  
strTmp   = Nn_fhc>  
If strType =s Then WDw<kX6p  
strTmp = Replace(Trim(str),,) B!&5*f}*  
ElseIf strType=i Then !td!">r46e  
If isNumeric(str)=False Then str=0 :I#.d7`uk  
strTmp = str ^(;x-d3  
Else oCCtjr  
strTmp = str ROkwjw  
End If 8#QT[H 4F  
CheckInput = strTmp sV"tN2W@  
End Function %wbdg&^  
u(Mbp$R'?  
?i<l7
 
}%XB*pzQ  
转自： ASP教程采集

strTmp = Replace(Trim(str),,) D*.3]3-I  
单引号捏? CAc]SxLh  
l4RqQ+[KA;  
鉴定完毕.