一个asp函数，解决SQLInjection漏洞

函数很简单， 主要是针对字符串和数字两种类型的传入数据分别进行了处理，具体用法： `4 A%BKYB  
zKk2>.  
字符类型的 g< {jgF  
strUsername = CheckInput(Request(“username“),“s“) Io&F0~Z;;(  
数字类型的 5q?ZuAAA  
ID = CheckInput(Request(“id“),“i“) b=+'i  
?o9g5Z  
下面是函数 *^u5?{$l(  
Kq;
Yb&  
FiqcM-Af4  
Function CheckInput(str,strType) R{hKl#j;>  
  函数功能：过滤字符参数中的单引号，对于数字参数进行判断，如果不是数值类型，则赋值0 f+huhJS5e  
  参数意义： str     ---- 要过滤的参数 gI^*O@Q4{b  
            strType ---- 参数类型，分为字符型和数字型，字符型为s，数字型为i .gWYKZM  
Dim strTmp 5A6d]  
strTmp   = >2~q{e  
If strType =s Then K_B-KK(^  
strTmp = Replace(Trim(str),,) y8un&LP  
ElseIf strType=i Then x*[\$E`v  
If isNumeric(str)=False Then str=0 /wL}
+  
strTmp = str \6xVIQ& 0  
Else v7/qJ9l  
strTmp = str e? fFh,a  
End If ~V"D|U;i +  
CheckInput = strTmp .~6p/fHX  
End Function DO$jX 4  
|L4K#  
]|[oL6"  
;Z"6ve4  
转自： ASP教程采集

strTmp = Replace(Trim(str),,) `2?9eXC  
单引号捏? g~Zel}h#  
,\f!e#d  
鉴定完毕.