<%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%> 香港文汇报珠三角新闻网_新丰江流域 向工业说不

您的位置:首页 > 广东新闻 > 韶关

 

新丰江流域 向工业说不

 

wwpprd.com 作者:wwpprd.com 来自:文汇报 点击:0 时间:2008-6-8


■新丰江流域将严禁上马工业项目。图为一派自然风光的新丰江沿岸。本报广州传真

 

——港澳水源保护地 欲以江源引财源

 

本报珠三角新闻中心记者:蔺广凯、胡进

 

 广东今年悄然拉开了区域功能重新定位的大幕,粤北将发展绿色经济,珠三角产业转移将主要向东西两翼扩展。记者获悉,广东高层有意将粤北地区的新丰县大部分、河源市一部分划为「禁止开发区」,这片区域基本涵盖整个新丰江流域。按照广东的设想,这片提供了港澳用水量43%的流域,将禁止上马任何工业项目,生态和水源保护是第一位的任务。此外,对于即将于6月中旬在香港举办的第22届香港国际旅游展,与其它城市相比,粤北也显得特别积极主动。

 

 今年3月份, 广东省林业局局长徐萍华调任清远市市长,再次透露出广东高层对粤北生态的特殊关注。有知情人士透露,「对于清远,广东在3年内不会再批什么工业项目」。种种举动透露出,广东区域功能正在重新定位,粤北不再是珠三角产业转移的重镇,而是突出生态环保,产业转移将主要向东西两翼扩展,而珠三角将定位高科技。在这一战略调整背景下,珠三角地区产业转移和粤北地区招商引资都将进行相应的策略调整。

 

加快景区开发 以真山真水揽客

 

 知情人士透露,广东高层有意将提供了港澳用水量43%的整个新丰江流域划为「禁止开发区」。「我们现在最欢迎生态旅游、酒店等服务业的投资项目。」韶关市新丰县县委书记邓阳秋接受本报记者采访时说。

 

 邓阳秋表示,处于珠江三角洲发达经济与粤北生态旅游圈的交汇点,又是东江重要支流─新丰江的发源地的新丰县,必须走保护生态环境与发展经济并举的道路,以「江源引财源,化边缘为前沿」的经济发展战略,打造「真山真水、原汁原味」 的休闲旅游胜地。

 

完善设施配套 延伸旅游产业链

 

 随着大广(大庆─广州)高速公路新丰段的兴建,新丰必将成为旅游旺地。围绕打造旅游大县和珠三角旅游休闲基地的目标,在高起点完成总体规划的基础上,加快旅游景区景点开发,重点加快推进云髻山旅游区和云天海度假村两大景区建设步伐。

 

 同时加快发展旅游配套服务项目,力争引进并动工兴建一家四星级以上商务酒店,抓好旅游食宿、娱乐、信息等关联产业发展,延伸旅游产业链。

 

珠三角产业转移 不转粤北转粤东

 

  问题关键,在于粤北既是广东全省的生态屏障,又是珠三角的主要水源地。广州、佛山和珠三角西岸地区,主要使用西江及其支流供水;东莞、香港以东江为水源;深圳除了直接从东江取水的东深供水工程外,亦从东江之支流西枝江取水;惠州市区则主要从西枝江取水。

 

环保优先 还粤北青山绿水

 

 以经济最为发达的珠三角东岸为例,其主要水源为东江水系,但东江干流水质在河源段时尚为一类水质,但到惠州博罗段已恶化为二类水质,到东莞段更恶化为三类水质甚至四类水质。有关专家认为,倘若河源按照现在的工业化进程,要不了10年,河源段东江水质恶化为二类甚至三类水质是可期的事情。

 

 如何保住粤北的青山绿水,但又不排斥粤北人民追求现代化和幸福的权利?不少学者建议,广东省财政通过转移支付的方式,支出大量资金支持粤北山区的教育、文化、医疗卫生、社会保障、环境保护、交通等各项事业,使之获得与珠三角质量相近的公共服务;省内主要水系进行水权市场化改革,上下游地区可进行水权交易,让下游工业化地区为水资源和生态保护提供成本,粤北山区通过水权交易和排污权交易,从下游产业发达地区获得生态补偿。

 

 广东省高科技商会秘书长王理宗则进一步建议,「粤北山区应该大力发展旅游休闲、健康养生、生态体验、现代农业等零污染的绿色产业,并使之在全国及全球具有较强竞争力,成为强势产业,为粤北山区的现代化提供产业支撑」。这些产业既是粤北的优势,而且大多属于劳动密集型产业,可有效解决粤北就业难题。王理宗是河源其中一个产业转移工业园的操作者,他对河源未来的环境和生态压力表示担心。

 

 更有研究者指出,珠三角产业转移应该转向粤东而非粤北。历届省委、省政府将粤北地区的经济增长作为平衡区域发展的中心工作来抓,促进粤北各市的经济增长和财政收入提高,可以说取得了一定的成效,但也不能否认的是,对粤北山区的生态环境也造成了不小的压力。

 

官员反思 粤北不宜「工业立市」

 

■环境优美的河源市,将重点发展绿色经济。

 

 在珠三角这轮产业转移大潮中,粤北山区成为重要的承接地。那么,粤北山区还能走工业化和城市化的老路吗?

 

 粤北如何发展和现代化的问题,关乎广东未来发展之大局。「富了珠三角,不忘穷山区」,一直是广东所追求的政策目标,尤其是自2002年以来,广东省就山区的发展出台了全方位的政策,从临时性、松散性的扶持转向制度性、集中性的扶持,从单一的经济扶持转向整个发展环境的扶持,其力度前所未有。

 

 2004年,广东又在全省实行财政激励型转移支付机制,激励山区打造后发优势。省级财政打破了原有的转移支付「大锅饭养懒汉」的弊端,对县级财政按照确保既得利益、促进收入增长、实行奖勤罚懒的原则,一定4年不变,以促进县级财政做大做强。

 

一度迷信「无工不富」 盲目承接污企

 

 这样的政策促使山区各市拚命发展工业,因为地方主政官都明白「无工不富」的道理;省财政投入数百亿元改善山区的基础设施,也为粤北吸收工业转移大开方便之门。迄今为止,珠江三角洲在山区和两翼签署了20多个产业转移工业园的协议,其中大部分在粤北山区。

 

 粤北迅速工业化的两个典型是河源和清远。1999年,河源市确立「工业立市」战略,工业占GDP的比重从1998年的17.7%提升到2007年的46.5%,清远市则在近5年里工业增速连年保持在65%以上,仅用5年时间,工业产值从100亿元到突破1,000亿元大关。

 

 在转移过程中,转入地大都会强调此类产业的无污染性,但是这与转出地讲述的逻辑并不吻合。珠三角强调它需要转出的是「低端产业」,大部分是高耗能、高耗水、土地资源消耗比较大、附加值低,而且不乏污染项目。

 

 山区的地方官员也在反思粤北的发展模式:「(粤北)山区的发展不在于扶持力度的大小,而是在于发展思路的调整……粤北和珠三角的互动发展不能只停留在产业转移的层面,而且仅仅依靠承接珠三角的产业转移对粤北山区的发展来说,不但非常有限也不利于生态环境的保护。」

 

生态旅游 撑起未来发展天空?

 

■为确保湖水的洁净,广东万绿湖旅游区使用环保船。

 

 虽然东江在全国水系中寂寂无名,但由于它是香港、深圳、东莞等全国著名城市群的主要水源,而且将来也极可能向本区域另一大都会─广州供水,因而格外引人注目。但「同饮一江水」的新丰、河源和香港,其繁荣富足与贫穷落后在一江上下尽显无遗。

 

 原广州市委常委、宣传部长调任河源市委书记的陈建华强调「生态优势是河源最大的优势」,他到任后,更叫停了大量欲迁到河源的陶瓷工业项目,并将陶瓷工厂驱赶出河源。

 

新丰江直饮水 年输4亿立方米

 

 河源市一直在推动的一项重大工程,就是「新丰江水库至珠三角地区城市管道直饮水工程」计划。河源市市长透露,从新丰江水库建设主管道通往珠三角地区,沿途城市可共享,主管道投资约30亿至35亿元;年输水量约3亿至4亿立方米(在保证新丰江水库功能的情况下,最大取水量可达9亿立方米),主要供香港、深圳、东莞、惠州、广州等市居民食水的需要;销售水价估计为50/方,完全在居民承受范围之内。据估算,此一工程若投入使用的话,每年可带给河源至少数十亿的收益。

 

 「现在河源市财政收入2007年也不过十几个亿,倘若河源可以靠水权交易和排污权交易,获得大量生态补偿,再加上省财政应大幅度提高对粤北山区的财政转移规模倒10亿至15亿以上,则河源就更有信心和能力避免重走珠三角工业化老路,为广东省留下最为宝贵的绿水青山。」一位不愿透露姓名的学者对本报表示,这种交易完全有可能使河源市每年获得数十亿的收益。

 

若获生态补偿 免走工业老路

 

 如果说河源的发展问题可以通过卖水来解决,那么,给新丰江水库提供了43%水量来源的新丰县,却无法从卖水收入中拿到一分钱的生态补偿,那么,为香港水源保护作出重大贡献甚至牺牲的新丰,应该走一条什么样的发展路径?生态旅游产业能否撑起新丰未来发展的天空?

 

珠三角后花园:新丰

 

■游人在云髻山寻幽探秘。网上图片

 

话你知 有「珠三角后花园」之称的新丰县位于广东省中部偏北,东江发源地之一,境内自然生态环境优美,森林覆盖率达79%,到处呈现出青山绿水、鸟语花香,空气新鲜,有天然热水湖,海拔1,438.8的云髻山为省级野生动植物自然保护区,有丰富的温泉资源,是旅游、度假、登高、赏雪的好去处。

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

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

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

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

>> 本类热点新闻

·港商6亿投南雄生物发电
·南雄招商「四面」突破
·仁化藉丹霞山发展旅游业
·翁源以园区为平台招商引资
·韶关推优惠政策 引港商产业
·千年古镇故事多
·中国旅游胜地——丹霞山
·仁化冀五年财税收入翻番
·走进八卦围 如堕迷魂阵
·乳源县政府来港会乡贤
·韶关建大丹霞生态旅游圈
·韶关市府来港推介经贸
·仁化五大产业成经济支柱
·韶关退出产煤大市行列
·仁化建四园区迎产业转移
·韶关打造大丹霞旅游圈
·新界总商会青委考察韶关
·徐建华当选韶关书记
·韶关市府邀港各界恳谈
·政经学会文促会游韶关
·韶关教育关注弱势群体
·乳源西京古道 对接海上丝路
·韶关设粤港农业合作示范区
·韶关今年引资426亿
·韶关机场军转民 港澳半小时
·广东丹霞山 18日举行集体
·50对中外新人丹霞完婚
·韶关暴雨炸坝泄洪
·韶关发行百万《应急手册》
·韶赣「无冰」高速动工 后年

 

合作媒体

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


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