<%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-7-19


■福田区是深圳新近发展的金融商务中心,将逐步成为港人前往深圳商务、生活的主选区域。

 

——一区将拥三口岸 15分钟至九龙 每日人流百万

 

 【本报珠三角新闻中心记者君慧深圳18日电】记者今日从深圳市规划局获悉,未来12年间,深港每天跨境人流将从目前的42万提升到100万人次,跨境客流中心区也将由港人熟悉的罗湖区转移至福田区,届时由深圳通达西九龙区最快只需要15分钟。此外,深圳将新增45个新口岸,深港跨境通道将增至9条,其中4条铁路信道、5条陆路信道。

 

 深圳市城市交通规划研究中心主任林群对本报透露,至2020年,深圳跨境人流中心区将从现在的罗湖区逐渐转移至福田区,经过多项测试和数据研究预测,未来日跨境人流量将从06年的42万人次提升到100万人次,而罗湖、福田两区的跨境人流量将占深港总体跨境人流量的三分之二。

 

火车站设口岸 港客直达通关

 

 据悉,福田区将增设新的口岸位于福田火车站。福田火车站将是国内第一座地下火车站,位于福田商业中心区(CBD),周边是甲级写字楼和高档商业区,距离福田口岸、皇岗口岸不超过10分钟车程。按照规划,该口岸将接驳广深港客运专线和深圳地铁1234号线,旅客在此上下车时分别要接受两地出入境检查。深港双方就其通关模式仍在协商,协商焦点在于该口岸能否将出境检查和入境检查设在同一方完成的新通关模式。

 

 林群称,广深港铁路客运专线计划2014年建成,届时将显著改善香港和其它珠三角城市的联系,而该线路经过的深圳龙华站及终点站广州石壁,将来都会是接驳全国铁路网的枢纽。广州石壁站将是北京至广州新客运专线的终点,乘客日后从香港前往武汉,仅需5个多小时,并可转乘铁路前往上海、重庆、成都等地。待北京至武汉客运专线竣工后,旅客更可直接由香港前往北京,全程只需10小时,是现时行车时间的一半。

 

 因此福田火车站口岸未来将接送来自北京、武汉等远程旅客,并可立刻将乘客输送往深圳市区及香港,吞吐能力惊人。「在极小的范围内有三个口岸,必将使福田区超过罗湖成为跨境人流的中心。」 林群说。

 

未来增5口岸 拉近深港距离

 

  除了位于福田火车站的口岸外,广深港客运专线还将在龙华新火车站增设一口岸,深港机场快线深圳境内有2个口岸(前海站铁路口岸、机场站铁路口岸),加上已经正在开展详细规划设计的莲塘-香园围口岸,到2020年为止,深圳市一共将增加5个新口岸。

 

  此外,结合东部地区旅游发展,将适时启用和建设大梅沙、西涌和南澳等水运口岸。

 

 口岸的增加,通关的便利,使得深港两座城市被拉得更近。林群说,福田客运枢纽到西九龙距离30公里,运行时间不到15分钟。「也就是说,以后从深圳中心区到香港西九龙的商贸中心不到15分钟,甚至比从深圳的罗湖区到南山区还近。」他说,「从关外的龙华站到西九龙39公里,如果不算中间停靠时间,直线运行时间只需要1718分钟。」

 

重要跨境设施建设进展

 

■港人目前北上通关首选罗湖口岸,但其跨境客流中心区地位势将由福田取代。

 

莲塘口岸及东部过境高速公路 (拟建)

 从香港往深圳东部、惠州以及粤东方向的跨界交通,是深港跨界货运交通「东进东出」的主要通关口岸及通道。其中,东部过境高速公路现已完成工程可行性研究,预计今年底可开工。而莲塘至香园围口岸现正在开展详细规划设计工作,计划在2015年开工建设,2018年建成。

 

港深机场轨道联络线 (拟建)

 从深圳机场经过前海,抵达香港机场,再引出一条支线连接香港西铁,方便抵达香港中心区,未来一条把深港两个机场连接起来的港深机场轨道联络线现已提上日程。0712月,两地政府共同成立「港深机场合作联合专责小组」,目前正合作开展前期规划研究。

 

广深港客运专线 (在建)

 广州至新深圳站段已于0612月开工建设,目前,新深圳站至福田站段正在开展施工图设计,香港段正在开展初步设计。计划2014年建成。对于深港间的联系,未来沿这条专线从深圳的龙华、福田抵达香港只需半个小时。

 

福田火车站 接驳四条地铁线

 

  【本报珠三角新闻中心记者君慧深圳18日电】有规划专家认为,由于福田火车站主要承担广深港之间高频、高端城际商务客流需要,而福田区本身亦是深圳的金融商务中心,因此该地区逐渐将成为港人前往深圳商务、生活的主选区域。

 

 福田火车站位于深南大道南面、与福华路之间的益田路下方,设计八股铁道,可连通广州、武汉、北京等内陆城市,亦是港人在深圳的远程换乘枢纽,届时,港人在福田火车站无需远行,就可就地转乘1234号地铁线,形成国铁与城轨四通八达的枢纽。

 

 目前,福田CBD拥有深圳众多甲级写字楼和高端住宅,许多跨国企业和中产阶级聚集于此,相信未来成为港人在深圳商务、休闲、生活的中心区域。

 

深港跨境通道将增至九条

 

  【本报珠三角新闻中心记者君慧深圳18日电】交通影响生活亦改变生活,深港两地生活将因为跨境通道的日益便捷而发生改变。深圳市城市交通规划研究中心主任林群表示,规划部门根据未来2030年来跨境客流的出行需求、空间分布、交通方式,综合预测至2020年跨境人流将达到每天100万人次。今后两地工作、学习、生活融合趋势日趋明显。

 

跨境人流 通勤求学为主

 

 按照规划,深圳未来将加快跨境轨道交通建设,增加跨境通关方式。至2020年,深港跨境通道将达到9条,其中4条铁路信道、5条陆路信道。铁路通道方面,分别是在建的广深港客运专线、正在研究的港深机场客运专线,以及正在使用的罗湖-九龙专线、地铁4号线接驳落马州直线(按照规划未来还将接驳西铁);陆路跨境交通方面,分别是2018年将建成的莲塘-香园围口岸(货运兼顾客运)、已经建成的深圳湾口岸、皇岗口岸、文锦渡口岸、沙头角口岸。

 

 林群称,深圳将进一步完善口岸建设,改善缩短通关时间,并与香港政府沟通,合理安排口岸功能和大环境的配套。调整公路口岸分工,形成深港跨界公路交通「西进西出、中进中出、东进东出」的总体格局。

 深圳规划局经过多项研究证明,未来深港的跨境人流将以「通勤交通」为主,即以过境工作、跨境求学、两地生活目的为主。

 

河套发展 年底国际咨询

 

  【本报珠三角新闻中心记者君慧深圳18日电】据深圳市城市规划发展研究中心邹兵透露,经过广泛搜集民意、听取公众意见,深港规划部门正在撰写关于河套地区的深港公众咨询报告。交由「港深边界区发展联合专责小组」讨论之后,将在年底启动国际规划咨询,研究具体开发方式。

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

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

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

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

>> 本类热点新闻

·深圳凯宾斯基酒店求售
·深圳海关缴仿真枪增7倍
·盐田港再罢工 逾万货柜滞留
·深截116辆香港走私车
·深圳大铲湾码头一期动工
·谷旺西部通道 深圳湾建商圈
·深圳「新服务」赴港产子一条
·深圳中山建通道 拟公路铁路
·深湘高速直通盐田港
·梁定邦与深圳女友照曝光
·港禁区开放 莲塘先受益
·蛇口香港客轮班次增 下周二
·环球资源深圳中心区设总部
·深圳电池厂五千人罢工
·华侨城进军上海撼迪斯尼
·深圳水贝全国之最 亩产六万
·鹏城25年规划 深港同城化
·深港都市圈 五年见雏形
·中英街图变身 历史文化地标
·深蔡屋围20亿改建金融中心
·深圳港人侄 离奇堕楼亡
·深圳中信地铁商场港推售
·深南坪快速西段通车 免收费
·租不如买 深圳楼价升不止
·珠三角主题公园恶性重迭
·天利中央广场明年中发售
·深圳巴士乱撞 2死16伤
·两地数字电视划一标准
·和黄深圳三地产项目动工
·祥利工业园招港商建基地

 

合作媒体

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


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