" search=search&"" 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%>

报料、招商、投诉热线:020-83825987 在线订报  在线投稿 网站首页 | 活动视窗 | 时政要闻 | 金融财经 | 产经新闻 | 社会新闻 | 科技动态 | 教育文化 | 旅游休闲 | 饮食娱乐 | 粤港合作 泛珠新闻 | 广州 深圳 珠海 佛山 汕头 中山 东莞 江门 韶关 河源 梅州 惠州 汕尾 阳江 湛江 茂名 肇庆 清远 潮州 揭阳 云浮

您的位置：首页 > 广东新闻 > 深圳 　 谷旺西部通道 深圳湾建商圈 　 wwpprd.com 作者:wwpprd.com 来自:文汇报 点击:0 时间:2007-12-4 本报珠三角新闻中心记者：郑海龙　通讯员：徐殿伟   　本报独家获悉，深圳市已开始着手在连接深港西部通道的深圳湾口岸附近，兴建一个市级中心区和一个区级中心区，而在目前仍是空地的口岸外，将接连建设出三个城市连接结点。有关规划专家透露，此举将使孤立在填海区的深圳湾口岸不再孤单，而逐步完善的交通及基础配套设施和居民区，也将使该口岸的重要性提升到目前皇岗口岸的水平。   　该专家透露，新近的《深圳市城市总体规划（2007-2020）》(简称《规划》)草案，规划了一个与深圳湾口岸相配套的市级新商圈—前海中心。新商圈几乎囊括了整个深圳湾口岸填海造陆的地域，包括前海、后海和宝安中心区。有消息透露，与深圳湾口岸同时施工的填海造陆区，将按照规划兴建成深圳新经济商圈的主体部分，并在2012年前后建成基本雏形。其主要设施将以物流和金融业为主，而该配套设施的施工与启用，将彻底改变现时深圳湾口岸使用率偏低的状况。   居民目击：开工月余   　记者昨日走访深圳湾口岸时发现，原本闲置的空地上已有大型机械在施工。「我们在家每天都能听见不停的打桩声。」附近的居民称，大约一个月前，填海区的西部就已经开始施工了，「说是要建成一个商业街，规模还很大」。   　记者按照居民的指引，看到施工地带长约1,000米，宽至少也有200米。而类似这样的工地在口岸附近的填海区至少有三个，有的虽然尚未开工，但工棚及施工地点都已经圈好。   　据数据显示，深圳湾口岸建设伊始，填海造陆约640公顷，其中深圳湾口岸占地不足120公顷，而剩下的填海面积(约520公顷，相当于27个维多利亚公园)除部分必要的绿化及道路外，都将被开发利用，产生经济效能。   设施主打：物流金融   　专家强调，深圳湾公路大桥是广东沿江高速公路的咽喉。待广东沿江高速开通后，深圳蛇口到香港将只有10～15分钟的车程，广州与香港的距离将缩短至100公里，使深港公路口岸布局趋向合理，有利于促进深港经济交流，促进深港两地人流、物流往来，促进两地经贸，旅游事业合作，整个珠三角经济圈的竞争力将得到增强。   　而在深圳湾口岸开通伊始，其孤立的口岸设施、遥远的居民区以及不完善的配套设施，一直以来都为过境商客所诟病。也正因如此，使得一些原本可以走深圳湾口岸节省运输成本的运输公司，因无法在口岸附近设立办事机构及宿舍，而不得不继续选走皇岗口岸，让深港两地政府配给的实惠无法分享。   　而深圳湾口岸一旦在5年内形成物流和金融业为主的商圈雏形，将极大地提高口岸的使用率，并促进两地经济特别是机场物流的发展。   设施好位置佳 新口岸潜力一流   深圳市规划专家指出，深圳湾作为深港口岸中唯一一个具有一地两检功能的口岸，其周边配套设置一旦完善，将拥有超级优势吸引更多的客流及物流。   　以前从香港元朗乘车到罗湖口岸过关，每次都至少需要3个小时的车程，而如今经深圳湾口岸过关却只要30分钟，且车资更是以前的四分之一──9.5元港币。深圳湾开关以前，皇岗口岸因其旅行线路接驳成熟，价格相对比较低廉，而几乎成为旅行团的「专用口岸」。深圳湾口岸开关以后，大大缩短了深穗莞惠、特别是深穗两大空港到香港的距离。   　「就因为走这边能大大节省时间、交通方便，目前已开始有旅行团选走我们深圳口岸了。不仅是内地到香港的团，还有从香港到内地的团，是双向的。毕竟，除了皇岗口岸之外，还是这边更有吸引力，因为到机场也好，接驳西部城市旅游也好，深圳湾的地位无可比拟，价格公道实惠。」有口岸工作人员这样对记者说。   　在深圳目前所有的对港口岸中，深圳湾口岸是唯一一个按24小时通关全天候设计的口岸，因此其在技术器材上的投入，也较其它口岸更为先进。   日贴十余万 口岸暂赔本运营   深圳湾口岸开关以来，如何提高新口岸的使用率一直是令深港两地政府颇为头痛的问题。因配套设置不足而导致口岸不能发挥最大效益，两地政府部门更不得不额外支付口岸设施的维护费及日常开支。   深港新招频出 增口岸使用率   　据有关数据显示，仅深圳湾口岸的必要维护、水电及员工开支，深港双方付出的代价就在每日十几万元的基点上。为此深港两地政府正积极放宽各项政策，鼓励车辆尤其是货运车辆使用新开的深圳湾口岸。就在不久前，香港政府有关部门还特派专人，到深圳与国检部门商议是否可让原本走文锦渡口岸的运菜车改走深圳湾。足见两地政府对尽快提高该口岸使用率之期盼。   　记者日前走访深圳湾口岸，发现虽经两地政府极力支持，但深圳湾口岸利用率仍然不高。按照目前的通关数据，该口岸日旅检约3万人次，货检1,000余辆次，对于这个设计通关量达到日旅检6万人次，货检4.3万辆次的大型口岸仍然显得可怜兮兮。在货车入境通道，虽然可以不时看见空车入境深圳，但是仍然只需开通十分之一的通道即可应付。此外，旅检通道有整整一层验证大厅仍处于封停状态。口岸办的人员承认，「按照目前情况，口岸还处于『赔本』运营状态。」   最怕风大封桥 司机无奈绕道     一些货柜车司机接受记者采访时仍表示，走深圳湾虽然会节约很多成本和时间，但由于深圳湾口岸大桥规定在风速65公里/小时要封闭，使得一些公司和司机对选走深圳湾大桥仍有很大的顾虑。「我们做运输行业的，都要赶时间给货主送货，如果晚了要负担很多的赔偿。现在物流运输行业竞争激烈，成本高利润低，所以我们都要防止出现类似的封桥情况。」货柜运输业职工总会主席赵资强在接受记者采访时表示，「根据有关规定，我们货柜车只能选择登记一个口岸进出，但是如果我们选择了深圳湾，那么一旦遇到台风，就意味着一两天都过不了关。希望政府部门能够考虑这些因素，在大桥关闭的情况下，能允许我们从其它口岸进出。」   　司机们还表示，如果真的出现了封桥情况，希望两地政府想方设法及时通知所有可能过境的运输业人员，「因为我们不是专家，不可能测算出风速。」   深订总体规划 注重与港交流     深圳城规专家指出，本次《深圳市城市总体规划（2007-2020）》草案的修编，十分注重加强与香港方面的沟通。深圳市规划局为此走访了香港规划署、环保署等多个部门，了解深港合作在各方面的意向和最新进展，就深港合作进一步增进共识，加强与珠三角城市的交流。而《规划》草案也在不久前被建设部批准。 责任编辑：cnred 文章页数第[1]页  页面功能 【我来说两句】【字体：大 中 小】【打印】 【关闭】 相 关 连 接 ·还没有相关文章 网 友 评 论 ·还没有相关的评论！ 发 表 评 论 您的大名: （点击这里注册） 这里填写您的评论：） 友情提醒：评论请限制在100字以内，有长篇大论欢迎到论坛发表：） 　 综合新闻|广东新闻|专题新闻 >> 本类热点新闻 ·深圳凯宾斯基酒店求售 ·深圳海关缴仿真枪增7倍 ·盐田港再罢工 逾万货柜滞留 ·深圳黄金地建88层摩天楼 ·深圳「新服务」赴港产子一条 ·深筹建创新型科技大学 ·深圳大铲湾码头一期动工 ·深圳足浴店「多过米铺」 ·深「三来一补」企业 五成将 ·深圳中山建通道 拟公路铁路 ·深黑帮「无间道」 「大佬」 ·梁定邦与深圳女友照曝光 ·港禁区开放 莲塘先受益 ·深截116辆香港走私车 ·蛇口香港客轮班次增 下周二 ·深湘高速直通盐田港 ·华侨城进军上海撼迪斯尼 ·深圳水贝全国之最 亩产六万 ·深圳电池厂五千人罢工 ·鹏城25年规划 深港同城化 ·中英街图变身 历史文化地标 ·深圳中信地铁商场港推售 ·深圳港人侄 离奇堕楼亡 ·深蔡屋围20亿改建金融中心 ·环球资源深圳中心区设总部 ·深港都市圈 五年见雏形 ·租不如买 深圳楼价升不止 ·深南坪快速西段通车 免收费 ·珠三角主题公园恶性重迭 ·天利中央广场明年中发售

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