一个asp函数，解决SQLInjection漏洞

函数很简单， 主要是针对字符串和数字两种类型的传入数据分别进行了处理，具体用法： lvODhoT  
Z" H;t\P  
字符类型的 *tT}N@<%  
strUsername = CheckInput(Request(“username“),“s“) PA803R74  
数字类型的 <uBRLe`)  
ID = CheckInput(Request(“id“),“i“) SIm1fC  
qZE3T:S  
下面是函数 A@_>9;   
~9APc{"A  
jP/Vqe%%8  
Function CheckInput(str,strType) ;=IJHk1&  
  函数功能：过滤字符参数中的单引号，对于数字参数进行判断，如果不是数值类型，则赋值0 <sm"3qs"_  
  参数意义： str     ---- 要过滤的参数 vO$cF*  
            strType ---- 参数类型，分为字符型和数字型，字符型为s，数字型为i m;4ti9  
Dim strTmp ceJ#>Rj  
strTmp   = K_ymA,&()  
If strType =s Then :sK4mRF  
strTmp = Replace(Trim(str),,) s* u1n+Zq  
ElseIf strType=i Then ZJcX-Z!\  
If isNumeric(str)=False Then str=0 j&/+/s9N  
strTmp = str lijTL-3  
Else dZIbajs'  
strTmp = str r?Mf3U^G  
End If :4
)x  
CheckInput = strTmp ks phO-  
End Function :qqG%RB  
nu+^D$ait  
3rFku"zT$  
|xZu?)M4  
转自： ASP教程采集

strTmp = Replace(Trim(str),,) A{-S )Z3}  
单引号捏? mzM95yQ^Z  
ZZ
{c  
鉴定完毕.