一个asp函数，解决SQLInjection漏洞

函数很简单， 主要是针对字符串和数字两种类型的传入数据分别进行了处理，具体用法： U[|5:qWs
 
l S3LX  
字符类型的 >~Xe` }'  
strUsername = CheckInput(Request(“username“),“s“) IC5QH<.$C  
数字类型的 -
KV,l  
ID = CheckInput(Request(“id“),“i“) $,J0) ~  
4I$Y"|_e  
下面是函数 `^,E4Qy  
j7MUA#6$  
dq@ *8ui  
Function CheckInput(str,strType) %\(-<aT  
  函数功能：过滤字符参数中的单引号，对于数字参数进行判断，如果不是数值类型，则赋值0 [qW%H,_  
  参数意义： str     ---- 要过滤的参数 |!9xL*A  
            strType ---- 参数类型，分为字符型和数字型，字符型为s，数字型为i Il9xNVos#  
Dim strTmp RRPPojKZ  
strTmp   = deArH5&!  
If strType =s Then ]hS<"=oj  
strTmp = Replace(Trim(str),,) )c&ya|h  
ElseIf strType=i Then X'<RqvDc5  
If isNumeric(str)=False Then str=0 1/m$#sz  
strTmp = str <" nWGF4d  
Else qD4s?j-9  
strTmp = str yf0v,]v[  
End If A$N%deb  
CheckInput = strTmp W4&8  
End Function 7%EIn9P  
g-wE(L  
;akW i]  
%hN>o)  
转自： ASP教程采集

strTmp = Replace(Trim(str),,) w-ald?`  
单引号捏? HBR/" m  
BHAFO E  
鉴定完毕.