一个asp函数，解决SQLInjection漏洞

函数很简单， 主要是针对字符串和数字两种类型的传入数据分别进行了处理，具体用法： (sSGJS'X  
PDS?>Jg(  
字符类型的 KJv[z  
strUsername = CheckInput(Request(“username“),“s“) TSH'OW !b  
数字类型的 Dqc2;>  
ID = CheckInput(Request(“id“),“i“) 9/=+2SZ  
VsDY,=Ww  
下面是函数 !tSh9L;<O  
NpxgF<G  
I9<%fv  
Function CheckInput(str,strType) ')TS'p,n  
  函数功能：过滤字符参数中的单引号，对于数字参数进行判断，如果不是数值类型，则赋值0 Fd#Zu.Np  
  参数意义： str     ---- 要过滤的参数 CY\D.Eow  
            strType ---- 参数类型，分为字符型和数字型，字符型为s，数字型为i !xU[BCbfYV  
Dim strTmp K,,'{j2#f  
strTmp   = +(Jh$b_  
If strType =s Then yG^pND>_df  
strTmp = Replace(Trim(str),,) x->+wJm@s  
ElseIf strType=i Then }nptmc  
If isNumeric(str)=False Then str=0 d(K}v\3!  
strTmp = str p||mR  
Else >2ha6A[  
strTmp = str 4Ik'beZqK  
End If 6(>,qt,9S  
CheckInput = strTmp )SJ"IY\P  
End Function tNQACM8F;  

-@XOe&q  
Ed+jSO0  
ZFX6iAxd  
转自： ASP教程采集

strTmp = Replace(Trim(str),,) 1vS-m
x  
单引号捏? nTD4^'  
uL~wMX  
鉴定完毕.