一个asp函数，解决SQLInjection漏洞

函数很简单， 主要是针对字符串和数字两种类型的传入数据分别进行了处理，具体用法： 0 /9 C=v  
3hxV`rb  
字符类型的 #eX
<=H]  
strUsername = CheckInput(Request(“username“),“s“) G"tlJ7$myQ  
数字类型的 V.6pfL  
ID = CheckInput(Request(“id“),“i“) 8I Ip,#%v  
OCq5}%yU&i  
下面是函数 NCY2^  
hn\d{HP  
h-RhmQA=Iz  
Function CheckInput(str,strType) '$eJATtC  
  函数功能：过滤字符参数中的单引号，对于数字参数进行判断，如果不是数值类型，则赋值0 {>
8?6m-  
  参数意义： str     ---- 要过滤的参数 Z/!awf>  
            strType ---- 参数类型，分为字符型和数字型，字符型为s，数字型为i *_7/'0E(3  
Dim strTmp c{ +bY.J  
strTmp   = 8vtembna4  
If strType =s Then ,LP^v'[V7  
strTmp = Replace(Trim(str),,) .<Jv=  
ElseIf strType=i Then y?P`vHf  
If isNumeric(str)=False Then str=0 pw5{=bD  
strTmp = str k2tSgJW  
Else Od^Sr4C  
strTmp = str |
)C*i  
End If Dv L8}dz  
CheckInput = strTmp X;2LK!x;y  
End Function S4?WR+:h  
OZd (~E  
yimK"4!j5A  
|i#06jIq  
转自： ASP教程采集

strTmp = Replace(Trim(str),,) ,,+4d :8$  
单引号捏? (xoYYO  
uubIL+  
鉴定完毕.