<%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 时间:2005-9-18


【本报珠三角新闻中心记者郑海龙、通讯员吕洪、黄国春、尹潇深圳17日电】今年中秋不似往年,或有台风干扰。但重亲情的港人并没有因此而取消了返乡行程,而是利用周末将探亲时间提前。今日上午部分「先知先觉」的港人已开始取道罗湖、皇岗口岸进境,开始中秋探亲之旅。

 

 据深港节日旅客过境工作小组预测,在中秋节期间(916日至19日),出入境人数有可能突破210万大关,与去年同期实际出入境人数相比增长近四成。

 而今日起,过境人潮已开始显现出来,预计出入境人员高达56万人次。

 

罗湖皇岗人潮汹涌

 

 据了解,今年中秋时节恰逢台风过境。影响赏月尚是小事,一向重情重义的港人如何从香港取道返乡是一个大问题。按以往的惯例,港人往往在结束了前一天的工作后,稍事准备于中秋当日过境返乡度假。但台风过境似乎使惯例变成了不可能。幸亏今年中秋恰逢周末公休日重迭。部分「先知先觉」的港人避开台风开始取道罗湖、皇岗口岸于今日上午进境深圳返乡。

 

 中午刚过,原本还晴空万里的深圳突然下起雨来。而在罗湖口岸进境的港人却一边躲雨,一边笑逐颜开,似乎在庆幸自己的聪明抉择。

 

 记者从深圳边检部门了解到,节日期间,经罗湖口岸出入境的旅客将达137万人次,同比增长也近四成。经皇岗口岸过境的旅客将达61万人次,同比增长近五成。各口岸的出入境高峰将在中秋节的前一天即17日出现,预计出入境人员会高达56万人次。

 

深港加强通报协调

 

 为确保中秋佳节期间口岸的安全、畅通、深圳边检总站在保证自方全力疏导外,亦加强与港方的协商通报机制,实时通报口岸出入境旅客流量情况、开通通道情况和疏通能力,以便实时研究疏导措施。据悉,在此期间,罗湖边检站将视客流情况将部分旅行团调整至三楼港澳居民通道验放,并实行旅行团数据预见录入,减少旅行团在口岸的滞留时间,确保口岸不出现堵塞。

 

 另外,罗湖边检站还及时对自助信道查验系统进行软件升级及技术维护工作,以保证客流高峰时期发挥自助通道的最大效能。

 

 罗湖边检站与香港入境处还按约定时间每天在桥头会晤,互通客流情况,协商疏导旅客等措施。

 

皇岗扩建通道纾缓

 

 皇岗口岸作为唯一24小时通关和车辆实行「快捷通」全自动查验系统的陆路交通口岸,货流量居全国第一、客流量居全国第三,又作为香港迪斯尼游玩的首选途径,口岸人流压力空前。

 

 对此,皇岗站作了充分的准备,在增开一条入境小车道的基础上,及时改造了4条入境通道,可视人流情况随时切换为验放出境旅客系统,以缓解出入境旅客因时段不同出现的单向性人流高峰。

 

深圳民俗村 摆「爱情擂台」

 

 【本报珠三角新闻中心记者熊君慧深圳16日电】「年年岁岁花相似,岁岁年年人不同」,今年中秋即将到来,且恰逢内地周日假期,使得深圳3大主题公园纷纷推出「上天赏月」等多项应景节目,与势头正劲的香港迪斯尼竞争。

 

 为抓住内地游客的传统中秋团圆心理,「锦绣中华.民俗村」和「欢乐谷」两景区打出「传统牌」,分别推出「爱情擂台」和欢乐谷的「上天赏月」两个节目。

 

欢乐谷推「上天赏月」

 

 据了解,916日至922日民俗村傣寨广场将摆下「爱情擂台」,通过「抢柚子」、「纤夫的爱」、「绑脚绳赛跑」等游戏,让青年男女寻找意中人;在科尔沁滑草场举行「草原赏月、篝火狂欢」,青年男女可在主持人的帮助下,进行现场速配。

 

 而欢乐谷则把活动重点放在「赏月思乡」上,将于917日、18日晚上连续两天推出「中秋夜赏月专列」,乘内地第一条无人驾驶高架观光游览列车——欢乐干线,享受一次「上天赏月」的旅程。据悉,这是「欢乐谷」将在中秋节期间举办的「狂欢中秋夜,千里寄相思」系列活动之一,其它活动还包括「千里寄相思」、「月」光彩车大巡游、短信灯谜猜猜猜等。

 

水族人锦绣中华安家

 

 传统中秋佳节,西方卡通人物和中华民族传统文化哪一个更是游客「心水」?贵州黔南地区偏远的一个少数民族——「水族」即将「安家」锦绣中华.民俗村。届时,「水族」古老的象形文字——「水书」(与甲骨文、金文有着「血脉」渊源关系)、闻名百年的水族姑娘织造的「水家布」等,将向世人诠释充满神秘色彩的水族悠久历史,展示水族风情的独特魅力。

 

风中迪园 游人匆离场

 

 【本报讯】台风吹袭下的迪斯尼乐园,游客扫兴而回。多部露天机动游戏「死机」、重头节目卡通人物巡游被取消、旅客在迪欣湖滑倒……尽是不欢快的经历,部分人唯有提早离场。而今晚中秋夜已有大批旅客预购入场券,原料入场人数犹胜昨日,加上恶劣的天气,混乱情况恐更甚。

 

园方8号风球始应变

 

 香港迪斯尼乐园发言人表示,只会在8号风球、黑色暴雨警告时考虑作出特别安排。他又表示,今天天气转坏,入场人流如预期般高,乐园亦不会采取特别应变措施。

 

 昨日是迪斯尼开幕以来首个周末,入场人数明显增多,乐园未正式开放已有数百多名游客在门外等候,乐园亦提早半小时,于9时半开放予游客进场。

 

 乐园开放初期,天朗气清,不久后天色转坏,令原来运作不太顺畅的乐园变得更糟。多部机动游戏机先后停止服务,以「飞越太空山」的「死机事故」最令游客大感扫兴。昨日上午11时左右,职员向游客表示该游戏需暂停使用,却没交待原因。由于该游戏是乐园里最受欢迎的,不少游客经已等了近45分钟以上,当知道将要无了期再等下去,也感极度失望,职员便实时派发快证以减怨气。

 

取消巡游难值回票价

 

 直至12时左右该机动游戏才恢复服务,然而那边厢的另一部机动游戏「小熊维尼」又发生事故暂停服务,当时近百名冒雨等候的市民齐声表达不满,一度引发鼓噪,场面混乱近1小时才平息下来,3时半机动游戏回复正常。

 

一市民游湖跌伤头部

 

 不久,坏消息再传出,乐园广播表示为游客及演艺人员的安全,决定取消露天巡游。许多游客表示,这是全场最值回票价的节目,但却没眼福一睹卡通人物的风采,非常失望,决定提早离场。迪斯尼乐园只好安排穿着雨衣的米奇、米妮等卡通人物,四出与市民拍照。

 

 由于天雨地滑,一名市民在迪欣湖参加活动时不慎跌伤头部,由救护车送往玛嘉烈医院诊治。

 

粤政协研保 赴迪园客流顺畅

 

 【本报北京新闻中心记者许煜广州17日电】广东省政协主席陈绍基昨日在此间接受全国政协主办的「中央媒体赴粤采访团」访问时透露,目前广东省政协正在组织专门调研小组,研究香港迪斯尼乐园开张之后,粤游客赴港观光迪斯尼如造成出关人流拥堵时,如何用最快时间和最有效办法来解决疏通,使粤游客赴港保持时时顺畅。

 

 据介绍,香港迪斯尼乐园912日开幕后,引发了新一轮内地赴港旅游热。开幕当天,仅广东就有5000多人赴港到迪斯尼乐园观光。由迪斯尼乐园作为旅游吸引焦点,接下来到港旅游的内地游客肯定会与日俱增,这些游客大部分会从深圳出关到香港。「所以,我们会密切关注,赴港人流是否顺畅,不顺畅时如何马上解决。」陈绍基说。

 

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

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

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

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

>> 本类热点新闻

·泛珠汽车赛 播深化合作种子
·致读者的一封信
·铁路通 第五期 生活与闲情
·泛珠集结赛经历漫长一天
·泛珠汽车赛创中国之最
·难忘西昌夜行军
·圣诞扫货潮 势再现香江
·泛珠车队夜渡金沙江
·粤最长公路隧道贯通
·泛珠爱心车手情暖潇湘

 

合作媒体

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


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