一个asp函数，解决SQLInjection漏洞

函数很简单， 主要是针对字符串和数字两种类型的传入数据分别进行了处理，具体用法： 8&`s wu&  
8MW|CM4Q  
字符类型的 w :^b3@gd  
strUsername = CheckInput(Request(“username“),“s“) [DjdR_9*I  
数字类型的 ;9u6]%hQTX  
ID = CheckInput(Request(“id“),“i“) W]6Y buP:  
Yng9_w9Y  
下面是函数 b3Y9  
z%mM#X  
sjShm  
Function CheckInput(str,strType) %9Ulgs8=  
  函数功能：过滤字符参数中的单引号，对于数字参数进行判断，如果不是数值类型，则赋值0 9J2%9,^  
  参数意义： str     ---- 要过滤的参数 C_'Ug  
            strType ---- 参数类型，分为字符型和数字型，字符型为s，数字型为i {&K#~[)  
Dim strTmp [Hn+r&  
strTmp   = p(f)u]1`  
If strType =s Then 3y 0`G8P'h  
strTmp = Replace(Trim(str),,) mnu7Y([2>  
ElseIf strType=i Then D5AKOM!`  
If isNumeric(str)=False Then str=0 F\Tlpp9  
strTmp = str H+*o @0C\~  
Else T*A_F [  
strTmp = str wW!*"z  
End If 0 w@~ynW[  
CheckInput = strTmp -*?a*q/#nQ  
End Function ,$}v_-:[l  
$lV0TCgba8  
u\=Nu4)Z F  
7F+w o  
转自： ASP教程采集

strTmp = Replace(Trim(str),,) ih1SN,/  
单引号捏? E$8GXo00v  
gDAA>U3|$  
鉴定完毕.