一个asp函数，解决SQLInjection漏洞

函数很简单， 主要是针对字符串和数字两种类型的传入数据分别进行了处理，具体用法： cB=u;$k@*  
#R4KBXN  
字符类型的 &U)s%D8e;d  
strUsername = CheckInput(Request(“username“),“s“) Y[?Wt/O;  
数字类型的 P]{.e UB@c  
ID = CheckInput(Request(“id“),“i“) (w B[ ]O$@  
A@AGu#W  
下面是函数 lA 0_I"b2Y  
u3brb'Y+  
;-^9j)31+F  
Function CheckInput(str,strType) =u"|qD  
  函数功能：过滤字符参数中的单引号，对于数字参数进行判断，如果不是数值类型，则赋值0 $%8n,FJ[  
  参数意义： str     ---- 要过滤的参数 Q.$h![`6  
            strType ---- 参数类型，分为字符型和数字型，字符型为s，数字型为i E9-'!I!  
Dim strTmp tSa%ZkS  
strTmp   = ,#OG/r-H  
If strType =s Then `
~TGVa`D  
strTmp = Replace(Trim(str),,) l%~zj,ew  
ElseIf strType=i Then h l'k_<a*  
If isNumeric(str)=False Then str=0 'u/HQg*  
strTmp = str SJ+-H83x  
Else A|Gqjy^;@  
strTmp = str 'p]qN;`'O$  
End If &B7KWvAy  
CheckInput = strTmp d's`~HOU2  
End Function P32'`!/
:  
XhV"<&v  
PQ]N>'v-  
4jro4B`  
转自： ASP教程采集

strTmp = Replace(Trim(str),,) 6mLE-( Z7  
单引号捏? o!S_j^p[C  
\vQ (  
鉴定完毕.