一个asp函数，解决SQLInjection漏洞

函数很简单， 主要是针对字符串和数字两种类型的传入数据分别进行了处理，具体用法： <hA1[S}  
-ghmLMS%t  
字符类型的 r`8>@2sW1  
strUsername = CheckInput(Request(“username“),“s“) ET[vJnReC  
数字类型的 %0<-5&GE  
ID = CheckInput(Request(“id“),“i“) "dN4EA
&QJ  
ys#V_ysb  
下面是函数 R3`h$`G  
-{tB&V~+v  
rbEUq.Yk]~  
Function CheckInput(str,strType) *sPG,6>  
  函数功能：过滤字符参数中的单引号，对于数字参数进行判断，如果不是数值类型，则赋值0 j0F'
I*Z3  
  参数意义： str     ---- 要过滤的参数 P nxxW?  
            strType ---- 参数类型，分为字符型和数字型，字符型为s，数字型为i ff3HR+%M  
Dim strTmp 0:SR29(p1  
strTmp   = (> {CwtH][  
If strType =s Then MkCq$MA  
strTmp = Replace(Trim(str),,) z|5Sy.H>  
ElseIf strType=i Then s?g`ufF.t  
If isNumeric(str)=False Then str=0 {@7{!I|eD  
strTmp = str d>f.p"B.gj  
Else 0kp#+&)+  
strTmp = str >cE@m=[  
End If .e,(}_[[<  
CheckInput = strTmp A3#^R%2)W  
End Function cp&- 6 w+  
@-ms_Z  
NPFrn[M$  
wj$J}F  
转自： ASP教程采集

strTmp = Replace(Trim(str),,) TO|&}sDh  
单引号捏? ycr\vn t  
T/$6ov+K  
鉴定完毕.