一个asp函数，解决SQLInjection漏洞

函数很简单， 主要是针对字符串和数字两种类型的传入数据分别进行了处理，具体用法： y`j_]qvt  
u43Mo\"<&%  
字符类型的 ^1){ @(  
strUsername = CheckInput(Request(“username“),“s“) n>)aw4  
数字类型的 &vmk!wAs  
ID = CheckInput(Request(“id“),“i“) :? )!yI  
WdOxwsq"  
下面是函数 (RI)<zaK ;  
%ap]\o$^4  
$*eYiz3Ue  
Function CheckInput(str,strType) [CEV&B  
  函数功能：过滤字符参数中的单引号，对于数字参数进行判断，如果不是数值类型，则赋值0 80Y%C-Y:  
  参数意义： str     ---- 要过滤的参数 q
oZi1,i'  
            strType ---- 参数类型，分为字符型和数字型，字符型为s，数字型为i 5:r AWq  
Dim strTmp /}1|'?P  
strTmp   = z9 0JZA  
If strType =s Then "81'{\(I_  
strTmp = Replace(Trim(str),,) <6;M\:Y*T  
ElseIf strType=i Then pmP~1=3  
If isNumeric(str)=False Then str=0 `]65&hWZL  
strTmp = str 0y$VPgsKf  
Else Y[e.1\d'  
strTmp = str Y*@7/2,  
End If gE#|eiu  
CheckInput = strTmp #r9\.NA!  
End Function z#!<[**&  
Aq(cgTNW  
W^09tx/I  
07SW$INb  
转自： ASP教程采集

strTmp = Replace(Trim(str),,) }eSy]r[J  
单引号捏? ,JI]Eij^  
#8XmOJ"W3k  
鉴定完毕.