一个asp函数，解决SQLInjection漏洞

函数很简单， 主要是针对字符串和数字两种类型的传入数据分别进行了处理，具体用法： 0@um  

}U(bMo@;  
字符类型的 {<$tEj:  
strUsername = CheckInput(Request(“username“),“s“) yk'L_M(=  
数字类型的 ${rWDZ0Z  
ID = CheckInput(Request(“id“),“i“) |2=@8_am  
A0Q`Aqs  
下面是函数 }Q*J!OH  
Uq @].3nf  
&8pGq./lr=  
Function CheckInput(str,strType) /i dI-  
  函数功能：过滤字符参数中的单引号，对于数字参数进行判断，如果不是数值类型，则赋值0 F!phTu  
  参数意义： str     ---- 要过滤的参数 2$MoKOx8$  
            strType ---- 参数类型，分为字符型和数字型，字符型为s，数字型为i xkRS?Q g  
Dim strTmp KLW>O_+   
strTmp   = d&AO4^  
If strType =s Then XdmpfUR,13  
strTmp = Replace(Trim(str),,) #jzF6j%G  
ElseIf strType=i Then rT=C/SKP  
If isNumeric(str)=False Then str=0 /CH]'u^j  
strTmp = str yMu G? x+  
Else }& W=   
strTmp = str ~1E!Co  
End If :?j=MV  
CheckInput = strTmp <;yS&8  
End Function "dGN0i  
YK[2KTlo  
#t;]s<  
XI|k,Ko<  
转自： ASP教程采集

strTmp = Replace(Trim(str),,) yU&;\'  
单引号捏? ~tt\^:\3~S  
$A9Pi"/*z  
鉴定完毕.