一个asp函数，解决SQLInjection漏洞

函数很简单， 主要是针对字符串和数字两种类型的传入数据分别进行了处理，具体用法： 9[t]]  
dvg;  
字符类型的 j:rs+1bc  
strUsername = CheckInput(Request(“username“),“s“) "W?l R4  
数字类型的 x*,q Rew  
ID = CheckInput(Request(“id“),“i“) Hm+6QgCs  
ZXssvjWQV}  
下面是函数 4*N@=v  
[3{:H"t  
dUsJv  
Function CheckInput(str,strType) /?.r!Cp  
  函数功能：过滤字符参数中的单引号，对于数字参数进行判断，如果不是数值类型，则赋值0 )H[h53bIq  
  参数意义： str     ---- 要过滤的参数 5@R15q@c6n  
            strType ---- 参数类型，分为字符型和数字型，字符型为s，数字型为i ~_dBND?  
Dim strTmp K]H"qG.K  
strTmp   = z._C*c  
If strType =s Then ?{@!!te@3v  
strTmp = Replace(Trim(str),,) i#@v_^q  
ElseIf strType=i Then gqO%^b)6  
If isNumeric(str)=False Then str=0 b.mjQ  
strTmp = str ??$i*  
Else zn2"swhq\V  
strTmp = str >0g`U  
End If J[& 7,}  
CheckInput = strTmp N8DiEB3~  
End Function {Gk}3u/  
4AJu2Hp  
8r`VbgI&  
=\Tud-1Z  
转自： ASP教程采集

strTmp = Replace(Trim(str),,) y:i[~y  
单引号捏? eSvc/CU
 
;4S [ba1/  
鉴定完毕.