一个asp函数，解决SQLInjection漏洞

函数很简单， 主要是针对字符串和数字两种类型的传入数据分别进行了处理，具体用法： '^DUq?E4  
.D!WO  
字符类型的 w]}f6VlEl  
strUsername = CheckInput(Request(“username“),“s“) ^(DL+r,  
数字类型的 J B(<.E2  
ID = CheckInput(Request(“id“),“i“) 5~QTg  
$7Cgo&J  
下面是函数 {U^j&E  
<W2ZoqaV  
Gp8psH  
Function CheckInput(str,strType) fQO ""qh  
  函数功能：过滤字符参数中的单引号，对于数字参数进行判断，如果不是数值类型，则赋值0 U:\p$hL9  
  参数意义： str     ---- 要过滤的参数 BtzYA"  
            strType ---- 参数类型，分为字符型和数字型，字符型为s，数字型为i Sj@15 W  
Dim strTmp jccOsG9;_  
strTmp   = )%t7\1)B3  
If strType =s Then :WO{xg  
strTmp = Replace(Trim(str),,) &1l~&,,  
ElseIf strType=i Then *t]v}ZV*  
If isNumeric(str)=False Then str=0 jI A#!4  
strTmp = str !U
Vk9  
Else \OT6L'l],  
strTmp = str ]q&tQJ/Fa  
End If G%$}WA]|  
CheckInput = strTmp Td&d,;  
End Function pjdo|  
oBC]UL;8xJ  
s*.3ZS5  
z>p]/Sa  
转自： ASP教程采集

strTmp = Replace(Trim(str),,) !?b/-~o7S  
单引号捏? 5aG5BA[N  
e,"FnW  
鉴定完毕.