一个asp函数，解决SQLInjection漏洞

函数很简单， 主要是针对字符串和数字两种类型的传入数据分别进行了处理，具体用法： FN295:Iuw  
qwDoYyyu  
字符类型的 62{[)jt{  
strUsername = CheckInput(Request(“username“),“s“) 2Wq/_:  
数字类型的 4&'_~qU  
ID = CheckInput(Request(“id“),“i“) k ks ?S',  
:j(D&?ao  
下面是函数 eKek~U&  
wVY;)1?  
?*A"#0  
Function CheckInput(str,strType) O!.mc=Gx7  
  函数功能：过滤字符参数中的单引号，对于数字参数进行判断，如果不是数值类型，则赋值0 3:G94cp5  
  参数意义： str     ---- 要过滤的参数 kU$M 8J.  
            strType ---- 参数类型，分为字符型和数字型，字符型为s，数字型为i j aq/]I7  
Dim strTmp ljRR{HOl  
strTmp   = qr[+^*Ha  
If strType =s Then DU.[Sp  
strTmp = Replace(Trim(str),,) R22P ol
 
ElseIf strType=i Then U&<w{cuA  
If isNumeric(str)=False Then str=0 }doJ=lc  
strTmp = str =OU]<%  
Else XqK\'8]\Mw  
strTmp = str t4CI+fqy  
End If PbN"+qM  
CheckInput = strTmp J t,7S4JL  
End Function rCFTch"  
x:WxEw>R  
?L~Z]+-  
1q(o3%   
转自： ASP教程采集

strTmp = Replace(Trim(str),,) ~TEKxgU  
单引号捏? 60St99@O  
Rooem dCM  
鉴定完毕.