一个asp函数，解决SQLInjection漏洞

函数很简单， 主要是针对字符串和数字两种类型的传入数据分别进行了处理，具体用法： !{SEm"J^  
`_f3o,5  
字符类型的 MM^tk{2?.  
strUsername = CheckInput(Request(“username“),“s“) 7}nOF{RH]  
数字类型的 /A_ IS`  
ID = CheckInput(Request(“id“),“i“) 9gWQGkql  
a5&wS@) ;  
下面是函数 {B[i|(xQx  
Vv zd>yII  
6H3_qx  
Function CheckInput(str,strType) z9VQsC'K  
  函数功能：过滤字符参数中的单引号，对于数字参数进行判断，如果不是数值类型，则赋值0 @m(\f  
  参数意义： str     ---- 要过滤的参数 Ron^PvvY&  
            strType ---- 参数类型，分为字符型和数字型，字符型为s，数字型为i F9d][ P@@  
Dim strTmp ?Ww',e  
strTmp   = A^g81s.5  
If strType =s Then N`#v"f<~Q  
strTmp = Replace(Trim(str),,) F`Pu$>8C  
ElseIf strType=i Then S46[2-v1  
If isNumeric(str)=False Then str=0 @w2}WX>  
strTmp = str U
;;Har  
Else Qi[T!1  
strTmp = str 6_9w1 ,WE  
End If Ad]r )d{  
CheckInput = strTmp 0}aJCJ9sx=  
End Function IPJs$PtKok  
0V1kZ.  
o]jo R3  
~L?p/3m   
转自： ASP教程采集

strTmp = Replace(Trim(str),,) h7o{l7`)  
单引号捏? &npf %Eub  
pKp#4Js  
鉴定完毕.