建站专家,专业网站建设 为客户创造互联网时代新价值
网站没有访问量?网站没有排名?创意网络来帮您!
专注于推广营销型企业网站建设,让您的网站“活”起来!

在线咨询
经济型网站1500元 标准型网站2500元 商务型网站3500元 定制型网站
行业资讯 技术支持 编程技术 优化技术 建设文摘 营销技术 建设帮助
国内虚拟主机 香港虚拟主机 美国虚拟主机
服务项目
企业网站解决方案企业网站解决方案
打造企业品牌形象,建立企业网络平台,提供全方位的企业网站建设一条龙服务。
企业网站优化推广方案企业网站优化推广方案
专业的SEO服务,网站优化,排名提升,为企业创造更多的商机。
域名主机租用服务域名主机租用服务
稳定的DNS服务器,24小时不间断监控,为您保证稳定、高速的网站运作环境。
搜索引擎化化SEO
我要新建网站
番禺网站建设为您建立一个能不断为您带来新客户的网站[了解详情]

改版我的网站
网站改版可以带来优质的用户体验,增加网站优化细节
[了解详情]
番禺网站建设教你三招防SQL注入

    番禺网站建设经常听到有客户说ASP网站不安全,或者不如PHP的安全,其实,这里要和大家更正一点,不安全的是程序设计人员对程序安全的理解,以及对程序的编写不够经验所导致一些网站给攻击或被黑客入侵。网站给黑,有很多方面,下面只介绍如何防止SQL注入方面的问题,下面介绍三种方法:

网站防SQL注入第一种方法:
squery=lcase(Request.ServerVariables("QUERY_STRING"))
sURL=lcase(Request.ServerVariables("HTTP_HOST"))

SQL_injdata =":|;|>|<|--|sp_|xp_|\|dir|cmd|^|(|)|+|$|'|copy|format|and|exec|insert|select|delete|update|count|*|%|chr|mid|master|truncate|char|declare"

SQL_inj = split(SQL_Injdata,"|")

For SQL_Data=0 To Ubound(SQL_inj)
if instr(squery&sURL,Sql_Inj(Sql_DATA))>0 Then
Response.Write "SQL通用防注入系统"
Response.end
end if
next


网站防SQL注入第二种:
SQL_injdata =":|;|>|<|--|sp_|xp_|\|dir|cmd|^|(|)|+|$|'|copy|format|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 "SQL通用防注入系统"
Response.end
end if
next
Next
End If

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 "SQL通用防注入系统"
Response.end
end if
next
next

网站防SQL注入第三种
<%
'--------定义部份------------------
Dim Str_Post,Str_Get,Str_In,Str_Inf,Str_Xh,Str_db,Str_dbstr
'自定义需要过滤的字串,用 "■"分离
Str_In = "'■;■and■exec■insert■select■delete■update■count■*■%■chr■mid■master■truncate■char■declare"
'----------------------------------
%>

<%
Str_Inf = split(Str_In,"■")
'--------POST部份------------------
If Request.Form<>"" Then
For Each Str_Post In Request.Form

For Str_Xh=0 To Ubound(Str_Inf)
If Instr(LCase(Request.Form(Str_Post)),Str_Inf(Str_Xh))<>0 Then
'--------写入数据库----------头-----
Str_dbstr="DBQ="+server.mappath("SqlIn.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
Set Str_db=Server.CreateObject("ADODB.CONNECTION")
Str_db.open Str_dbstr
Str_db.Execute("insert into SqlIn(Sqlin_IP,SqlIn_Web,SqlIn_FS,SqlIn_CS,SqlIn_SJ) values('"&Request.ServerVariables("REMOTE_ADDR")&"','"&Request.ServerVariables("URL")&"','POST','"&Str_Post&"','"&replace(Request.Form(Str_Post),"'","''")&"')")
Str_db.close
Set Str_db = Nothing
'--------写入数据库----------尾-----
Response.Write "<Script Language=JavaScript>alert('请不要在参数中包含非法字符尝试注入!');</Script>"
Response.Write "非法操作!系统做了如下记录:<br>"
Response.Write "操作IP:"&Request.ServerVariables("REMOTE_ADDR")&"<br>"
Response.Write "操作时间:"&Now&"<br>"
Response.Write "操作页面:"&Request.ServerVariables("URL")&"<br>"
Response.Write "提交方式:POST<br>"
Response.Write "提交参数:"&Str_Post&"<br>"
Response.Write "提交数据:"&Request.Form(Str_Post)
Response.End
End If
Next

Next
End If
'----------------------------------

'--------GET部份-------------------
If Request.QueryString<>"" Then
For Each Str_Get In Request.QueryString

For Str_Xh=0 To Ubound(Str_Inf)
If Instr(LCase(Request.QueryString(Str_Get)),Str_Inf(Str_Xh))<>0 Then
'--------写入数据库----------头-----
Str_dbstr="DBQ="+server.mappath("SqlIn.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
Set Str_db=Server.CreateObject("ADODB.CONNECTION")
Str_db.open Str_dbstr
Str_db.Execute("insert into SqlIn(Sqlin_IP,SqlIn_Web,SqlIn_FS,SqlIn_CS,SqlIn_SJ) values('"&Request.ServerVariables("REMOTE_ADDR")&"','"&Request.ServerVariables("URL")&"','GET','"&Str_Get&"','"&replace(Request.QueryString(Str_Get),"'","''")&"')")
Str_db.close
Set Str_db = Nothing
'--------写入数据库----------尾-----

Response.Write "<Script Language=JavaScript>alert('请不要在参数中包含非法字符尝试注入!);</Script>"
Response.Write "非法操作!系统做了如下记录:<br>"
Response.Write "操作IP:"&Request.ServerVariables("REMOTE_ADDR")&"<br>"
Response.Write "操作时间:"&Now&"<br>"
Response.Write "操作页面:"&Request.ServerVariables("URL")&"<br>"
Response.Write "提交方式:GET<br>"
Response.Write "提交参数:"&Str_Get&"<br>"
Response.Write "提交数据:"&Request.QueryString(Str_Get)
Response.End
End If
Next
Next
End If
%>
第3中方法需要你自己建个数据库表

编辑:番禺网站建设 http://www.py162.com


资料来源:创意设计工作室 http://www.py162.com,转载请注明出处!
  • 相关文章
  • ·番禺网站建设介绍网站被挂马解决技巧
  • ·用JS获得网址的域名
  • ·IE6重复文字和文字溢出
  • ·网站音乐文件链接给盗 造成虚拟主机流量超标
  • ·伪静态处理与SEO优化
  • ·网站建设中ASP、JSP、PHP 三种技术比较
  • ·如何知道各大搜索引擎什么时候光临您的网站?
  • ·番禺网站建设教你自动生成网站地图文件
  • ·有关301重定向方法大全
  • ·今天发现百度分享是个不错的工具
  • ·番禺网站建设之HTML代码优化
  • ·详解301永久重定向实现方法
  • 网友评论
    用户名: