一个asp函数，解决SQLInjection漏洞

函数很简单， 主要是针对字符串和数字两种类型的传入数据分别进行了处理，具体用法： 4yl{:!la  
%nZ
l`<M  
字符类型的 .hl_zc#  
strUsername = CheckInput(Request(“username“),“s“) #4^d#Gj  
数字类型的 Ww7Ya]b.k  
ID = CheckInput(Request(“id“),“i“) ,EB}IG]  
-#|D>  
下面是函数 K;?D^n.  
;5Sdx5`_  
*M.xVUPr  
Function CheckInput(str,strType) L|=5jn9 :  
  函数功能：过滤字符参数中的单引号，对于数字参数进行判断，如果不是数值类型，则赋值0 !U^{`V jp[  
  参数意义： str     ---- 要过滤的参数  7GgZ: $d  
            strType ---- 参数类型，分为字符型和数字型，字符型为s，数字型为i d#ir=+o{h  
Dim strTmp 8|a./%gixs  
strTmp   = 2B,O
/3y  
If strType =s Then c3vb~l)  
strTmp = Replace(Trim(str),,) PVCoXOqh  
ElseIf strType=i Then 4DA34m(  
If isNumeric(str)=False Then str=0 OviS(}v4@  
strTmp = str </h^%mnd  
Else -pC8
L<  
strTmp = str Rr)+M3'  
End If @YJI'Hf67  
CheckInput = strTmp }#XFa#  
End Function Jup)m/  
)g0fN+Mb  
R@vcS=m7  
fr@F7s5}  
转自： ASP教程采集

strTmp = Replace(Trim(str),,) T<AT
&4  
单引号捏? hp\&g2_S0W  
zG!nqSDG  
鉴定完毕.