" 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 时间:2008-7-22 ■深航表示，若香港候机楼建成，港人搭乘深航班机，可以直接在港寄运行李、办理登机手续。深圳办       以深圳机场为基地的深圳航空公司拟到港建候机楼。深航高级顾问李泽源向本报记者透露，这个计划已多次与香港特区政府进行磋商，并得到有关高层的认同。如果这一计划得以实现，将可互补不足—香港机场内地航线不足和深圳机场国际航线短缺的问题，有助两地旅客出入，并预计港客人流将增加近1,000万。据悉，这项两地互利计划的最主要障碍，是在港建候机楼的用地问题。   　深圳机场尽管已经跻身内地第四大机场，可以覆盖内地80个城市，但与香港机场相比，国际航线明显较少。而香港机场则相反，有广阔的国际网络，连接110个海外城市，但内地航线只能飞往部分大城市，而飞往2级城市的航班几乎没有，难以满足旅客穿梭香港与内地城市往来的需求。   往返港旅客占深机场40%   　来往香港和内地的客流量很大，统计显示，深航去年1,000多万旅客中，有近400万是香港旅客或到香港旅游的人，占了整个运输量近40%。而深圳机场提供的数据显示，往香港的内地游客中，有4分之1是通过深圳机场中转至香港。同时，经过香港中转往内地的国际旅客数量也非常庞大。   　对于香港难以在短时间内获准开办更多内地航线，深圳航空公司高级顾问李泽源认为，在目前条件下，香港机场到海外、深圳机场到内地，显然都有各自的航线优势和价格优势。深圳机场作为深航的基地机场，深航每天有200多个航班，密集始发内地城市，不仅有1线城市，也包括2线城市甚至3线城市，完全可以弥补目前香港国际机场内地航线的不足。「如果深航在香港的候机楼得以建成，对香港和旅客都是好事情，不论港人或国际旅客到内地也将更便利。」   港办手续深上机 旅客多便利   　根据深航的想法，深航香港候机楼建成后，旅客若搭乘深航的班机，将不用再到深圳机场办理登机手续，可以直接在香港寄运行李、办理登机手续，再搭乘深航豪华大巴直接前往深圳机场上飞机，免却拿着大包小包排队过关、再到深圳机场寄运行李换登机证等苦况。   　据了解，在此之前，深航在深圳和其它地区曾经做了一个登记乘客手机号的客户服务系统，一旦飞机晚点了，深航就透过发出手机短信，通知乘客有关飞机误点时间，让乘客避免浪费时间，甚至可在家里等候。「能让港人享受到的还是实惠。」李泽源表示，根据目前情况，香港机场飞往内地的航班，定义为国际航班，价格自然是「国际价格」，仅以飞北京为例，深航从深圳飞北京的票价为1,000多元人民币，而香港飞北京的票则要2,000多元人民币，有相当的价差。　■ 本报珠三角新闻中心记者罗爱文、曾玲、古宁深圳电   建空中高速公路业界指合作双赢     【本报珠三角新闻中心记者罗爱文、曾玲、古宁21日深圳电】虽然香港机场和深圳有互补合作的空间，但毕竟还是存在着竞争。有人士担心，内地航空公司到香港建候机楼后，本来就呈现弱势的香港机场内地航线，将进一步令乘客向深圳机场外流。对此，业界人士指出，互补带来的得益明显大过损失，因为深港机场各自优势将形成「空中高速公路」，香港机场国际航班的价格优势和便利，将吸引内地旅客飞往香港转机到海外，或吸引海外旅客通过香港转飞内地，大大增加香港机场客流量，达至双赢局面。   　目前，内地有多个省份开通了「个人游」，引发内地人到香港的旅游消费，由于深圳与香港的地缘关系，深圳成了到香港游客重要的转机之地。数据显示，深圳机场的2,300万旅客中，有1,300万是通过深圳中转香港和内地的。深圳航空公司高级顾问李泽源预期，如果深航在香港建起了候机楼，将便利更多内地人到香港。仅通过深航到香港的就会增加近1,000万。   　目前，内地大型国际机场包括上海、北京等，均有国际航班，但其价格明显比香港机场贵，航线和航班数量也较少选择。如果内地到香港转机方便的话，到香港乘坐国际航班的客流也将激增。有经常来往香港、美国的乘客表示，从美国到香港，比内地便宜至少30%。 责任编辑：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 来访统计：  技术支持：中国红电子商务频道