sql注入防范问题，急急急急急急急急急急急急急急急急急急急急急急！

[wza]

我的网站有sql注入漏洞，我在网上找了个函数，可是不知道加到哪里，请高手指点，怎么做。谢谢了

[sunshift]

SQL注入被那些菜鸟级别的所谓黑客高手玩出了滋味，发现现在大部分黑客入侵都是基于SQL注入实现的，哎，谁让这个入门容易呢，好了，不说废话了，现在我开始说如果编写通用的SQL防注入程序一般的http请求不外乎get 和 post,所以只要我们在文件中过滤所有post或者get请求中的参数信息中非法字符即可，所以我们实现http 请求信息过滤就可以判断是是否受到SQL注入攻击。

　　IIS传递给asp.dll的get 请求是是以字符串的形式，，当 传递给Request.QueryString数据后，asp解析器会分析Request.QueryString的信息，，然后根据"&"，分出各个数组内的数据所以get的拦截如下：

　　首先我们定义请求中不能包含如下字符：

'|and|exec|insert|select|delete|update|count|*|%|chr|mid|master|truncate|char|declare

　　各个字符用"|"隔开，，然后我们判断的得到的Request.QueryString，具体代码如下 ：

dim sql_injdata
SQL_injdata = "'|and|exec|insert|select|delete|update|count|*|%|chr|mid|master|truncate|char|declare"
SQL_inj = split(SQL_Injdata,"|")
If Request.QueryString＜＞"" Then
　For Each SQL_Get In Request.QueryString
　　For SQL_Data=0 To Ubound(SQL_inj)
　　　if instr(Request.QueryString(SQL_Get),Sql_Inj(Sql_DATA))＞0 Then
　　　　Response.Write "＜Script Language=****＞alert('SQL通用防注入系统提示↓nn请不要在参数中包含非法字符尝试注入！');history.back(-1)＜/Script＞"
　　　　Response.end
　　　end if
　　next
　Next
End If

　　这样我们就实现了get请求的注入的拦截，但是我们还要过滤post请求，所以我们还得继续考虑request.form,这个也是以数组形式存在的，我们只需要再进一次循环判断即可。代码如下：

If Request.Form＜＞"" Then
　For Each Sql_Post In Request.Form
　　For SQL_Data=0 To Ubound(SQL_inj)
　　　if instr(Request.Form(Sql_Post),Sql_Inj(Sql_DATA))＞0 Then
　　　　Response.Write "＜Script Language=****＞alert('SQL通用防注入系统提示↓nn请不要在参数中包含非法字符尝试注入！nnHTTP://www.521movie.com ');history.back(-1)＜/Script＞"
　　　　Response.end
　　　end if
　　next
　next
end if

　　好了大功告成，我们已经实现了get和post请求的信息拦截，你只需要在conn.asp之类的打开数据库文件之前引用这个页面即可。放心的继续开发你的程序，不用再考虑是否还会受到SQL注入攻击。

[yjcity]

楼主还是把你的函数贴出来，人家才能告诉你该怎么用。

楼上贴那么一大堆东西也没有多少实际用处，防注入还是应该与系统具体需求结合起来，该用时间格式的就按时间格式检验，该数字格式的就按数字格式来检验，该文本格式的，如果用楼上的代码，那些技术相关的文章或英文文章全部都不要入库了，因为技术文章或英文包含and、%这些都是常事。

[wza]

Function SafeRequest(ParaName,ParaType)
　'--- 传入参数 ---
　'ParaName:参数名称-字符型
　'ParaType:参数类型-数字型(1表示以上参数是数字，0表示以上参数为字符)

　Dim ParaValue
　ParaValue=Request(ParaName)
　If ParaType=1 then
　　If not isNumeric(ParaValue) then
　　　Response.write "参数" & ParaName & "必须为数字型！"
　　　Response.end
　　End if
　Else
　　ParaValue=replace(ParaValue,"'","''")
　End if
　SafeRequest=ParaValue
End function

[wza]

大家给看看，这个函数我应放在哪

[wza]

说用代替ASP中的Request函数,我不知道要代替的是哪个函数

[ahcs]

网上教程到处都是呀

[yjcity]

就拿这个页面来举个例子：http://community.csdn.net/Expert/topic/4047/4047559.xml?temp=.7490045

我们换成asp页面：http://community.csdn.net/Expert/topic/4047/4047559.asp?temp=.7490045

就可以这样获取参数：
dim temp
temp=SafeRequest("temp",0)
这样就可以截断单引号了，再进行其他处理（比如第一位是小数点，后面是数字），就可以放心操作数据库。
如果页面是这样：http://community.csdn.net/Expert/topic/4047/4047559.asp?temp=7490045
temp是数字，就用
dim temp
temp=SafeRequest("temp",1)

如果页面是这样：http://community.csdn.net/Expert/topic/4047/4047559.asp?temp=7490045&ty=abc&id=1
就用
dim temp,ty,id
temp=SafeRequest("temp",1)
ty=SafeRequest("ty",0)
id=SafeRequest("id",1)


不过这段代码也未必完全适用你的系统，还是根据自己的实际需求来写判断比较好。

[iamgsyy]

Function SafeRequest(ParaName,ParaType)
　'--- 传入参数 ---
　'ParaName:参数名称-字符型
　'ParaType:参数类型-数字型(1表示以上参数是数字，0表示以上参数为字符)

　Dim ParaValue
　ParaValue=Request(ParaName)
　If ParaType=1 then
　　If not isNumeric(ParaValue) then
　　　Response.write "参数" & ParaName & "必须为数字型！"
　　　Response.end
　　End if
　Else
　　ParaValue=replace(ParaValue,"'","''")
　End if
　SafeRequest=ParaValue
End function
=========================================================
这个函数对于id为单个数字的用户来说已经安全了!它是从本质上防止了问题!而2楼那个看起来很专业!但防不住,人家可以用asc注入,这样排列组合一下,你的'|and|exec|insert|select|delete|update|count|*|%|chr|mid|master|truncate|char|declare 这点是不够的

[king2410]

主要是文字类型中的特殊字符要替换掉
其他类型的要做严格的类型检查