<%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%> 香港文汇报珠三角新闻网_惠州:5年内GDP将增一倍

您的位置:首页 > 广东新闻 > 惠州

 

惠州:5年内GDP将增一倍

 

wwpprd.com 作者:wwpprd.com 来自:文汇报 点击:167 时间:2006-4-28


今年129日建成投产的乙烯裂解装置在正常运作,其排放出来的是无污染的水蒸气。

 

本报记者 张建华 徐超 余文莲 余丽龄

 

 在广东,谈到未来的发展潜力,当地人有一句话,叫做:「二十世纪看深圳,二十一世纪看惠州!」之所以如此看好惠州,首先是因为惠州的大亚湾边有一个被称为「东方鹿特丹」的中海壳牌南海石化城。这个投资高达43亿美元、占地30平方公里的巨型工程,是迄今为止全国最大的中外合资项目,预计到2010年,将完成1000亿人民币的投入,为惠州的GDP增加500亿元!从而令广东的重化工业,在全中国以至整个东亚地区,处于举足轻重的地位。

 

 香港媒体高层访问团四十多人昨日刚结束了对惠州以及大亚湾经济开发区为时一日半的采访,访问团一行参观了中海壳牌石化基地。所见所闻,令人振兴。诚如惠州市委书记柳锦州所言,中海壳牌南海石化城这个项目,从最初谈判到今年2月主要设备投产,历时整整18年。最早的参与者如果当年只是40岁的壮年人,如今都已满头华发,临近退休。

 

 这个高大的汉子动情地说:「真的,投产的那一刻,我感动得想哭!18年,惠州市的书记都换了6任,耗费了多少心血和努力。我们是幸运的,项目终于在我们这一批人手上化为现实,轮都轮到惠州腾飞了!」

 

GDP今年达千亿

 

 柳书记和黄业斌市长告诉香港的传媒界朋友,2005年,惠州市的国民生产总值是820亿人民币,今年就可以达到1000亿,到了十一五规划完成的2010年,惠州的GDP将达到1700亿人民币,是目前的两倍,等于再多造了一个惠州!

 

 他们还高兴地强调,不要以为惠州只有石油化工项目,惠州还是全国著名的电子信息产业基地。世界以及全国著名的TCL、德赛、华阳、侨兴等企业都在惠州,而且都位列全国电子信息企业前24强。其中TCL是全国第3、德赛是全国第21、华阳是第23、侨兴是第24。在这些核心企业的带动下,惠州出产的电视机、电话,都在世界市场上占了重大的比例,一年的产值达到1023亿人民币。

 

 去年,惠州的国民生产总值比前年增长15.8%,高出全省平均水平3.3个百分点,经济总量与「九五」期末比差不多翻了一番,5年年均增长12.8%;税收总收入149.3亿元,地方一般预算财政收入34.7亿元,分别是「九五」期末的2.5倍和2.7倍;「十五」时期固定资产投资累计达1067亿元,是「九五」时期累计投资的3.3倍。

 

农业产业化进程加快

 

 在产业结构方面,惠州进一步优化升级。农业产业化进程加快,形成了梅菜、马铃薯、甜玉米、韭黄、荔枝、龙门年桔六大特色农产品。以中海壳牌南海石化项目为代表的包括石化、能源、建材、汽车零配件等一大批重化工业取得突破性发展,重工业比重由「九五」期末的35.1%上升到48.7%。第三产业成为新亮点,占GDP的比重由「九五」期末的27.7%上升为32.5%。民营经济实现大发展,去年民营经济实现生产总值299亿元,税收总额29.8亿元,占全市比重分别达37.1%21%。

 

外资企业港商占七成

 

 惠州市领导高兴地指出,惠州与香港关系十分密切。在8000多家外资企业中,港资企业占了7成。惠州对外开放水平进一步提高。「十五」时期累计出口373.4亿美元,年均增长18.8%;实际利用外商直接投资累计51.2亿美元。目前,世界500强企业已有24家在惠州投资设立37家企业。2005年,惠州获得广东省吸收外商直接投资、外贸出口、新增世界500强跨国公司投资等3个项目的一等奖。

 

基础设施实现大跨越

 

 至于惠州的基础设施建设,也实现了大跨越。据柳书记介绍,深汕、广惠、惠河3条高速公路相继建成通车,5年新增、改造公路通车里程631公里,其中高速公路里程180.8公里,累计达280公里。完成了京九铁路惠州段复线改造和惠(州)大(亚湾)铁路建设。惠州沿海港口已建成泊位25个,总吞吐能力3600万吨,比「九五」期末增加2200万吨。

 

 与香港和黄集团合资兴建年处理100万标准集装箱码头项目,也已签订了协议,如一切顺利,2008年就可投产,为惠州的腾飞奠下了更加坚实的基础。

 

滨海石化新城 港商大有可为

 

访问团成员在中海壳牌石化公司参观。

 

 大亚湾经济开发区管委会主任邓木林向访问团成员描述大亚湾的发展思路:除正在紧张建设的石化区外,大亚湾还规划了港口物流仓储区、西部综合产业区、行政金融服务区和旅游休闲度假区,未来将建成以石化产业为主导,电子和汽车工业、旅游业、港口物流业协调发展的现代滨海石化新城区。在大亚湾的建设中,香港的服务业尤其是物流业在大亚湾大有作为。

 

确立经济龙头地位

 

 邓木林说,在「十一五」期间,大亚湾区的经济实力将得到大幅提升,地区生产总值达到500亿元,年均增长57%左右;人均GDP达到50万元,年均增长47%。工业总产值将达到1200亿元,年均递增将近77%,相当于整个惠州市现在的工业规模。未来5年,大亚湾石化区将吸纳600亿元的直接投资,加上已经投入的资金,大亚湾石化区的总投资将超过1000亿元,世界级的先进石油化工基地基本成形,并确立石化产业在惠州经济中的龙头地位。到2015年,完成1500亿元人民币投入,初步建成石化区。

 

生态环境不受影响

 

 对于访问团一行所关心的石化区对周围生态环境影响,邓木林表示,2010年大亚湾区用于环保方面的资金投入占GDP的比例力争达到3%以上。大亚湾对大气、排水、地下水、地表水及周边市民健康都设立了国际先进水平的监测机制,所有数据每日上网公布。壳牌投产至今,数据没有发生明显变化,不会对环境造成破坏。

 

石化城四大项目简介

 

具世界先进水平的中海壳牌石化城新貌。

 

中海壳牌石化

 

 中海壳牌石油化工有限公司投资43亿美元,在大亚湾建设并运营一座具有世界级规模的石化联合工厂。工程已于200512月完工,2006129日乙烯裂解装置投产。中海壳牌石化联合工厂采用世界上最先进的工艺技术及国际接轨的先进管理模式进行设计、施工和运营。通过国际招标引进了13项专利技术,在同行业保持技术领先。

 

中国海油惠州炼油

 

 惠州炼油项目是中国海油独资建设项目,位于南海石化项目西侧,总投资约200亿元,是国内单系列最大的炼油厂。采用国际先进的管理模式,生产工艺和环保处理技术,将建成清洁化、信息化、高价值的具有国际竞争力的精品炼厂。项目年加工重质原油1200万吨,每年生产优质的气、煤、柴油700多万吨,同时为南海石化项目提供优质的裂解原料。该项目2008年建成投产。

 

惠州LNG液化天然气电厂

 

 惠州LNG液化天然气电厂项目是广东省「十项工程」之一的重点能源建设项目,总投资100亿元人民币。电厂分二期建设,最终规模建设6390MW级的燃气-蒸汽联合循环机组,为配合大亚湾的发展,同时规划建设4180MW级燃气-蒸汽热电联产机组。20064月进行调试,6月份正式发电。

 

华德石化

 

 大亚湾华德实化的主营项目是原油储存、输送、重油及成品油的转、存储、供应和技术咨询服务以及原油保税仓库等业务。项目总投资36亿元人民币,建设120万立方米原油库。现已完成一期工程2座万立方米原油罐及相应配套设施的建设。此外,华德石化公司还斥资数亿元用于25万吨级航道疏浚工程。

 

岭南名郡:惠州

 

 惠州市是广东省珠江三角洲九个城市之一,位于广东省东南部、珠江三角洲东北端,南临南海大亚湾,毗邻深圳、香港。现辖惠城区、惠阳区、惠东县、博罗县、龙门县,下设大亚湾经济技术开发区和仲恺高新技术产业开发区两个国家级开发区。惠州市全市陆地总面积1.12万平方公里,占整体珠三角的四分之一,海域面积4500多平方公里,海岸线长223.6公里,常住人口371万。

 

 惠州是广东省历史文化名城,在古代即有「岭南名郡」之称,自隋代以来即是东江流域的政治、经济、文化和交通中心。

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

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

相 关 连 接
网 友 评 论

11:
   惠州贪官多啊

地球人家:
   我是惠州人家我看好新惠州相信惠州的明天会更好!`~~~~~~~~~~~~~~~~~~~`

发 表 评 论
您的大名:(点击这里注册)
友情提醒:评论请限制在100字以内,有长篇大论欢迎到论坛发表:)
 

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

>> 本类热点新闻

·惠州:5年内GDP将增一倍
·惠州大亚湾开发区扩区
·惠州首家五星级 康帝酒店试
·龙门以旅游节打山水品牌
·博罗村民拦路殴港孝子
·康帝国际酒店:弘扬东江文化
·惠州石化投资 3年将达千亿
·中海油惠州炼油厂动工
·中信惠州汤泉龙泉居开业
·龙门旅游节展示世界上最长的
·广东社总逾百人访惠州
·和黄参建惠州货柜码头
·惠港合作推进两地繁荣
·春节深人惠州游带旺楼市
·惠州月杪办生态悠闲旅游节
·「港澳与粤东北」论坛惠州举
·保护海洋生物 千龟惠州放生

 

合作媒体

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


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