" 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-11-11 ■本报珠三角新闻中心记者 胡明、谢白清、张蕾   　东莞常平火车站与香港红磡之间的货运直通车何时开通，一直都是东莞近万间港资企业甚为关注的问题。日前，这一悬而未解已达数年之久的项目终于传出利好消息：东莞市委书记刘志庚在接受本报记者独家专访时透露，东莞常平与香港红磡之间的货运直通车将于年底开通。届时，东莞至红磡的铁路运行过程将至少缩短1天，每个货柜也可降低成本约100元。有专家强调：开通莞港货运直通车，势必会引导东莞庞大的货运量通过运输成本相对低廉的铁路向香港集中，这对巩固香港世界航运中心的地位，将起到很大的作用。   　曾一度雄霸世界货港老大位置的香港，其集装箱吞吐量在2005年被新加坡超过之后，今年又被上海港超越，而昔日的「一哥」如今还面临着被深圳盐田港爬头的尴尬。粤港口岸专项小组提出的「开发东莞常平与香港红磡之间的货运直通车」项目，无疑给香港港口物流业带来了一针「强心剂」。   货量猛增 建大珠三角体系   　一直致力于研究粤港交通事业发展的中山大学港澳珠三角研究所教授郑天祥，在接受记者采访时表示：「京九铁路沿线每年的货物量将达到6,000万吨，该项目的开发对于加强东莞、乃至珠三角东部梅汕地区、京九铁路沿线与香港的经贸合作关系，加快『大珠三角』物流体系的形成有着积极的促进意义。」   　郑天祥指出，近年来，内地对香港的出口贸易每年以逾两位数增长，聚集于东莞的近万家港资加工企业，超过七成的产品也需货运香港外销，开通东莞至香港线的货运直通列车，可发挥铁路快捷、运量大、运费低、装卸简便的运输优势，大大增加香港及周边地区的稽查和运输货物量，从而加快形成「大珠三角」与香港跨境的物流体系。   常平枢纽 快递三巨头进驻   　其实，不用说整个东莞，仅东莞东火车站所在的常平镇，一年的出口总额就超过了20亿美元(约156亿港币)，而这些货物的出口流向主要是经香港转口到美洲、欧洲等国外市场。常平镇书记梁海卫表示，以铁路连接香港，有助常平贯通内地南北，构建大京九物流基地的地位。而记者也了解到，黄埔海关已经在常平镇建立了首个快件监管中心，去年已为2万多家加工贸易企业，处理进出境通关快件逾200万票，并吸引了世界知名的联邦、DHL、UPS三大快递公司落户常平。   　「我们分析过东莞货源基础，完全可以满足广九铁路公司提出的首月每列每日5货卡（10个标准箱），次月每列每日10货卡（20个标准箱）的铁路货运需求量。」说起开通货运专列的发展前景，梁海卫充满信心。   提案三年 口岸待升格   　「开发东莞常平与香港红磡之间的货运直通车」项目，其实早在04年的粤港合作联席会议第七次工作会议后，就由粤港口岸专项小组提出，并摆上议事日程。   　东莞市口岸局新闻发言人、办公室主任蔡俊文称，「目前东莞常平货运口岸是二类，如想开通到香港的货运专列，就必须将其提升为一类，这就意味着要增加边检、海关、检验检疫等工作人员编制，由于这些编制以及相关经费都是中央财政担负，所以必需要由中央批准。」   　据悉，该项目的可行性报告最早是由常平镇政府和常盛公司提出的，故项目经营主体很有可能是常盛公司出资比例各50％。蔡俊文表示，由于报告还没有批覆，项目是否最终由谁来经营还很难预料。蔡俊文说，东莞作为制造业基地，去年一年生产的货物量在7000-8000万吨，其中在东莞口岸进出的货物在2200万吨，不足总量1/3，其余大部分经香港出口，直通车开通也将间接扩充香港的货源地。   无须转关查验 三天行程变一天   ■东莞有上万间港资企业，货源充足   　目前，莞港两地间来往的货物，主要通过省港这一查验关口，程序较为复杂，而东莞铁路(客运)口岸在货运功能建设上也不够健全，未能挖掘出自身的潜在实力。东莞市口岸局有关负责人表示，开通莞港货运直通列车后，除可以省去省港这一关口外，对东莞(常平)铁路货运口岸功能也是一次极大提升。   　此前莞港两地货物运输的操作模式，是在进口货物至内地前，须于未过境时向内地目的地海关预申报，货物进口时，要在过境口岸海关办理转关手续，整个流程耗时需两、三天。而直通车最大的特点，就是实现了列车从九龙红磡经罗湖不停站往返东莞常平站，即货物在起点口岸清关，中途无须停站办理转关及查验手续，整个铁路运行过境（包括运输及清关）缩短到1天之内。   东莞冲刺一级口岸   　东莞常平镇委书记梁海卫称，东莞铁路货运场已具备较强的货运装卸处理能力和经验，只需在现有软硬件的基础上适当增加建设项目，改善通关环境，增加作业人员编制，完全具备条件升格为一级口岸货运，开行莞港两地货运直通专列。   　据介绍，东莞铁路进出口货物装卸点于1998年经国家有关部门批准建立，属国家二类货运口岸，该货运口岸站台货物处理场占地270亩，包括铁路专线4条，总长2.5公里。而货运场的集装箱场占地21600平方米，可以存放20尺集装箱680个，40尺集装箱340个，10吨集装箱1300个；散堆货场地4000平方米，一次可堆放货物2700吨；同时配有36吨大型龙门吊两台，机械叉车数台，可从事进行20尺、40尺国际通用集装箱作业及进出仓和装卸作业。此外，口岸已经设有海关、国检等口岸部门，配有海关和国检现场办公室及技术作业场所，整个监管区实施封闭式管理，保证了出口班列车开行所需的监管要求。   每柜悭百元 缓出口退税压力   ■东莞常平的晶苑毛织制衣有限公司总经理陈翠鸿（中）表示，直通列车有助港企降成本。   　位于东莞常平的晶苑毛织制衣有限公司总经理陈翠鸿告诉记者，现时公司每天都有至少2个集装箱约10万件衣服运往香港出口国外。「如果开通了直通车，我们公司的货物通过铁路运往香港就只需要1天，而且每个货柜还可以节约100元运费。」陈翠鸿说，受人民币升值、出口退税政策调整等因素影响，纺织行业的利润下滑幅度很大，「堤外损失堤内补，如果在运输成本上能节约一部分，将极大地纾缓我们的经营压力。」   　港商深圳市豪欣进出口贸易有限公司董事长邱福建对这一利好消息则有另一番理解：「莞港货运直通车开通后，能使更多的厂商以更低成本享受到香港自由港的优质服务，也更能满足国外客户的要求，因为许多外国客户都要求从香港走货。」东莞港资企业兴旺中港贸易公司经理王成就说：「目前公司产品多走香港葵涌码头出口，一年多达2,000标箱，但如果莞港货运直通车开通，厂家肯定会加大从香港港出口的货物份额。」   东莞市进出口统计（单位：亿美元） 　时间　　　　　进出口总额　出口额 　2007年1-9月　756.8991　422.4493 　2006年　　　　842.2107　473.7640 　2005年　　　　743.7150　409.2905 　来源：东莞市对外经济贸易局   铁路运输优势一览(对比公路)   更便宜： 1.复线铁路的制造成本低于高速公路以至等级低些的国道级公路； 2.运营成本低，运力却高出许多； 3.维护维修成本低。 更安全：既可高效集约地利用廉价的交通资源，同时交通事故率又是所有交通工具中最低。 更环保：火车机车功率大，燃料使用效率高，不但节约原料，而且能降低环境污染。   货运直通车 八大优势   1.可靠的门到门服务，包括货柜码头与厂商、仓库之间的运输； 2.为客户提供集装箱储存，方便货物周转； 3.班次固定，运输时间大大缩短，避免过境时的延误； 4.可实现一票多箱的清关服务； 5.全程由两地海关监管，采用预报关形式，向海关提早申报； 6.常平海关可办理东莞陆路口岸进出的货物； 7.可以实时提供货物/集装箱的跟踪查询，客户对货物的运输情况了如指掌； 8.全天候运作，不受恶劣天气及路面交通情况所影响。 ■资料来源：该项目可行性报告 责任编辑：cnred 文章页数第[1]页  页面功能 【我来说两句】【字体：大 中 小】【打印】 【关闭】 相 关 连 接 ·还没有相关文章 网 友 评 论 ·还没有相关的评论！ 发 表 评 论 您的大名: （点击这里注册） 这里填写您的评论：） 友情提醒：评论请限制在100字以内，有长篇大论欢迎到论坛发表：） 　 综合新闻|广东新闻|专题新闻 >> 本类热点新闻 ·深圳置业 港人三变化 ·港珠澳大桥 上马有期 ·深港5年内 将增5口岸 ·港六大研发中心寻求合作 ·港珠澳大桥好事多磨终会建 ·港珠澳大桥战略大解构 ·深穗外拓货运港机场陷危机 ·普华永道增聘千人港专业界北 ·深医护人员成染爱滋高危族群 ·粤港合建世界级城镇群 ·张德江冀粤港澳合作「裂变」 ·省市一把手亮相星光熠熠 ·深港合作获两大突破 ·广深港高铁将接轨京杭 ·穗机场：无惧港深合作 ·粤港启动反倾销合作机制 ·梅州强行炸矿两港商质疑 ·承接服务外 包港企占先机 ·中央拟新政策再促深港合作 ·港珠澳大桥 明年难上马 ·中山港人：两地应常沟通 ·粤30养老机构来港拓服务 ·许宗衡提深港同城化 ·粤人勒紧裤头 东江水解港困 ·穗港青少年服务中心揭幕 ·深港连手发展河套 ·粤港千人宴 切磋谋发展 ·食品安全通报 粤港设联络员 ·粤港联席会确定20重点合作 ·梅州已炸逾200矿井

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