<%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%> 香港文汇报珠三角新闻网_河源20年:从粤北穷乡到活力新星

您的位置:首页 > 广东新闻 > 河源

 

河源20年:从粤北穷乡到活力新星

 

wwpprd.com 作者:wwpprd.com 来自:文汇报 点击:27 时间:2008-1-9


■广东省河源市迄今已有2,200多年历史,是客家人开发岭南最早的地区之一。198817,经国务院批准设立地级市。现辖源城区、东源县、和平县、龙川县、紫金县、连平县,面积1.58万平方公里,人口340万。

 

本报珠三角新闻中心记者 于滨、吴海曲

 

 新年伊始,广东省河源市到处鲜花盛放,彩旗飘扬,一片欢庆祥和。从前天(7日)起,该市就在举行系列文化经贸活动庆祝建市20周年,据悉活动将持续到明天(10日)。河源建市20年,已由昔日封闭落后的山城变成了今天城市增长竞争力排名全国第四位的新兴城市,其经济社会的巨大变迁为中国改革开放的成功做了最好的诠释。

 

 20岁的河源,青春洋溢,生机勃勃,先后被评为「全国卫生先进城市」、「全国环境综合治理先进城市」、「中国优秀旅游城市」、「港澳及海外华人心目中最适宜居住和创业的城市」、「全国生态环境保护最佳范例」、城市增长竞争力排名全国第四位、中国最有魅力城市200强第14名、「全国双拥模范城」、「广东省文明城市」、「广东省园林城市」。现正全力创建「国家环保模范城市」和「国家卫生城市」。

 

围城变通途 融入珠三角

 

 20年来,河源市累计投入192.3亿元,新建、改建国、省道1,576.1公里,改造县通镇公路3,212.3公里,建设村道硬底化4,547.3公里,建成高速公路共232公里。从20年前没有一寸水泥路、铁路和高速公路,到现在境内有广梅汕、京九两大铁路和惠河、梅河、粤赣三条高速公路,昔日的偏僻山区变成了粤东北陆路交通枢纽,全面融入了「珠三角两小时经济生活圈」。

 

 和1987年相比,目前河源市的面积扩大了5.4倍,有7大桥梁、几十条街道和一批大型商场购物中心,还有众多高档酒店和许多大型住宅小区。创建省级以上学校17所,完成老区希望小学改造项目学校292所,新建和改造中小学校510所;输送大专以上学生95,331名。建设了一批大型文体设施,发展了客家特色文化,保护了古邑的历史古迹。龟峰塔被列第六批国家重点文物保护单位,紫金花朝戏被列入首批国家级非物质文化遗产名录,连平「忠信花灯」被列入第一批省级非物质文化遗产;恐龙蛋化石馆藏量被列入吉尼斯世界纪录,河源被授予「中华恐龙之乡」称号。

 

环境四连冠 「万绿」不虚传

 

 20年来,河源市实施广东省「十项民心工程」,推进新农村建设,建立医疗卫生服务体系,东源县大往村被评为「全国整村推进扶贫开发先进村」,千村脱困政策获「第二届中国消除贫困奖政策奖」。

 

 该市连续四年在全省环境质量考核和珠江综合整治考核中获得双优秀。全市江河水质全年保持国家地表水类标准,空气质量全年保持在一级水平,森林覆盖率达69.7%,万绿湖被中国食品工业协会唯一授予「中国优质饮用水资源开发基地」称号。目前共建立省级以上自然保护区7个、省级以上森林公园2个,河源市并被评为「全国生态环境保护最佳范例」城市。

 

市委书记陈建华:抓住黄金机遇 打基础谋长远

 

河源市委书记陈建华在建市20周年前夕接受本报记者采访时表示,河源已进入发展快车道,黄金机遇面前,要以正确政绩观打基础谋长远,提高质量效益,为又好又快发展奋斗。

 

政策力挺 五大优势明显

 

 陈建华指出,河源目前正面临难得的机遇,并拥有良好条件:一是十七大提出「转变发展方式」和「建设生态文明」,将为河源后发优势和生态优势的发挥提供有利的外部环境条件和强力的政策支撑。二是国际社会普遍看好中国,全国经济发展仍将保持强劲势头。三是广东全面实施区域协调发展战略,加快推进珠三角产业转移,为山区加快发展提供更多机遇。四是河源作为粤东北陆路交通枢纽,区位优势日益凸显。五是河源拥有丰富的自然和历史文化资源,人均矿产、森林、水和土地资源均居全省第一,2222年客家人文历史影响深远,这都是加快发展的优势。

 

山区带头 落实科学发展

 

 陈建华说,面对机遇要乘势而上,以强烈的危机感、紧迫感和责任感树立正确的政绩观,打基础谋长远,全面协调可持续,依法行政规范管理,提高质量效益。坚定走「园区式、用地省、低污染、好效益」的新型工业化道路,坚持「既要『金山银山』,更要绿水青山」,发展生态产业和现代服务业,形成外源型经济、内源型经济和服务型经济优势,建立体现科学发展观和正确政绩观要求的目标管理考核体系,争当广东山区实践科学发展观的排头兵,到2020年与全省同步进入全面小康社会。

 

 展望未来,陈建华满怀信心地表示,明天的河源,将成为广东省手机生产基地、新兴制造业基地、绿色农副产品生产加工基地、旅游休闲度假基地、泛珠三角商贸物流基地

 

市长刘小华:勇做「栽树人」增民「幸福感」

 

河源市市长刘小华在新年伊始对本报记者表示,新一届政府要认真学习历届政府的优良传统,坚持立党为公、执政为民,不辱使命、不负重托,全力推动经济社会又好又快发展,千方百计增加百姓的幸福感。在任期内,加大解决民生问题的力度,要有更多投入、更多有力措施、更多亮点、更大作为,勇做「栽树人」。

 

拥资源优势 看好未来20

 

 刘小华说,河源已成为后发优势明显,广大客商投资兴业的热土;生态优美,空气、水质一流的净土;最适宜人居,旅游、休闲度假的乐土。2008年的主要预期目标是:力争GDP增长15%,全社会工业增加值增长20%,地方财政一般预算收入增长16%,人均GDP增长14%,全社会固定资产投资增长10%,实际利用外资增长10%,农村居民人均纯收入增长6%,人口自然增长率控制在千分之7.5以下,单位GDP能耗下降3%

 

 对河源未来20年的发展,刘小华表示充满信心。他说,河源有得天独厚的资源优势,未来发展中,谁拥有资源,谁就有后劲。假以时日,河源必将成为广东省生态最优美,人民生活最幸福,客商最乐意投资兴业,最具活力和竞争力的地区之一。

 

成泛珠枢纽 最重携港合作

 

 随着开放发展,河源已从闭塞山区走向交通便利、信息发达的泛珠三角枢纽。刘小华表示,近几年,到河源投资创业的外商越来越多元化,但与香港客商的合作仍是最重要的部分。他说,「河源与香港一衣带水,在多年的交往中,我们感到港商守信用,有实力,具实干精神,开拓市场的能力特别强。今后的联系必将越来越密切,在经济、贸易、文化、技术等方面继续广泛、深入地合作。」

 

数字河源 20年巨变

 

  ■大型手机生产基地 —— 西可通讯设备有限公司。

 ■综合经济:2007年全市实现生产总值333.5亿元,比1987年增长14.5倍,人均生产总值11,905元,比1987年增长13.6倍;全社会工业增加值160.2亿元,比1987年增长45.8倍;财政一般预算收入15亿元,比1987年增长36.3倍;全市实际利用外资2.86亿美元,比1987年增长218.8倍,外贸出口8.53亿美元,比1987年增长148倍;

 ■农业:2007年全市农业总产值81.06亿元,比1987年增长2.9倍。

 ■工业:2007年,全社会工业总产值508.6亿元,比1987年增长61.3倍。

 ■旅游:2007年全市接待游客615.46万人次、旅游总收入26.88亿元,分别比1987年增长266.6倍和133.5倍。

 ■公路:密度由1987年的每百平方公里20.92公里提高到2007年底的每百平方公里66.3公里;建成高速公路共232公里

 ■城区:市区建成区面积由4.05平方公里扩大到26.1平方公里,常住人口由12.7万增加到32万,城市化率由12.2%提高到40.1%。

 ■生活水平:2007年,全市农村居民人均纯收入比1987年增长9.4倍、城镇在岗职工年均工资比1987年增长15.1倍、城乡居民储蓄存款余额比1987年增长87.1倍;农村人均年纯收入1,500元以下的贫困人口户数和人数由1998年的16.53万户、80.26万人减少到2007年的3.48万户、17.67万人。城镇居民和农村居民人均居住面积分别比1994年增加23.814.8平方米

 ■社会保障:2007年养老保险、失业保险参保人数分别比1987年增长3.46倍和36.4倍;新型农村合作医疗参合率达78.7%;全市医疗卫生机构比1987年增长1.15倍。累计改造建设乡镇卫生院68所、敬老院67间。

 

三大产业根本转变

 

  ■河源有广东省最大的猕猴桃种植基地。

 ■农业:实现了从低效到高效、从零散到集约的飞跃,以绿色、环保为特色的河源农产品纷纷进入珠三角和港澳市场,使河源成为穗深港澳农产品重要供应基地。

 ■工业:实现了从少到多、从小到大、从散到聚的飞跃,初步形成移动通讯、食品饮料、矿产冶金、机械制造、电子电器、轻纺服装、建材陶瓷、医药制造、钟表眼镜、电力能源等十大产业;拥有两个省级产业转移工业园。

 ■旅游业:实现了从无到有、从有到旺、从旺到优的飞跃,目前已开发建设了「万绿湖&桂山」国家AAAA级风景区和赵佗故居等一批景区景点,打造了系列旅游产品,树立了「客家古邑、万绿河源,温泉之都、恐龙故乡」旅游新形象,引起粤港澳居民游河源热潮,成了珠三角名副其实的「后花园」。

 

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

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

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

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

>> 本类热点新闻

·河源获救人质竟是通缉犯
·港深河合建50亿电厂项目
·国际旅游小姐争艳河源
·吴惠权捐500万助建河源医
·河源拒300亿「污染投资」
·河源两希望工程相继落成
·河源旅游转型休闲度假
·河源福和产业园 冀港中小企
·河源办客家旅游文化节
·万绿湖6招保护东江水
·河源捣制假窝点缴亿元假钞
·河源经贸团珠洽会签约50亿
·百亿项目招商 河源迎港台企
·河源入市毒盐全被回收
·河源生态文明是构建和谐社会
·河源20年:从粤北穷乡到活
·河源20年非凡成就 千人庆

 

合作媒体

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


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