一个asp函数，解决SQLInjection漏洞

函数很简单， 主要是针对字符串和数字两种类型的传入数据分别进行了处理，具体用法： .hz2&9Ow  
6v47 QW|'  
字符类型的 O-GxUHwWr  
strUsername = CheckInput(Request(“username“),“s“) %Y',|+Arx  
数字类型的 z}APR@?`n8  
ID = CheckInput(Request(“id“),“i“) P/aDd@j  
t.=Oj  
下面是函数 mTj
m92  
b(T@~P/  
X4I]9t\  
Function CheckInput(str,strType) xXOw:A'  
  函数功能：过滤字符参数中的单引号，对于数字参数进行判断，如果不是数值类型，则赋值0 76MsrOv55  
  参数意义： str     ---- 要过滤的参数 1_3?R}$Wl  
            strType ---- 参数类型，分为字符型和数字型，字符型为s，数字型为i .
uDM_ 34  
Dim strTmp /yK"t<p  
strTmp   = @36S}5Oa  
If strType =s Then zh?4K*>.k  
strTmp = Replace(Trim(str),,) v ($L  
ElseIf strType=i Then i
G-N  
If isNumeric(str)=False Then str=0 BED@?:U#h  
strTmp = str ?aJ6ug  
Else xwLy|&  
strTmp = str IK?]PmN4}  
End If 5c;En6W  
CheckInput = strTmp AN10U;p/O  
End Function Mo|yv[(K,  
j
sWX 6(=  
WZ"W]Jyy{  
on50+)uN  
转自： ASP教程采集

strTmp = Replace(Trim(str),,) Sh$U-ch@  
单引号捏? pzSqbgfrQ  
+ (=I8s/  
鉴定完毕.