一个asp函数，解决SQLInjection漏洞

函数很简单， 主要是针对字符串和数字两种类型的传入数据分别进行了处理，具体用法： q?w%%.9]X  
_s=<Y^l%x  
字符类型的 E9.1~ )  
strUsername = CheckInput(Request(“username“),“s“) 2:[<E2z  
数字类型的 ,ueA'GZ  
ID = CheckInput(Request(“id“),“i“) *|+$7j  
sBxCi~  
下面是函数 
)DW".c  
>FFp"%%  
0!c/4^  
Function CheckInput(str,strType) kmJ<AnK  
  函数功能：过滤字符参数中的单引号，对于数字参数进行判断，如果不是数值类型，则赋值0 tsB}'+!v#  
  参数意义： str     ---- 要过滤的参数 g]b%<DJ  
            strType ---- 参数类型，分为字符型和数字型，字符型为s，数字型为i 21?>re
zJ  
Dim strTmp pX
NH  
strTmp   = $0M7P5]N*G  
If strType =s Then |f}`uF  
strTmp = Replace(Trim(str),,) +miL naO~L  
ElseIf strType=i Then MqWM!v-M  
If isNumeric(str)=False Then str=0 #Guwbg  
strTmp = str obX2/  
Else ZE/Aj/7Qy  
strTmp = str Ox aS<vQ3  
End If wxG*mOw  
CheckInput = strTmp ~ayU\4B  
End Function N9H qFp  
z.t,qi$;{U  
~a>3,v-  
Ac>GF  
转自： ASP教程采集

strTmp = Replace(Trim(str),,) ' b,zE[Q  
单引号捏? 57N<OQW
f  
@<1T&X{Z!  
鉴定完毕.