<%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 来自:文汇报 点击:568 时间:2006-3-17


本报珠三角新闻中心记者 唐苗苗、余文莲、余丽龄

 

 随着珠三角地区能源日益紧缺、劳动力成本上升,精明的港商开始将眼光转移到粤东、粤西两翼。与香港隔海相望的汕尾,凭其丰富的物产、旅游、土地资源以及日渐完善的能源、交通条件,正吸引大量港资进入。汕尾外经贸部门提供的数据显示,近年内将有200亿元港资投入房地产和旅游等行业,前往汕尾工作和居住的港人将大量增加。汕尾正加快建设珠三角地区旅游度假东花园,目标市场直指港澳。

 

 「我们鼓励港澳企业到广东的山区和东西两翼去发展,同样可以享受『免二减三』的税收优惠。」广东省委副书记、省长黄华华日前在参加广东省政协港澳联组讨论会时这样说。粤东沿海城市汕尾也在今年盯上了香港人的口袋,正如汕尾市市长王蒙徽所说,「每10个香港人就有一个是汕尾籍的」,拥有百万海外侨胞和港澳台胞的汕尾,今年铆足全力也要把外资引进来。而精打细算的香港商人早已先行一步,把投资触角伸向了汕尾得天独厚的滨海旅游资源。

 

黄金海岸 粤东花园

 

 「十一五」开局之年,汕尾市市委书记戎铁文就提出了以后五年的发展方向:加快建设「一个中心、三大组团、五个重点旅游区」,提升与珠三角地区的旅游合作层次,发挥汕尾纳入珠三角2小时经济消费圈的优势,致力把汕尾建设成为珠三角地区旅游度假的东花园。

 辖内海域有93个岛屿、10个港口和3个海湖的汕尾,滨海旅游特色闻名遐尔,拥有「阳光、沙滩、海浪、空气、绿色」五个基本要素。滨海自然风光「神、海、沙、石」兼备,历史、人文内容十分丰富,被誉为「粤东旅游黄金海岸」,开发宗教旅游和海上娱乐旅游潜力巨大。

 

 在「基地+花园」建设进程中,这个日渐成形的花园,已把香港一些独具投资眼光的商人吸引过来。据透露,在谈的香港海陆科技投资基金有限公司工业园区、旅游商贸建设项目,项目前期投资150亿港元。待该项目完成,将有利于促进和推动汕尾工业发展和活跃旅游商贸。

 

港人抢购 房产升温

 

 旅游业的发展必然带动酒店服务业的发展兴起,港商夺得商机。由香港东海集团有限公司投资2,500万港元在城区马宫镇兴建的一座集餐饮、住宿、康乐等业务的度假村,由香港万事达电器实业公司投资4,000万港元在陆河兴建的经营温泉泡浴、住宿、餐饮的旅游度假村,以及由香港誉福投资有限公司投资1,250万美元在汕尾建一座星级综合型宾馆,都已经加紧施工建设。不久的将来,这个「珠三角东花园」将春色怡人,满目葱茏。

 

 在寸地寸金的珠三角地区,穗深两地楼价一路看涨,靠近香港又地价便宜的汕尾逐渐成为港人置业的新取向。消息人士透露,「十一五」期间到汕尾投资置业的港人将大量增加。有港商正是看中这个潜机,开始在汕尾投资房地产项目。据汕尾市外经贸局有关人士披露,香港华策集团有限公司有计划投资57,659万美元开发汕尾环品清湖新区。广东万福房地产开发有限公司,由港商林祝贵等投资1.3亿元开发的市区银湖住宅区也正加紧建设中。

 

加快园区建设 发展临港工业

 

 近年来,汕尾市致力于投资环境的改善,先后投巨资规划、建设了一批经济园区。目前全市拥有汕尾红海湾、海丰老区、陆丰星都、陆丰东海4个省级经济开发试验区及其它各类工业园区33个,规划面积153.4平方公里,累计已投入资金近43亿元,已开发建成面积近20平方公里。

 正行招商引资的红海湾开发区临港工业园,投资总额1亿美元,规划面积5平方公里,该园将充分发挥汕尾新港区的资源优势,重点发展临港工业和现代物流业,大力发展以石油、化工、钢梁结构为重点的大型临港基础工业,并培育现代物流业及码头配套服务业。

 

将建粤东能源重镇

 

 而「十一五」期间规划的电力能源项目基本上布局在广东东西两翼,初步测算,「十一五」期间广东省将在东西两翼投资数千亿元进行大型基础设施建设,其中汕尾将作为电力能源建设的重镇。目前,投资284亿元的汕尾火力发电厂正在加紧施工建设,投资100亿美元的陆丰核电站前期工作也在推进中。

 

 环保能源渐受推崇,随着香港第一座商业级风力发电机组日前正式投入运转使用,海内外投资商亦开始在粤东地区投资风电发电项目。

 

 由国华能源有限公司、神华国际(香港)有限公司等投资17,500万元,进行风电场开发建设,目前已在汕尾市陆丰甲东进行风电场一期工程(30MW)建设。

 

最早港企不断注资

 

 据汕尾市外经贸局有关人员透露,香港信利半导体有限公司将投资30亿港元在汕尾新上半导体TFT生产项目,主要生产供3G移动电话、数字摄像机、导航仪等产品所使用的全彩色显示镜。据透露,该项目已投入资金6,500万港元,完成征地100,600平方米,并已经进行土地平整和厂房建设工作。

 

 此外,作为在汕尾投资最早的港资集团,信利半导体OLED生产项目的一期增资7,250万美元已完成投入,建成二条OLED生产线,第二期增资9,750万美元,扩大液晶显示模块、液晶显示器生产规模,资金已陆续投入中。

 

拟建十万吨级码头

 

 汕尾港距香港仅81海里,港口发展迅猛,往广州、汕头、厦门港也十分方便,成为粤西与粤东、香港与内地之间经济联系的重要纽带。「十一五」期间,港口经济成为汕尾的重头戏之一。由萨摩亚南方国际港口投资有限公司与深圳市泰德华投资有限公司共同投资1,000万美元的南方国际港口发展(汕尾)有限公司,已开始在汕尾经营港口及配套设施开发建设,同时开展相关业务信息咨询。

 

 由香港美港发展有限公司与汕尾红海湾东洲港天源投资有限公司共同投资1,689万元,开发建设红海湾东洲港码头。码头泊位建设继续对外招商。「十一五」期间,汕尾市拟引资3,000万美元,在汕尾港建万吨级码头泊位一个,航道疏浚及港区陆域配套设施,设计年通过能力120万吨(或5万个TEU);计划在红海湾开发试验区遮浪白沙湖港口、遮浪挂林港口,建设5-10万吨级以上泊位码头(油码头、杂货码头、集装箱码头)等设施,科学、合理开发利用当地航道和港口资源。

 

汕尾经济数据

 

 人口:312

 面积:5,274平方公里

 ■GDP总量:224.02亿元,增长16.3%

 实际利用外资:2.16亿美元,增长47.8%

 固定资产投资:102.48亿元,增长39.2%

 社会消费品零售总额:130.32亿元,增长15.9%

 财政收入:7.09亿元,增长27.9%

 城镇居民人均可支配收入:8,311元,增长9.4%

 

「十一五」旅游业重点招商项目

 

 汕尾沙舌旅游开发项目,投资总额1,000万美元,以合资、合作、独资的方式,规划建设集水上运动、沙滩娱乐、休闲度假于一体的滨海度假旅游区。

 陆丰市古卫城旅游胜地,投资总额2,000万美元,投资开发玄武山宾馆、水上游艇;玄武山停车场、海角石林景区;文化中心淡水游泳池、南线头度假村。

 海丰赤坑咸水温泉度假村,投资总额1,000万美元,利用海丰赤坑具有丰富咸水温泉资源,建成集治疗、保健、养生、度假等多种服务功能度假村。

汕尾主要领导

 市委书记:戎铁文

 市长:王蒙徽

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

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

相 关 连 接
网 友 评 论

Q:
   汕尾的发展离不开官员的努力,加油吧,为家乡贡献你们的力量.

林:
    汕尾是个很好的地方,为什么就开发不起来呢!吴华南做得好.要给天收了.

新城路:
   汕尾为什么开发不起来就是在于没有机遇

kevin:
   汕尾一直以来就有大批“好官”,希望能注入大批通过正式考试录取的公务员,各政府职能部门办事能公开、公正、公平并接受监督。

霖:
   我个人觉得,汕尾的发证潜力远远大于其他城市. 为什么至今还是落后呢? 希望在"十一五"的计划中.五年后将成为"珠三角"东花园.

海外人:
   汕尾是个好地方,为什么就是开发不起来呢?请问前几届市委书记吴同志?

wksanfqp:
   我是汕尾人啊!我多么希望汕尾能像广州一样天天在创新!也希望汕尾的官员们都要开明!清廉!能得象香港清廉的政府!如果有一天汕尾真的能这样!我会回去自已的地方贡献我的一切

wksanfqp:
   这里填写您的评论:)

汕尾人:
   汕尾是个很好的地方,为什么就开发不起来呢!

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

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

>> 本类热点新闻

·汕尾红海湾警民传酿冲突
·汕尾公安副局长革职刑拘
·汕尾打造「现代化滨海城市」
·海陆科技拟150亿投汕尾
·“魅力汕尾”后发优势凸现
·十一.五商机之汕尾篇.汕尾
·核能地产高科技 汕尾蕴万亿
·外资看好汕尾发展
·五年大计汕尾打造滨海新城
·粤“新汕尾”发力腾飞
·古风泛珠江 魅力聚汕尾
·珠三角东花园 汕尾振翅欲飞
·“达维”登陆汕尾 为首届
·汕尾成粤东高新出口基地
·汕尾借促粤东发展机遇 办纪
·汕尾市加快发展 招商引资放
·汕尾港现大面积赤潮

 

合作媒体

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


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