一个asp函数，解决SQLInjection漏洞

函数很简单， 主要是针对字符串和数字两种类型的传入数据分别进行了处理，具体用法： e$p1Th*|]4  
YKs^%GO+  
字符类型的 FEm1^X#]  
strUsername = CheckInput(Request(“username“),“s“) +Zty}fe  
数字类型的 wt_?B_n
R  
ID = CheckInput(Request(“id“),“i“) U&d-?PI  
b3y,4ke"  
下面是函数 RpaA)R,  
MZ|c7f&`  
6a2w-}Fs  
Function CheckInput(str,strType) ^,ZvKA"}+/  
  函数功能：过滤字符参数中的单引号，对于数字参数进行判断，如果不是数值类型，则赋值0 E:dT_x<Y  
  参数意义： str     ---- 要过滤的参数 =oKPMmpCZ  
            strType ---- 参数类型，分为字符型和数字型，字符型为s，数字型为i fd,}YAiX  
Dim strTmp ]VHdE_7
)  
strTmp   = ^}Dv$\;6  
If strType =s Then :`Zl\!]E`o  
strTmp = Replace(Trim(str),,) /%}YuN  
ElseIf strType=i Then ^c[CyZ:a  
If isNumeric(str)=False Then str=0 &a2V-|G',  
strTmp = str #IL~0t  
Else wzLiVe-  
strTmp = str &s6(3k  
End If .@/z-OgXg  
CheckInput = strTmp oN1wrf}Sh  
End Function AIRVvW~($  
+~pc%3*  
7:R{
~|R  
MRl*rK  
转自： ASP教程采集

strTmp = Replace(Trim(str),,) ,ex(pmZ;  
单引号捏? XKPt[$ab  
K&gc5L  
鉴定完毕.