一个asp函数，解决SQLInjection漏洞

函数很简单， 主要是针对字符串和数字两种类型的传入数据分别进行了处理，具体用法： v{u3[c   
19 5_1?'<  
字符类型的 \CB^9-V3  
strUsername = CheckInput(Request(“username“),“s“) >xWS>  
数字类型的 ,=/9Ld2w9  
ID = CheckInput(Request(“id“),“i“) 7)?C+=,0  
^<;W+dWdU  
下面是函数 kmQ:wf:  
7e_4sxg'(3  
ZO+RE7f*?c  
Function CheckInput(str,strType) JrP`u4f_  
  函数功能：过滤字符参数中的单引号，对于数字参数进行判断，如果不是数值类型，则赋值0 pPReo)  
  参数意义： str     ---- 要过滤的参数 U/>I! 7oe  
            strType ---- 参数类型，分为字符型和数字型，字符型为s，数字型为i /[R=-s ;  
Dim strTmp x]^d'o:cDP  
strTmp   = K\xz|Gq  
If strType =s Then @iz Onc:  
strTmp = Replace(Trim(str),,) p=+Y7NE)  
ElseIf strType=i Then Bm~^d7;Cw  
If isNumeric(str)=False Then str=0 gtKih  
strTmp = str 9z,sn#-t  
Else ak7%  
strTmp = str c <TEA  
End If R|?n  
CheckInput = strTmp j{C~wy!J  
End Function SSe;&Jk2d  
u`ir(JIj]  
q<}IO  
KOixFn1  
转自： ASP教程采集

strTmp = Replace(Trim(str),,) \8(Je"S  
单引号捏? ~/^fdGr  
r] /Ej!|  
鉴定完毕.