一个asp函数，解决SQLInjection漏洞

函数很简单， 主要是针对字符串和数字两种类型的传入数据分别进行了处理，具体用法： 0aY|:  
7**zb"#y  
字符类型的 j0L%jz
 
strUsername = CheckInput(Request(“username“),“s“) (')t>B1Z  
数字类型的 ;j T{< Y  
ID = CheckInput(Request(“id“),“i“) 12 )  
rPB Ju0D"  
下面是函数 t%mi#Gh(  
e)HFI|>  
wf  ]Wm  
Function CheckInput(str,strType) s>DFAu!  
  函数功能：过滤字符参数中的单引号，对于数字参数进行判断，如果不是数值类型，则赋值0 \*MZ1Q*x  
  参数意义： str     ---- 要过滤的参数 C/!P&`<6  
            strType ---- 参数类型，分为字符型和数字型，字符型为s，数字型为i Zg_b(ks  
Dim strTmp \l=A2i7TQ  
strTmp   = vVBWhY]  
If strType =s Then }!K #  
strTmp = Replace(Trim(str),,) gX!K%qJBg  
ElseIf strType=i Then bmHj)^v5]  
If isNumeric(str)=False Then str=0 H2],auBY  
strTmp = str `m'RvUc  
Else mCnl@  
strTmp = str qg j;E=7  
End If Z%?>H iy'o  
CheckInput = strTmp ^X#)'\T
 
End Function :30daKo  
w8+phN(-M  
i`i`Hu>  
htYfIy{5w  
转自： ASP教程采集

strTmp = Replace(Trim(str),,)  \&d1bq  
单引号捏? 6Lq8#{/]u  
-.)f~#8  
鉴定完毕.