一个asp函数，解决SQLInjection漏洞

函数很简单， 主要是针对字符串和数字两种类型的传入数据分别进行了处理，具体用法： S+KKGi_e  
yxx_%9X  
字符类型的 ;DX{+Z[  
strUsername = CheckInput(Request(“username“),“s“) Bn8&~  
数字类型的 !lzj.|7=1  
ID = CheckInput(Request(“id“),“i“) "24d:vf\  
6[XaIco=C  
下面是函数 {BM:c$3@j  
ApSseBhh  
P\WHM
(  
Function CheckInput(str,strType) >DY/CcG\P  
  函数功能：过滤字符参数中的单引号，对于数字参数进行判断，如果不是数值类型，则赋值0 $I-iq @  
  参数意义： str     ---- 要过滤的参数 3F;0a ;[  
            strType ---- 参数类型，分为字符型和数字型，字符型为s，数字型为i m`zd0IRTP  
Dim strTmp w7~]c,$y.  
strTmp   = chD7^&5]  
If strType =s Then bny@AP(CY+  
strTmp = Replace(Trim(str),,) rkS'OC  
ElseIf strType=i Then =aj|auu  
If isNumeric(str)=False Then str=0 0e"KdsA:<U  
strTmp = str "Vc|D (g  
Else bZWR.</  
strTmp = str YdvXp/P:|  
End If PC@HNto{  
CheckInput = strTmp EhO\N\p(Q=  
End Function ! weYOOu  
zQ<&[Tuwa  
W'k&DKhTqF  
5[zr(FuE  
转自： ASP教程采集

strTmp = Replace(Trim(str),,)
 ]igCV  
单引号捏? G2[2y-Rv  
0j;|IU\  
鉴定完毕.