一个asp函数，解决SQLInjection漏洞

函数很简单， 主要是针对字符串和数字两种类型的传入数据分别进行了处理，具体用法： v-PXZ'7~  
:$n=$C-wp  
字符类型的 \ioH\9  
strUsername = CheckInput(Request(“username“),“s“) `|/<\  
数字类型的 |6$p;Aar  
ID = CheckInput(Request(“id“),“i“) MgY0q?.S=  
#*KNPh  
下面是函数 lR(+tj)9uO  
svq<)hAf<  
TTKs3iTXz  
Function CheckInput(str,strType) PF53mUs4  
  函数功能：过滤字符参数中的单引号，对于数字参数进行判断，如果不是数值类型，则赋值0 =W"F[fD  
  参数意义： str     ---- 要过滤的参数 `I3r3WyA  
            strType ---- 参数类型，分为字符型和数字型，字符型为s，数字型为i #H:7@  
Dim strTmp ROous4MG  
strTmp   = )/wk( O+  
If strType =s Then K2<9mDn&  
strTmp = Replace(Trim(str),,) wbst8*$  
ElseIf strType=i Then k<"oiCE  
If isNumeric(str)=False Then str=0 aP/T<QZ~  
strTmp = str rsy'q(N[  
Else F 9@h|#an  
strTmp = str u4/kR  
End If {o>j6RS\  
CheckInput = strTmp nYX@J6!  
End Function Ipf=ZD  
;9c<K  
&MCbYph,  
1 =M ?GDc  
转自： ASP教程采集

strTmp = Replace(Trim(str),,) <kx&w(=  
单引号捏? sk=-M8;\  
|v$JCU3!A  
鉴定完毕.