一个asp函数，解决SQLInjection漏洞

函数很简单， 主要是针对字符串和数字两种类型的传入数据分别进行了处理，具体用法： 7<su8*?  
W5Jw^,iPd  
字符类型的 @ujwN([I  
strUsername = CheckInput(Request(“username“),“s“) Nvd(?+c  
数字类型的 lJ;Wi  
ID = CheckInput(Request(“id“),“i“) >@7$=Y>D  
'> ib K|  
下面是函数 y'm!h?8  
p6%Vf  
O14QlIk  
Function CheckInput(str,strType) Z"VP<-  
  函数功能：过滤字符参数中的单引号，对于数字参数进行判断，如果不是数值类型，则赋值0 JU17]gQ  
  参数意义： str     ---- 要过滤的参数 iyn9[>j
e  
            strType ---- 参数类型，分为字符型和数字型，字符型为s，数字型为i Xf4~e(O  
Dim strTmp =803rNe  
strTmp   = vCP[7KhGj  
If strType =s Then qb[hKp5K6  
strTmp = Replace(Trim(str),,) IL|Q-e}Ol  
ElseIf strType=i Then Lf(( zk:pt  
If isNumeric(str)=False Then str=0 H$Kc~#=  
strTmp = str qFWN._R  
Else H^|TV]^;N  
strTmp = str B>nj{W<o  
End If X$5  
CheckInput = strTmp ( unmf,y  
End Function /<)Vd  
KRL.TLgq)  
j{lurb)y  
%M`48TW)  
转自： ASP教程采集

strTmp = Replace(Trim(str),,) #csP.z3^y  
单引号捏? 0Agse)  
<yipy[D  
鉴定完毕.