一个asp函数，解决SQLInjection漏洞

函数很简单， 主要是针对字符串和数字两种类型的传入数据分别进行了处理，具体用法： >U%:Nfo3  
+DpiX&^h   
字符类型的 @xBw'  
strUsername = CheckInput(Request(“username“),“s“) L2NO_N  
数字类型的 C{5^UCJkg  
ID = CheckInput(Request(“id“),“i“) -_4ZT^.Lna  
<D1>;C  
下面是函数 })Pq!u:3  
N.l
\2S}  
r6u) 6J=  
Function CheckInput(str,strType) 8B|qNf `Yi  
  函数功能：过滤字符参数中的单引号，对于数字参数进行判断，如果不是数值类型，则赋值0 XZ3)gYQi  
  参数意义： str     ---- 要过滤的参数
p%?VW  
            strType ---- 参数类型，分为字符型和数字型，字符型为s，数字型为i qh]ILE87(  
Dim strTmp 4!3mSWNV  
strTmp   = #&oL iz=hZ  
If strType =s Then yn;sd+:z  
strTmp = Replace(Trim(str),,) Mu~DB:Y9e  
ElseIf strType=i Then s .xJ},E9  
If isNumeric(str)=False Then str=0 ?F!='6D}b  
strTmp = str hj<h]dhp  
Else |J_kS90=  
strTmp = str BY&+fKae  
End If kpQXnDm2  
CheckInput = strTmp r^jiK\*  
End Function <hvVh9  
%YhM?jMW  
hM/:zC:  
^Hplrwj}  
转自： ASP教程采集

strTmp = Replace(Trim(str),,) 3EHn}#+U  
单引号捏? %`F&,!d  
GmJ4AYEP  
鉴定完毕.