<% '--------版权说明------------------ 'SQL通用防注入程序 V2.0 完美版 '本程序由 火狐-枫知秋 独立开发 '对本程序有任何疑问请联系本人 'QQ:613548 Http://Www.WrSky.Com '此版本欢迎到转载~~~ '--------定义部份------------------ Dim Fy_Post,Fy_Get,Fy_In,Fy_Inf,Fy_Xh,Fy_db,Fy_dbstr '自定义需要过滤的字串,用 "枫" 分隔 Fy_In = "'枫;枫and枫exec枫insert枫select枫delete枫update枫count枫*枫%枫chr枫mid枫master枫truncate枫char枫declare" '---------------------------------- %> <% 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 '--------写入数据库-------头-------- Fy_dbstr="DBQ="+server.mappath("SqlIn.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};" Set Fy_db=Server.CreateObject("ADODB.CONNECTION") Fy_db.open Fy_dbstr Fy_db.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),"'","''")&"')") Fy_db.close Set Fy_db = Nothing '--------写入数据库-------尾-------- 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 ''--------写入数据库-------头-------- Fy_dbstr="DBQ="+server.mappath("SqlIn.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};" Set Fy_db=Server.CreateObject("ADODB.CONNECTION") Fy_db.open Fy_dbstr Fy_db.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),"'","''")&"')") Fy_db.close Set Fy_db = Nothing '--------写入数据库-------尾-------- 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.End End If Next Next End If '---------------------------------- %> <% '--------版权说明------------------ 'SQL通用防注入程序 V2.0 完美版 '本程序由 火狐-枫知秋 独立开发 '对本程序有任何疑问请联系本人 'QQ:613548 Http://Www.WrSky.Com '此版本欢迎到转载~~~ '--------定义部份------------------ Dim Fy_Post,Fy_Get,Fy_In,Fy_Inf,Fy_Xh,Fy_db,Fy_dbstr '自定义需要过滤的字串,用 "枫" 分隔 Fy_In = "'枫;枫and枫exec枫insert枫select枫delete枫update枫count枫*枫%枫chr枫mid枫master枫truncate枫char枫declare" '---------------------------------- %> <% 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 '--------写入数据库-------头-------- Fy_dbstr="DBQ="+server.mappath("SqlIn.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};" Set Fy_db=Server.CreateObject("ADODB.CONNECTION") Fy_db.open Fy_dbstr Fy_db.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),"'","''")&"')") Fy_db.close Set Fy_db = Nothing '--------写入数据库-------尾-------- 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 ''--------写入数据库-------头-------- Fy_dbstr="DBQ="+server.mappath("SqlIn.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};" Set Fy_db=Server.CreateObject("ADODB.CONNECTION") Fy_db.open Fy_dbstr Fy_db.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),"'","''")&"')") Fy_db.close Set Fy_db = Nothing '--------写入数据库-------尾-------- 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.End End If Next Next End If '---------------------------------- %>武引工程建管局-新闻中心-灌区掠影-莲花湖成功经受今年最大洪峰考验
[水 事 新 闻]--分类
 
 
 
 
 
 
 
莲花湖成功经受今年最大洪峰考验
2010-07-27 23:32:15
...........................................................................

莲花湖成功经受今年最大洪峰考验
莲花湖位于盐亭弥江河上游海门寺河中段,控制流域面积162.6平方公里。为保障灌区春灌抗旱,库内蓄水2300多万立方米,是全省防汛重点水库。汛前,盐亭县武引局认真制订了防汛预案,建立完善了汛期值班管理制度,对大坝启闭机、钢绳、制动、电器等设施进行了全面检查和维护,确定了 2名中层干部和3名工程管理技术骨干24小时驻守莲花湖值班守护。
7月24日晚,盐亭全县普降暴雨,其中柏梓、富驿、茶亭等多个乡镇出现大暴雨,梓江、弥江等河流水位上涨。由于莲花湖集雨面积宽,库区山洪暴发,多处山体滑坡,至25日凌晨,湖水陡涨,尤其是梓潼、茶亭来水量巨大,雨还在不停地下,据水情预报,形势十分危急。
雷声就是讯号,雨点就是命令。凌晨3点,县武引局党组书记、局长顾正兴,副局长勾汪洋带领工程技术人员火速奔赴现场,组成5个突击小分队,冒着倾盆大雨,对库区重点地段和区域逐一巡查,及时向市、县防汛指挥部及县政府有关领导汇报情况,并按照防汛指令立即启动了《莲花湖防洪预案》。局防洪抢险领导小组就水库抗洪抢险应急措施认真进行研究部署,进一步明确值守人员、巡查人员、技术人员及安全监管人员职责,并将通讯联络、组织保障、物料调配、人员转移、预警方式及抢险队伍等重点责任落实到人头。
大坝上灯火通明,一夜无人入眠。工程管理人员守候在防洪现场,密切关注着水位、库容和雨情测报,随时准备抢险,他们像一道冲不垮的屏障,筑起了坚不可摧的防洪堤坝。
天色渐明,洪峰滚滚袭来,惊心动魄,浊浪掀天,势如猛虎,莲花湖水位陡涨至435.9米,库容迅速达到3150万方,远远超过防洪警戒水位,并还在迅速上涨。由于莲花湖大坝在2008年特大地震中受损,右坝肩多处出现绕坝渗漏,目前正紧张进行大坝补强灌浆施工。如果洪水漫堤,一旦溃坝,高悬的洪水就会奔腾而下,以可怕的速度横扫下游一切建筑物,淹没县城大半城区,泥石流、滑坡等不可控制的风险也将纷至沓来,给人们带来的将是灭顶之灾,后果不堪设想!
形势严峻,千钧一发,事关海门河下游及盐亭县城约20万人的生命财产安全,防洪抢险分秒必争!经紧急请示县防汛指挥部,在停电的情况下,工程技术人员果断采用手动装置开启枢纽工程七孔闸门紧急泄洪,并及时通知下游镇乡做好防洪准备。7时40分,随着闸门缓缓开启,湖水如白色巨龙倾泻而下,水位渐渐回落……
武引局16名抢险人员昼夜值班,严阵以待,随时注视水情变化。至 25日17时,水位降到435米,大坝安然无恙,险情得到有效控制。通过严防死守,科学调度,莲花湖从容发挥了拦洪、削峰和错峰作用,经历住了今年来最大一次洪峰的考验,确保了下游人民群众生命财产安全,取得了抗洪抢险的阶段性胜利。


本条新闻已被查阅[86]次。

 

New Page 1

| 集团简介 | 武引局介绍 | 意见建议 | 软件下载 |

 

©四川.绵阳.武都引水工程管理局版权所有

蜀ICP备06005140号

联系电话:0816-2680445   Email:webmaster@wuyin.net

地 址:四川省绵阳市长虹大道北段39号