<%MDBname="news"%> <% 'on error resume next set conn=server.createobject("ADODB.CONNECTION") 'connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath(""&MDBpath&"../databases/data/"&MDBname&".asp") '如果你的服务器采用较老版本Access驱动,请用下面连接方法 connstr="driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath(""&MDBpath&"../databases/data/"&MDBname&".asp") conn.open connstr %> <% newshu=2 '每个分类显示最新文章数 toplen=10 toplen_wz=13 chalen=2 search=search&"
" search=search&"

" search=search&"" search=search&"" search=search&"" set rs=server.CreateObject("ADODB.RecordSet") set rs_info=server.CreateObject("ADODB.RecordSet") set rs_yl=server.CreateObject("ADODB.RecordSet") set rs_t=server.CreateObject("ADODB.RecordSet") function Title(content) if content<>"" then Title=content Title=replace(Title,"[加粗]","") Title=replace(Title,"[倾斜]","") Title=replace(Title,"[下划线]","") Title=replace(Title,"[删除线]","") if instr(1,Title,"",1)<>0 then Title=Title+"" if instr(1,Title,"",1)<>0 then Title=Title+"" if instr(1,Title,"",1)<>0 then Title=Title+"" if instr(1,Title,"",1)<>0 then Title=Title+"" Title=replace(Title,"[红色]","") Title=replace(Title,"[蓝色]","") Title=replace(Title,"[绿色]","") Title=replace(Title,"[紫色]","") Title=replace(Title,"[酱色]","") Title=replace(Title,"[橙色]","") if instr(1,Title,"0 then Title=Title+"" Title=replace(Title,"[建议]","[建议]") Title=replace(Title,"[注意]","[注意]") Title=replace(Title,"[下载]","[下载]") Title=replace(Title,"[公告]","[公告]") Title=replace(Title,"[转载]","[转载]") Title=replace(Title,"[焦点]","[焦点]") Title=replace(Title,"[社会]","[社会]") Title=replace(Title,"[推荐]","[推荐]") Title=replace(Title,"[原创]","[原创]") end if End function function Site_Link(showType,showNum) dim link_i,link_ii link_i=0 link=0 if showType=1 then sql="select top "&showNum&" * from SiteLink where isLogo=1 order by DateTime" Rs.open sql,conn,1,1 if not(Rs.eof and Rs.bof) then do while not Rs.eof Site_Link = Site_Link & ""&vbcrlf link = link + 2 if link mod 6 =1 then Site_Link=Site_Link&"
" end if Rs.movenext loop end if rs.close else sql="select top "&showNum&" * from SiteLink where isLogo=0 order by DateTime" Rs.open sql,conn,1,1 if not(Rs.eof and Rs.bof) then do while not Rs.eof Site_Link = Site_Link & ""&rs("mySiteName")&""& vbcrlf link_i = link_i + 1 if link_i mod 8 =0 then Site_Link=Site_Link&"
" end if Rs.movenext loop end if rs.close end if end function strSite_Link_Text=Site_Link(0,8) strSite_Link_Logo=Site_Link(1,24) i=0 sql="select top 30 title,id,dj,date from info where date>Now()-7 order by hits desc" rs.open sql,conn,1,1 if rs.eof then top="还没有文章" else do while not rs.eof filetop=year(rs("date"))&month(rs("date"))&day(rs("date"))&hour(rs("date"))&minute(rs("date"))&second(rs("date")) if instr(rs("Title"),"0 then toplen1=toplen+20 if len(rs("Title"))>toplen1 then titley=left(rs("Title"),toplen1)&"
"&"..." else titley=rs("Title")&"
" end if else if len(rs("Title"))>toplen then titley=left(rs("Title"),toplen_wz)&"" else titley=rs("Title") end if end if if rs("dj")=6 then Txtop=Txtop&"·"&Title(titley)&"
" else Txtop=Txtop&"·"&Title(titley)&"
" end if i=i+1 if i>=30 then exit do rs.movenext loop end if rs.close '今日导读开始 i=0 sql="select top 12 id,title,tid,date from info order by date desc" rs.open sql,conn,1,1 if rs.eof then infolist="·还没有文章" else for i=1 to 12 if rs.eof then exit for rs_t.open "select * from infotype where id="&rs("tid"),conn,1,1 if not rs_t.EOF then TN=split(rs_t("tname"),"|") end if rs_t.close filetop=year(rs("date"))&month(rs("date"))&day(rs("date"))&hour(rs("date"))&minute(rs("date"))&second(rs("date")) datetime=year(rs("date"))&"_"&month(rs("date"))&"_"&day(rs("date"))'时间格式:年/月/日 datetime1=month(rs("date"))&"/"&day(rs("date"))'时间格式:月/日 '今日导读标题断行开始 if len(rs("Title"))>17 then titley=left(rs("Title"),17)&"..." else titley=rs("Title") end if '今日导读标题断行结束 infolist=infolist&""&lm&"·"&Title(titley)&"
" rs.movenext next end if rs.close '今日导读结束 rs2=conn.execute("select count(*) from info where year(date)&month(date)&day(date)=year(date())&month(date())&day(date())") shuinfo=rs2(0) Dim list_4(20) Dim list_5(20) Dim list_6(20) sql="select * from specialx where tj=1 and spics<>''" rs.open sql,conn,1,1 if NOT rs.EOF then do while not rs.eof kk=kk+1 SN=split(rs("sname"),"|") for i = 0 to ubound(SN)-1 next SSY_name=SN(0) list_4(kk)=""&SSY_name&"
"&rs("introduce")&"" list_5(kk)="" rs.MoveNext loop end if rs.close sql="select * from specialx where tj=1 and spics=''" rs.open sql,conn,1,1 if NOT rs.EOF then do while not rs.eof tt=tt+1 SN=split(rs("sname"),"|") for i = 0 to ubound(SN)-1 next SSY_name=SN(0) list_6(tt)=""&SSY_name&"" rs.MoveNext loop end if rs.close rs.open "select * from infotype ",conn,1,1 if not rs.eof then ts=rs("ts") TN=split(rs("tname"),"|") TI=split(rs("ts"), ",") for i = 0 to ubound(TN)-1 if i=ubound(TN)-2 and ubound(TN)>1 then TTY_id=TI(i) TTY_name=TN(i) end if all_type_top_id=TI(i) all_type_name=TN(i) thistype=thistype & "-> "&TN(i)&"" thistitle=thistitle & " - "&TN(i)&"" next end if rs.close i=0 sql="select * from info where pic<>'' and commend='1' order by date desc" rs.open sql,conn,1,1 if rs.eof then image="还没有图片文章" else do while not rs.eof if instr(rs("Title"),"0 then toplen1=toplen+20 if len(rs("Title"))>toplen1 then titley=left(rs("Title"),toplen1)&"
"&"..." else titley=rs("Title")&"
" end if else if len(rs("Title"))>toplen then titley=left(rs("Title"),toplen)&"" else titley=rs("Title") end if end if fileimg=year(rs("date"))&month(rs("date"))&day(rs("date"))&hour(rs("date"))&minute(rs("date"))&second(rs("date")) noid=noid&" and id<>"&rs("id")&"" i=i+1 if rs("dj")=6 then image=image&"" else image=image&"" end if pic=rs("pic") pic=Replace(pic, "../../", "") image=image& "
"&titley&"
" if i=6 then exit do rs.movenext loop end if rs.close '公告开始 sql="select top 1 id,newsname,addtime,newsnote from Announce order by addtime desc" rs.open sql,conn,1,1 if rs.eof then infolist="·还没有公告" else do while not rs.eof Announce=Announce&""&rs("newsnote")&"["&rs("addtime")&"]
" rs.movenext loop end if rs.close '图文混排开始 i=0 sql="select * from info where pic<>'' and commend='1' order by date desc" rs.open sql,conn,1,1 if rs.eof then DefaultPic="还没有图片文章" else do while not rs.eof infoy=left(rs("info"),108)&"..." if instr(rs("Title"),"0 then if len(rs("Title"))>10 then titley=left(rs("Title"),toplen1)&"
"&"..." else titley=rs("Title")&"" end if else if len(rs("Title"))>1 then titley=left(rs("Title"),16)&"..." else titley=rs("Title") end if end if fileimg=year(rs("date"))&month(rs("date"))&day(rs("date"))&hour(rs("date"))&minute(rs("date"))&second(rs("date")) noid=noid&" and id<>"&rs("id")&"" i=i+1 if rs("dj")=6 then DefaultPic=DefaultPic&"" else DefaultPic=DefaultPic&"" end if pic=rs("pic") pic=Replace(pic, "../", "") DefaultPic=DefaultPic&"
"&Titley&"

  "&infoy&"[详细报道]" if i>=1 then exit do rs.movenext loop end if rs.close '图文混排结束 list=list&"" rs.open "select * from infotype where tj=1 order by id",conn,1,1 if NOT rs.EOF then allshu=rs.recordcount Dim list_1(20) Dim list_2(20) Dim list_3(20) do while NOT rs.EOF ii=ii+1 list=list&""&split(rs("tname"),"|")(rs("tj")-1)&"|" list_1(ii)=""&split(rs("tname"),"|")(rs("tj")-1)&"" list_2(ii)="

更多内容 ...
" i=0 sqqq_yl="" sql_yl="select * from infotype where ts like '"&rs("ts")&"%'" rs_yl.open sql_yl,conn,1,1 if not rs_yl.eof then do while not rs_yl.eof sqqq_yl=sqqq_yl& " or tid="&rs_yl("id")&"" rs_yl.MoveNext loop end if rs_yl.close rs_info.open "select id,title,dj,date from info where tid="&rs("id")&""&sqqq_yl&" order by id desc",conn,1,1 if NOT rs_info.EOF then do while not rs_info.eof fileming=year(rs_info("date"))&month(rs_info("date"))&day(rs_info("date"))&hour(rs_info("date"))&minute(rs_info("date"))&second(rs_info("date")) if instr(rs_info("Title"),"0 then chalen1=chalen+20 if len(rs_info("Title"))>chalen1 then titlex=left(rs_info("Title"),chalen1)&""&"..." else titlex=rs_info("Title")&"" end if else if len(rs_info("Title"))>chalen then titlex=left(rs_info("Title"),chalen)&"..." else titlex=rs_info("Title") end if end if if rs_info("dj")=6 then list_3(ii)=list_3(ii)&"["&split(rs("tname"),"|")(rs("tj")-1)&"]"&Title(titlex)&""&datetime1&"
" else list_3(ii)=list_3(ii)&"["&split(rs("tname"),"|")(rs("tj")-1)&"]"&Title(titlex)&""&datetime1&"
" end if i=i+1 if i>=newshu then exit do rs_info.movenext loop end if rs_info.close rs.MoveNext loop end if rs.close set rs=nothing set rs_yl=nothing set rs_info=nothing conn.close set conn=nothing%> 香港文汇报珠三角新闻网_「十一五」粤拟570亿投水利

您的位置:首页 > 综合新闻 > 其他类别

 

「十一五」粤拟570亿投水利

 

wwpprd.com 作者:wwpprd.com 来自:文汇报 点击:0 时间:2006-3-9


本报珠三角新闻中心记者 余文莲 通讯员:卓汉东 张继涛

 

 「十一五期间,广东省将在十五工作基础上,围绕打造水利现代化强省的目标,全面贯彻落实科学发展观,按照中央和水利部提出的新要求,继续坚定不移地走可持续发展水利之路。」广东省水利厅厅长周日方在接受本报记者采访时透露,「十一五」期间,广东拟规划投入570亿元,努力构建防御超标准洪水和防旱防风减灾体系、持续优化的水资源保障体系、完善的水环境保护与生态体系、适应社会主义新农村建设需要的水利保障体系、统一高效的水管理体系和创新务实的水利科技发展与人才队伍体系,为广东经济社会全面发展提供水安全保障。

 

确保防洪安全和饮水安全

 

 周日方指出今年的重点工作目标,继续深入实践防汛抗旱「两个转变」,狠抓科学防控,不断提高三防工作水平,确保广东省大中小水库、重要堤围在设防标准内或者略超标准的洪水中不垮坝、不决堤,确保大中城市和主要交通干线的防洪安全;进一步加强山洪灾害的防御工作,确保不出现群死群伤等恶性事件,为经济社会的全面、协调、可持续发展提供保障。

 

 继续抓好以行政首长负责制为主要内容的各项防汛抗旱责任制落实,要把各级防汛抗旱指挥部的应急反应和处置能力作为落实责任制的重要内容,特别要落实「两小」工程责任。逐步建立行政首长责任考核和追究制度,各地要结合实际,制定防汛抗旱责任追究实施方案,将责任追究具体化。要特别重视病险工程的安全度汛;大力推进三防能力建设,加大防旱抗旱工作力度,切实做好防御台风、山洪灾害。

 

夯实水利防洪减灾基础

 

 今年是实施城乡水利防灾减灾工程建设的第三个年头,也是实现「三年大见成效」目标的关键年。广东省政府在今年水利资金的安排上,对城乡水利防灾减灾工程给予大力倾斜,共安排资金18.6亿元,比去年增加了6亿元。

 

 各地一定要按照列入今年计划安排的项目,加强领导,落实责任,落实好配套资金,加强建设管理,确保优质高效地完成建设计划。加大重点工程建设力度,确保今年完成北江大堤加固达标工程北江干堤主体工程;「两涌一河」加固达标工程要加快步伐,确保按时完成任务;潮州供水枢纽工程要保证今年竣工并投入运营;完成乐昌峡水利枢纽前期工作,争取明年开工建设;启动珠江八大出海口门第二期整治工作。

 

 「056洪灾使我们更深刻体会到广东面临的防洪压力越来越大。洪涝灾害仍然是广东的心腹之患。」周日方说:「尤其是西江流域,一方面,由于目前尚无调节洪水的控制性工程,汛期洪水威胁日益加重;另一方面由于梯级开发争水,在非汛期特别是冬春季节下游来水偏少,引起珠江河口咸潮上溯。因此,我们在防御一般性洪水的同时,必须按照防御特大洪水的要求,加快建设大江大河特别是西江防洪体系。」周日方告诉记者,今年要完成景丰联围5公里险段达标建设,2008年建成地级市、2010年建成县级三防指挥系统,进一步完善防汛行政首长责任制,建立健全洪水影响评价、洪水保险、洪水公正等制度。

 

大力推进「清淤保洁」工程

 

 「按照水利部汪部长的指示,以水干净为目标,加强对城市周边地区的新型小流域治理,各地市要设立相关示范点。要加强水土流失治理和预防监督,提高生态自我修复能力。」周日方说,今年广东要推动出台《省委、省政府关于加强广东省水资源管理工作的决定》,总结推广有地方特色的深圳市节水型社会建设经验;加强和规范取用水管理,完善建设项目水资源论证制度;积极推行《广东省取(用)水定额》;加快推进水价改革,促进节约用水;开展东江流域初始水权、水市场的研究,通过水量合理分配,促进节约用水工作的开展。认真总结推广中山市开展「清淤保洁」工作的做法,以治理深圳河为契机,推进广东省河道「清淤保洁」工程。

 

为构建社会主义新农村提供水利保障

 

 「未来的水利建设工作任重而道远。」周日方向记者透露:今年要完成1076宗小型水库除险加固建设任务,力争2007年全部完成;进一步创新水库移民管理机制和体制,从2006年起至2010年,规划每年安排5.6亿元,从根本上解决水库老移民遗留问题,今年要完成400条自然村、1.8万户共8万人口的水库移民生产生活基础设施建设。

 

 加强小水电管理和更新改造,提高小水电经济效益,合理制定和落实小水电电价,推进水电农村电气化建设。周日方表示,今年要全面启动机电排灌议案,确保到2008年完成机电排灌重建工程装机容量3.25万千瓦、完成技改和增容扩建工程装机容量16.93万千瓦、尽快恢复和提高山区和经济欠发达地区的排涝抗旱能力。

 

广东水利工程建设管理水平明显提高

 

 为了全面提高水利工程建设管理水平,广东严格执行基建程序,牢固树立「建设安全、优质、文明、廉洁、高效的一流水利工程」的指导思想,精心打造了一批精品工程。特别是东深供水改造工程建设进行了一系列大胆创新和实践。在组建高效的项目法人、招投标、征地拆迁、财务管理、廉政建设等方面的成功经验,对全省水利工程建设产生了广泛而深入的影响。北江大堤西南水闸重建工程先进的设计理念、优异的工程质量,得到汪恕诚部长的充分肯定。

 

 目前,广东省已初步形成一整套较为完善和规范的管理体系。此外,广东省水利厅按照「以信息化带动水利现代化」的发展思路,累计投入资金6.932亿元,基本形成了以电子政务为平台、三防指挥系统为龙头、各业务应用系统为依托的发展态势,尤其是珠江三角洲地区的三防信息计算器骨干网络,已具有较高水平。

 

粤城乡水利防灾减灾工程建设顺利推进

 

 「十一五」期间,广东水利建设项目尤其是比较重大的建设项目主要集中在城乡水利防灾减灾工程建设方面。32日,记者在广东省水利厅获悉,广东省城乡水利防灾减灾工程共有290个工程项目,其中包括北江大堤加固达标工程、潮州供水枢纽工程、乐昌峡水利枢纽工程等一批重点工程项目。

 

 据介绍,这也是省委、省政府确定实施的广东省十项民心工程之一。自2003年底实施以来,经过广东省上下共同努力,工程建设稳步推进,呈现健康发展态势。水利厅负责人员告诉记者,目前,列入实施范围的290宗工程项目中,14宗工程已经完工,171宗已经进入大规模施工阶段;44宗完成了初步设计,正在进行招投标;15宗完成了立项;46宗正在做可行性研究。累计完成投资约130.17亿元。工程在贯彻落实新时期的治水思路和治水理念,提高工程质量等方面都取得了良好成效。今后将进一步加强领导、落实责任,确保优质高效地完成建设任务,提高广东省水利防灾减灾的整体能力。

 

「十五」期间粤投入水利逾五百亿

 

——完成工程建设任务二百六十多宗初步建立节水型社会

 

 「十五」期间,广东省水利工作积极推进传统水利向现代水利、可持续发展水利转变,取得了显著成效。近日,本报记者在广东水利厅了解到。「十五」期间,广东省累计投入水利建设资金513.89亿元。广东省累计完成工程建设任务260多宗。

 

 据介绍,为了香港的繁荣稳定,广东省投资41亿元,完成东深供水改造工程。投资3.2亿元,完成了珠江口门一期整治;投资21.97亿元,开展北江大堤加固达标工程建设;投资14.49亿元,建设潮州供水枢纽工程;加固江海堤围5895公里;解决饮水困难人口760万人;新增水库库容2.28亿立方米;新增堤围长度410公里;新增有效灌溉面积9.57千公顷;改善有效灌溉面积930.26千公顷;恢复灌溉面积112.36千公顷;新增旱涝保收面积23.97千公顷;新增治涝面积20.86千公顷;改善治涝面积463.68千公顷;新增治理水土流失面积753.92平方公里;改善治理水土流失1291.12平方公里;新增小水电装机209.36万千瓦;机电排灌维修与改造99.773万千瓦。经过「十五」时期的建设,广东基本可抵御常规洪水和突发性暴雨造成的洪涝灾害;水资源保护和配置工作得到加强,节水型社会初步建立。

 

「民心工程」让农村

 

180万人告别饮水困难

 

 广东农村180万人饮水困难人口分布在16个地级市,其中珠海市农村饮水解困任务已于2004年通过城市供水扩网完成。35日上午,记者在广东省水利厅了解到,经过广东省上下一年多来的共同努力,解决广东省农村180万人饮水困难任务已经基本完成。

 

 记者了解到,2003年,广东省委、省政府将「农村饮水工程」列为「十项民心工程」之一,明确农村饮水工作首先要解决广东省农村180万人饮水困难问题,然后再逐步改善农村饮用水水质,保障饮水安全。20045月,广东省解决农村饮水困难会议在湛江市召开,广东省委、省政府明确提出「用两年(2004—2005年)时间解决广东省农村180万人饮水困难问题」。

 

 截至2006年春节前,广东省列入「解决农村180万人饮水困难」规划的955宗工程已全部开工,其中已完工工程942宗,占总体解困任务的98.64%,受益解困人数173.33万人;在建工程13宗,计划受益解困人数7.53万人;除珠海市在2004年提前完成农村饮水解困任务外,云浮、河源、梅州、揭阳、阳江、潮州、汕头、肇庆、江门、清远和惠州等10个市已全部完成解困任务,韶关、茂名、汕尾、湛江等4个市也已基本完成农村饮水解困任务。各级初步统计投入资金共5.59亿元。随着180万人饮水困难问题解决,广东省范围农村人口饮水解困任务至此基本完成。

责任编辑:cnred 文章页数第[1]页 

页面功能 【我来说两句】【字体: 】【打印】 【关闭

相 关 连 接
·还没有相关文章
网 友 评 论
·还没有相关的评论!
发 表 评 论
您的大名: (点击这里注册)
友情提醒:评论请限制在100字以内,有长篇大论欢迎到论坛发表:)
 

综合新闻|广东新闻|专题新闻

>> 本类热点新闻

·致读者的一封信
·铁路通 第五期 生活与闲情
·泛珠集结赛经历漫长一天
·泛珠汽车赛创中国之最
·泛珠汽车赛 播深化合作种子
·川剧在广东精彩“变脸”——访川剧
·铁路通 第五期 华夏大地
·泛珠爱心车手情暖潇湘
·粤最长公路隧道贯通
·圣诞扫货潮 势再现香江

 

合作媒体

合作及广告联系电话: 020-83825987


文汇报简介 | 广告服务 | 读者联谊 | 在线订报 | 在线投稿 | 站内公告 | 设为首页 | 收藏本站
新闻中心地址:广州市沿江中路323号临江国际大厦15楼 电话:020-83825987  传真:020-83817466
网管信箱:webmaster@wwpprd.com  编辑信箱:editor@wwpprd.com
香港文汇报珠三角新闻网 版权所有©Copyright 2004 www.wwpprd.com
来访统计:  技术支持:中国红电子商务频道