一个asp函数，解决SQLInjection漏洞

函数很简单， 主要是针对字符串和数字两种类型的传入数据分别进行了处理，具体用法： S6CM/  
Q<W9<&VZe  
字符类型的 }YJ(|z""  
strUsername = CheckInput(Request(“username“),“s“) 3"=%[  
数字类型的 0jCYOl  
ID = CheckInput(Request(“id“),“i“) &EKP93  
WF\ hXO  
下面是函数 YfL|FsCh  
OE)n4X  
^]c/hb|X  
Function CheckInput(str,strType) Fgq"d7`9@  
  函数功能：过滤字符参数中的单引号，对于数字参数进行判断，如果不是数值类型，则赋值0
tn\Y:  
  参数意义： str     ---- 要过滤的参数 Su`LBz"  
            strType ---- 参数类型，分为字符型和数字型，字符型为s，数字型为i U">J$M@  
Dim strTmp 1];rW`Bw  
strTmp   = N"MK 0k  
If strType =s Then fD+'{ivN4  
strTmp = Replace(Trim(str),,)  ^ZnlWZ@r  
ElseIf strType=i Then vw=OGjT_>m  
If isNumeric(str)=False Then str=0 .|Y2'TWQ  
strTmp = str 'W>Bz,M6yo  
Else 9Axk-c  
strTmp = str amq]&.M  
End If ]:`q/iS&  
CheckInput = strTmp :q=u+h_  
End Function fy04/_,q  
,ButNBv  
`$oGgz6ZT  
4DI.RK9  
转自： ASP教程采集

strTmp = Replace(Trim(str),,) ULc oti=,  
单引号捏? {a`t1oX(  
Jj+|>(P  
鉴定完毕.