一个asp函数，解决SQLInjection漏洞

函数很简单， 主要是针对字符串和数字两种类型的传入数据分别进行了处理，具体用法： }/{G  
w N-np3k  
字符类型的 [nBd
q"K  
strUsername = CheckInput(Request(“username“),“s“) !x, ;&  
数字类型的 v;r!rZX  
ID = CheckInput(Request(“id“),“i“) mnwYv..ePz  
LZ"yMnhOf  
下面是函数 W%)uKQha  
Lh"!Z  
N0:gY]o%  
Function CheckInput(str,strType) e{8j(` (;#  
  函数功能：过滤字符参数中的单引号，对于数字参数进行判断，如果不是数值类型，则赋值0 qg(rG5kD@  
  参数意义： str     ---- 要过滤的参数 h)vRvfcmY  
            strType ---- 参数类型，分为字符型和数字型，字符型为s，数字型为i  YjV-70'  
Dim strTmp e=]>TeqG0  
strTmp   = ]I|3v]6qR  
If strType =s Then 0."TSe83\  
strTmp = Replace(Trim(str),,) h.`U)6*?&N  
ElseIf strType=i Then XehpW}2\  
If isNumeric(str)=False Then str=0 @7C?]/8#  
strTmp = str o,#[Se*n  
Else D m|_;iO,  
strTmp = str %S2^i3  
End If /%fa_+,|-  
CheckInput = strTmp 0%9Nf!j  
End Function iyRB}[y  
.Y?/J,Ch  
6@2 S*\&  
.7!n%Ks  
转自： ASP教程采集

strTmp = Replace(Trim(str),,) q $Hg\ {c  
单引号捏? ZW]Q|vPh4U  
I^5T9}>Q  
鉴定完毕.