<% '--------版权说明------------------ '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-22 12:14:38
...........................................................................

绵阳市委书记吴靖平前往武引工程调研

7月21日上午,绵阳市委书记、人大常委会主任吴靖平和市委副书记张锦明带领市委秘书长、安县县委书记王黎,市委常务副秘书长、市委办主任李长明,市委副秘书长敬永杰,市委副秘书长王兵,市发改委副主任谭岗,市财政局局长江陵,市国土局局长羊群,市委农办常务副主任车维知,市水务局局长安天云,绵投控股总经理陈建强,江油市市长宋开慧,仙海区党工委书记、管委会主任姚永红等在市武引局局长向地平及武引局全体班子成员的陪同下深入调研武引工程建设管理工作。
市委书记、人大常委会主任吴靖平一行冒着酷暑,先后前往武引总干渠娃娃沟渡槽、武都水库大坝、武都电站等地,实地察看武引总干渠灾后重建情况、武都水库建设进展情况、武都电站机组设备安装情况,听取了副局长徐波和总工门立军关于工程建设进展情况汇报。随后,吴靖平在武都水库建设开发公司会议室主持会议,认真听取了市武引局局长向地平关于武引工程建设管理情况汇报。
市发改委、市财政局、市国土局、市水务局、绵投控股、江油市政府、仙海区管委会分别就加快武引工程建设,推动武引工作作了明确表态和很好的意见及建设。
市委副书记张锦明充分肯定了武引当前各项工作,认为武引局领导班子精神饱满,工作目标明确,思路清晰,工作推进有力,成效非常明显,尤其是武都水库建设中,一波三折,科学调度,靠前指挥,抓早抢快,千方百计推动武都水库工程建设全力加快,同时保证了灌区127万亩春灌供水,成绩喜人,要求武引下步工作中切实抓好防洪度汛工作,加快武引工程建设进度,加强工程质量和资金运行的监管,在后期旅游开发中要注重提炼主题和风貌打造。
市委书记、人大常委会主任吴靖平深情地说:去年6月来武都水库调研,当时灾后重建快速推进,武都水库建设全面加快,大坝浇筑日新月异。今年来看,混凝土浇筑48万多立方米,完成全年目标任务的69%;投资2.9亿元,完成全年任务的58%;重建完成投资3.43亿元,完成重建任务76.22%。大坝最大坝高达到657米高程,完成全年全年目标任务的94%,比去年底平均上升了20米,各项指标表明武引进入加快、有力、有序、有效推进的快速阶段,感到非常振奋。主要体现在:
一是武引一期灌区灾后重建进展顺利。武引灾后重建规划到位,批复总投资9.09亿元,通过重建把历年来遗留问题地震带来的灾害一并解决,完成重建达4.18亿元,特别是总干渠、涪梓干渠重建维修过程中,提前一个月结束重建,保证了沿线近200万人民群众的生产生活,确保了游仙片区18万城市人口饮水的游仙自来水厂的原水供给,为绵阳的安全稳定作出了巨大贡献。二是春灌供水达到预期效果。一是今年供水及时有效,完成春灌供水6500万立方米,保证了灌区127万亩农田满栽满插,确保了灌区农业生产稳定。二是水费收缴情况良好,目前基本收齐灌区农业水费。三是武引二期灌区工程前期工作进展顺利。当前武引二期灌区工程项目建议书已通过国家发改委审批,项目已正式纳入国家建设计划;部分前期工程已在2009年9月开工建设;世界银行1亿美元贷款有序推进,相关工作机构已经建立和完善,世行项目进行鉴别工作完成,工程移民安置规划大纲已通过水利部水规总院审查,水保、环保报告已编制完成,水资源论证报告已报送长江委审查,初设报告编制工作全面启动,可研进入审批程序,有望今年通过审批。四是资金筹措成效明显。今年市委、市政府下决心拨付9000万,为单年投资最大,上半年,武引筹集建设资金3.46亿元,工作动作筹集有效,与多方努力分不开的,武引的主动作为、工作方法、工作激情值得充分肯定。五是武都水库旅游开发全面启动。武都水库旅游开发已全面启动,要精细化,加强统筹协调,精心规划,精心包装项目,为招商引资提供必要的基础条件和要素保障,推动武都水库大开发大建设。六是队伍建设扎实有力。武引班子很有活力、很有激情,相互支持、相互团结,希望武引既要抓廉政、抓机制,又要抓团结协作建设,要大智慧,不要搞小动作,党委要营造相互理解,相互支持的氛围,团结出干部,团结出战斗力,团结出效益。
对于下步工作,吴靖平强调:一是加快武都水库建设。必须确保今年下闸蓄水,集中人力、物力、财力,搞好协调,正排工序,倒排工期,加大力度,加快进度,抓紧建好武都水库大坝。二是抓好武引防洪度汛。绵阳8、9月是汛期的高发期、重点期,要充分准备,不能存在麻痹大意,侥幸心理,重点岗位、重要节点要实行“双保险”,密切关注汛情、雨情、水情,确保值班、应急、物质、方案、措施、人员“五到位”,确保人民群众生命财产安全和工程安全。三是武引二期灌区工程必须开工。积极推进武引二期灌区工程的开工准备工作,加快三项手续审批进度,要争取年内完成手续审批,武引、水务局、盐亭县加强统筹协调,多措并举推动武引二期灌区工程金峰水库开工。四是做好武都水库后续工作。要抓紧做好武都水库扫尾工作,武都水库的旅游开发首先要做好规划,精心包装项目,扩大宣传,创造招商引资的良好环境和条件,通过市场化运作,引进知名大集团、大公司进行整体开发。五是抓好班子,带好队伍,推动武引工程建设。坚持以人为本,团结、关心、爱护每一名班子成员,使每一名干部职工有归属感,有亲情,有文化,有氛围,积极理顺情绪,不要增添人为情绪。
最后,市委书记、人大常委会主任吴靖平就武引请求解决的问题提出明确的要求和意见,并要求武引党委一班人团结协作、勤政廉政、开拓创新、真抓实干把武引领导好,队伍引导好,武引工程建设好,发展好。希望武引全局上下深刻体会市委、市政府的关心厚爱,全力整合外因、内因,推动武引工作再上新台阶。
市武引局局长向地平表示,将严格按照吴书记和张副书记的要求,牢记使命,锁定目标,排除万难,全面、超额地完成各项目标任务。(局办公室、建设开发公司提供)


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

 

New Page 1

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

 

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

蜀ICP备06005140号

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

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