一个asp函数，解决SQLInjection漏洞

函数很简单， 主要是针对字符串和数字两种类型的传入数据分别进行了处理，具体用法： MY]Z@  
&> Myf@  
字符类型的 %. =B=*  
strUsername = CheckInput(Request(“username“),“s“) "w#jC~J<W  
数字类型的 &jh'B,  
ID = CheckInput(Request(“id“),“i“) &QaFX,N"  
Cx.GEY|0  
下面是函数 A.@
S>H'P  
biJ"@dm 4  
'gDhi!h%  
Function CheckInput(str,strType) >}tm8|IHoo  
  函数功能：过滤字符参数中的单引号，对于数字参数进行判断，如果不是数值类型，则赋值0 ^gY^I`"e6  
  参数意义： str     ---- 要过滤的参数 $wgHaSni  
            strType ---- 参数类型，分为字符型和数字型，字符型为s，数字型为i 5.KhI<[  
Dim strTmp umt*;U=  
strTmp   = 2WK]I1_  
If strType =s Then nU{}R"|  
strTmp = Replace(Trim(str),,) hx4X#_)v  
ElseIf strType=i Then !Nu ~4  
If isNumeric(str)=False Then str=0 Z%]s+V)st  
strTmp = str \OV><|Lkh  
Else sYQ=nL  
strTmp = str vhA4ol  
End If 0}a="`p#<  
CheckInput = strTmp 5C}1iZEJ  
End Function ~(( '1+  
){u/v[O9"  
+j*hbG=  
KCE5Z?k  
转自： ASP教程采集

strTmp = Replace(Trim(str),,) rHzwSR@}1  
单引号捏? ws!pp\F  
ak:Y<}  
鉴定完毕.