一个asp函数，解决SQLInjection漏洞

函数很简单， 主要是针对字符串和数字两种类型的传入数据分别进行了处理，具体用法： T^9k,J(rM  
pq0F!XmU  
字符类型的 8':^tMd  
strUsername = CheckInput(Request(“username“),“s“) M5DW!^  
数字类型的 48 DC  
ID = CheckInput(Request(“id“),“i“) V6%J9+DK  
ooa>~!91P  
下面是函数 'LY.7cW  
^b-o  
-DgJkyt+<  
Function CheckInput(str,strType) gGl}~  
  函数功能：过滤字符参数中的单引号，对于数字参数进行判断，如果不是数值类型，则赋值0 }Xv2I$J  
  参数意义： str     ---- 要过滤的参数 )LESdX  
            strType ---- 参数类型，分为字符型和数字型，字符型为s，数字型为i lc%2fVG-e  
Dim strTmp JGjqBuz#A*  
strTmp   =
L' w }  
If strType =s Then 4?GW]'d  
strTmp = Replace(Trim(str),,) W|S{v7[l  
ElseIf strType=i Then Cf#[E~24  
If isNumeric(str)=False Then str=0 M7rVH\:[-  
strTmp = str Ic_>[E?k  
Else (h;4irfX  
strTmp = str >gNVL (  
End If `
4V_I%lJ&  
CheckInput = strTmp $ K>.|\
 
End Function Ph(bgQg  
%j4  
v6B}ov[Y2  
Qp9)Rc5  
转自： ASP教程采集

strTmp = Replace(Trim(str),,)  +z/_'DE  
单引号捏? ,[6N64fy  
no_(J>p^&  
鉴定完毕.