一个asp函数，解决SQLInjection漏洞

函数很简单， 主要是针对字符串和数字两种类型的传入数据分别进行了处理，具体用法： 4vK8kkW1  
R cY>k  
字符类型的 f0+2t.tj  
strUsername = CheckInput(Request(“username“),“s“) <VjJAu  
数字类型的 Gy1xG.yM~  
ID = CheckInput(Request(“id“),“i“) 0YH+B
 
R8*Q$rH<  
下面是函数 ZA~Z1Mro#"  
AJt!!crs  
d {lP  
Function CheckInput(str,strType) va/m~k|i  
  函数功能：过滤字符参数中的单引号，对于数字参数进行判断，如果不是数值类型，则赋值0 Z>F^C}
8f  
  参数意义： str     ---- 要过滤的参数 puSLqouTM  
            strType ---- 参数类型，分为字符型和数字型，字符型为s，数字型为i I3u{zHVwI  
Dim strTmp x+? 9C  
strTmp   = ci,+Bjc  
If strType =s Then [\)oo  
strTmp = Replace(Trim(str),,) K*K1(_x=  
ElseIf strType=i Then >,C4rC+:XN  
If isNumeric(str)=False Then str=0 ,p{`pma  
strTmp = str L;_c|\%  
Else G@!z$  
strTmp = str Y izE5[*  
End If !=Y;h[J.p  
CheckInput = strTmp I^*'.z!4Q  
End Function 0X..e$'  
"SWMk!  
+5<k-0v  
C>^D*C(  
转自： ASP教程采集

strTmp = Replace(Trim(str),,) 7&}P{<}o^  
单引号捏? i;\s.wrzH  
]7sx;KFv  
鉴定完毕.