一个asp函数，解决SQLInjection漏洞

函数很简单， 主要是针对字符串和数字两种类型的传入数据分别进行了处理，具体用法： GYJ j$'  
^oq|^O  
字符类型的 `]19}GK~xo  
strUsername = CheckInput(Request(“username“),“s“) G^L9[c= ,  
数字类型的 DrBkR`a?  
ID = CheckInput(Request(“id“),“i“) _M;{}!Gc&A  
xo ^|d3  
下面是函数 r_bG+iw7p  
gV:0&g\v  
4C:dkaDq]  
Function CheckInput(str,strType) $'!n4}$}  
  函数功能：过滤字符参数中的单引号，对于数字参数进行判断，如果不是数值类型，则赋值0 cyjgi /Z  
  参数意义： str     ---- 要过滤的参数 T51oNO%^  
            strType ---- 参数类型，分为字符型和数字型，字符型为s，数字型为i jL3 *m  
Dim strTmp M,{;xf  
strTmp   = :TnU}i_/h  
If strType =s Then >U4bK^/Bp  
strTmp = Replace(Trim(str),,) b/#<::D `  
ElseIf strType=i Then Ym -U{a  
If isNumeric(str)=False Then str=0 -s0J8b  
strTmp = str p!T
ac%D+k  
Else e2nZwPH  
strTmp = str Bv*VNfUm  
End If F$:mGyl5_  
CheckInput = strTmp ecvZwL  
End Function T{#=A$vu  
_ qQ  
*z~
J ]  
oOXJ7|n  
转自： ASP教程采集

strTmp = Replace(Trim(str),,) ^:O*Sx.CA  
单引号捏? DAMw(  
VF7H0XR/k5  
鉴定完毕.