一个asp函数，解决SQLInjection漏洞

函数很简单， 主要是针对字符串和数字两种类型的传入数据分别进行了处理，具体用法： (QA-"9v#i,  
0,;E.Py?.  
字符类型的 d*]Dv,#X  
strUsername = CheckInput(Request(“username“),“s“) d'x<-l9  
数字类型的 xYT#!K1*  
ID = CheckInput(Request(“id“),“i“) &e/@yu)x,  
AB/,S  
下面是函数 o(?VX`2"  
782[yLyv  
`4$4bXrP'  
Function CheckInput(str,strType) HKq2Js  
  函数功能：过滤字符参数中的单引号，对于数字参数进行判断，如果不是数值类型，则赋值0 97['VOh0  
  参数意义： str     ---- 要过滤的参数 6#OL ;Y]_  
            strType ---- 参数类型，分为字符型和数字型，字符型为s，数字型为i k'6<jEbk  
Dim strTmp Fl8w7LcF7  
strTmp   = 2]?w~qjWm  
If strType =s Then / c4;3>IS  
strTmp = Replace(Trim(str),,) !G+n"-h9'  
ElseIf strType=i Then R-=_z6<  
If isNumeric(str)=False Then str=0 E1$Hu
{  
strTmp = str 5xG|35Pj  
Else M"k3zK,  
strTmp = str Y\+(rC27  
End If # q0Ub-  
CheckInput = strTmp 7}2sIf[I  
End Function vg
UhN_rK  
(#!(Q) ]  
TBoM{s=.  
<`oCz Q1  
转自： ASP教程采集

strTmp = Replace(Trim(str),,) ~rVKQ-+4&  
单引号捏? f_Wkg)g  
+YGw4{\EL  
鉴定完毕.