一个asp函数，解决SQLInjection漏洞

函数很简单， 主要是针对字符串和数字两种类型的传入数据分别进行了处理，具体用法： YUH/t
l  
BOG )JaDW  
字符类型的 "&ks83  
strUsername = CheckInput(Request(“username“),“s“) g=%&p?1@E  
数字类型的 yqU++;6  
ID = CheckInput(Request(“id“),“i“) I@B7uFj  
bM'AD[  
下面是函数 Ob6vg
^#  
ibq@0CR  
rx"zqm9 }u  
Function CheckInput(str,strType) Gg+>_b{S5T  
  函数功能：过滤字符参数中的单引号，对于数字参数进行判断，如果不是数值类型，则赋值0 tEUmED0FY  
  参数意义： str     ---- 要过滤的参数 VuY.})+J:  
            strType ---- 参数类型，分为字符型和数字型，字符型为s，数字型为i kmS8>O  
Dim strTmp )eFK@goGeb  
strTmp   = eOb`uyi  
If strType =s Then s6$3[9Vh&9  
strTmp = Replace(Trim(str),,) Y:a(y*y<  
ElseIf strType=i Then y{N9.H2  
If isNumeric(str)=False Then str=0 x0d+cSw  
strTmp = str @K/Ia!Lw  
Else W< n`[  
strTmp = str { nV zN(  
End If gr;M  
CheckInput = strTmp u62sq: GjH  
End Function X_qXH5^%  
2 zy^(%a  
GXfVjC31z
 
B'Wky>5)  
转自： ASP教程采集

strTmp = Replace(Trim(str),,) 'm|m+K83  
单引号捏? 0U>Q<I}  
Iqsk\2W]a3  
鉴定完毕.