<& '--------版權說明------------------ 'SQL通用防注入程序 V3.0 '2.0強化版,對代碼做了一點優化,加入自動封注入者Ip的功能!^_^ '3.0版,加入后臺登陸查看注入記錄功能,方便網站管理員查看非法記錄,以及刪除以前的記錄,是否對入侵者Ip解除封鎖! '火狐技術聯盟 Neeao URL:http://www.wrsky.com 'Neeao站點:http://www.neeao.com 'Mail:neeaocn@Gamil.com '--------數據庫連接部分-------------- dim dbkillSql,killSqlconn,connkillSql dbkillSql="../web#data#hxj#hyxr#mdb#hyjnh/Sql#In.mdb" 'On Error Resume Next Set killSqlconn = Server.CreateObject("ADODB.Connection") connkillSql="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(dbkillSql) killSqlconn.Open connkillSql If Err Then err.Clear Set killSqlconn = Nothing Response.Write "數據庫連接出錯,請檢查連接字串。" Response.End End If '--------定義部份------------------ Dim Fy_Post,Fy_Get,Fy_In,Fy_Inf,Fy_Xh,Fy_db,Fy_dbstr,Kill_IP,WriteSql '自定義需要過濾的字串,用 "|" 分隔 Fy_In = "'|;|and|(|)|exec|insert|select|delete|update|count|*|%|chr|mid|master|truncate|char|declare" Kill_IP=True WriteSql=True '---------------------------------- Fy_Inf = split(Fy_In,"|") '--------POST部份------------------ If Request.Form<>"" Then For Each Fy_Post In Request.Form For Fy_Xh=0 To Ubound(Fy_Inf) If Instr(LCase(Request.Form(Fy_Post)),Fy_Inf(Fy_Xh))<>0 Then If WriteSql=True Then killSqlconn.Execute("insert into SqlIn(Sqlin_IP,SqlIn_Web,SqlIn_FS,SqlIn_CS,SqlIn_SJ) values('"&Request.ServerVariables("REMOTE_ADDR")&"','"&Request.ServerVariables("URL")&"','POST','"&Fy_Post&"','"&replace(Request.Form(Fy_Post),"'","''")&"')") killSqlconn.close Set killSqlconn = Nothing End If Response.Write "" Response.Write "非法操作!系統做了如下記錄↓
" Response.Write "操作IP:"&Request.ServerVariables("REMOTE_ADDR")&"
" Response.Write "操作時間:"&Now&"
" Response.Write "操作頁面:"&Request.ServerVariables("URL")&"
" Response.Write "提交方式:POST
" Response.Write "提交參數:"&Fy_Post&"
" Response.Write "提交數據:"&Request.Form(Fy_Post) Response.End End If Next Next End If '---------------------------------- '--------GET部份------------------- If Request.QueryString<>"" Then For Each Fy_Get In Request.QueryString For Fy_Xh=0 To Ubound(Fy_Inf) If Instr(LCase(Request.QueryString(Fy_Get)),Fy_Inf(Fy_Xh))<>0 Then If WriteSql=True Then killSqlconn.Execute("insert into SqlIn(Sqlin_IP,SqlIn_Web,SqlIn_FS,SqlIn_CS,SqlIn_SJ) values('"&Request.ServerVariables("REMOTE_ADDR")&"','"&Request.ServerVariables("URL")&"','GET','"&Fy_Get&"','"&replace(Request.QueryString(Fy_Get),"'","''")&"')") killSqlconn.close Set killSqlconn = Nothing End If Response.Write "" Response.Write "非法操作!我們的系統已經做了如下記錄↓
" Response.Write "操作IP:"&Request.ServerVariables("REMOTE_ADDR")&"
" Response.Write "操作時間:"&Now&"
" Response.Write "操作頁面:"&Request.ServerVariables("URL")&"
" Response.Write "提交方式:GET
" Response.Write "提交參數:"&Fy_Get&"
" Response.Write "提交數據:"&Request.QueryString(Fy_Get) Response.Write "

請馬上離開,謝謝!" Response.End End If Next Next End If If Kill_IP=True Then Dim Sqlin_IP,rsKill_IP,Kill_IPsql Sqlin_IP=Request.ServerVariables("REMOTE_ADDR") Kill_IPsql="select Sqlin_IP from SqlIn where Sqlin_IP='"&Sqlin_IP&"'" Set rsKill_IP=killSqlconn.execute(Kill_IPsql) If Not(rsKill_IP.eof or rsKill_IP.bof) Then Response.write "" Response.End End If rsKill_IP.close End If &> 河源天裕電子塑膠有限公司
<menu id="sgoci"><strong id="sgoci"></strong></menu>
<input id="sgoci"></input>
  • <nav id="sgoci"></nav>
  • <nav id="sgoci"></nav>
  •   ·中文簡體·繁體中文·ENGLISH
     
    新聞中心
     
      首頁   公司動態

    環形變壓器_開關電源產品銷售網站上線 2017年9月20日
    環形變壓器www.qysy88.com 開關電源www.qysy99.com
    生物降解塑料未來五年年均增長25%以上 2014年6月21日
    美國著名的增長咨詢公司弗若斯特沙利文(FrostSullivan)公司于2011年11月發表研究報告認為,隨著人們環保意識的日益加強以及政府限塑令和可回收法案條....
    整流變壓器最簡單的移相方法 2014年6月21日
    對于大功率整流設備,需要脈波數也較多,脈波數為18、24、36等應用的日益增多,這就必須在整流變壓器一次側設置移相繞組來進行移相。移相繞組與主繞組聯結方式有三種....
    這些塑料瓶值得關注它們回收渠道 2014年6月21日
    PET瓶作為香餑餑,在回收市場上一直以來最受廢品回收者青睞。但是,我們卻忽視了數量龐大的其他材質塑料瓶。藥用塑料瓶、化妝品瓶,農藥瓶、洗浴日化瓶,這些塑料瓶的回....
    祝賀公司網站正式上線 2014年6月21日
    經過精心的策劃和籌備,我公司網站正式啟用。此次網站改版將會為客戶展現全新的頁面設計,豐富的網站功能和便捷的服務。改版后的網站內容更加豐富、結構更加清晰。新增加多....

    首頁 上頁 下頁 尾頁 頁次:1/2頁 共有 6條新聞 轉到

    Copyright © 2016 www.prozymebio.com All Rights Reserved. 河源天裕電子塑膠有限公司 版權所有
    地址:河源市高新技術開發區興工大道東面科七路南 電話:0762-2203101 傳真:0762-2203100
    網站備案:粵ICP備11067044號 技術支持:新銳網絡-河源網站建設
    韩国三级理论无码电影
    <menu id="sgoci"><strong id="sgoci"></strong></menu>
    <input id="sgoci"></input>
  • <nav id="sgoci"></nav>
  • <nav id="sgoci"></nav>