一个asp函数，解决SQLInjection漏洞

函数很简单， 主要是针对字符串和数字两种类型的传入数据分别进行了处理，具体用法： I@ }:} 8t  
(zye Ch  
字符类型的 ^|as]x!sv  
strUsername = CheckInput(Request(“username“),“s“) jlzqa7  
数字类型的 n5oB#>tI0  
ID = CheckInput(Request(“id“),“i“) "D8xHHb  
,Ea.ts>  
下面是函数 ]@M$.msg@  
)#i]exZ  
pk(<],0]X  
Function CheckInput(str,strType) -Qqb/y  
  函数功能：过滤字符参数中的单引号，对于数字参数进行判断，如果不是数值类型，则赋值0 #.a4}ya19  
  参数意义： str     ---- 要过滤的参数 =4+UX*&i?.  
            strType ---- 参数类型，分为字符型和数字型，字符型为s，数字型为i Z4bN|\I
  
Dim strTmp f{
WJM>$:  
strTmp   = <}N0y*m  
If strType =s Then '-gk))u>)  
strTmp = Replace(Trim(str),,) :3{@LOil^  
ElseIf strType=i Then Og"50-  
If isNumeric(str)=False Then str=0 ObMsncn  
strTmp = str 1wqCoDgkp  
Else +JBhw4et;.  
strTmp = str 0O"GI33Mg  
End If BP*
gnXj  
CheckInput = strTmp eJ$?T7aUf  
End Function D@5&xd_@4  
: bT*cgD{  
8r)eiERv  
BalOph4M[  
转自： ASP教程采集

strTmp = Replace(Trim(str),,) M1Od%nz3  
单引号捏? !)
;}zW!  
&g.w~KWa  
鉴定完毕.