<%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 来自:文汇报 点击:103 时间:2007-1-5


广东「一日双邮轮」,外国游客一下船就收到「中国结」、风车等中国特色礼物,并好奇询问「猪年」是什么意思。

 

 目前,越来越多的外国游客选择以「邮轮游」的方式入境中国观光度假。广州在步入新年的第4天,就迎来了广东入境游历史上首次「一日双邮轮」抵境,随船的千名游客将在当地游览名胜。而在大连、上海、三亚等具备接待邮轮条件的港口城市,在过去数年中,已接待了数百余次的邮轮班次及数十万的游客。豪华邮轮每到一地,都会为当地带来大量旅游消费,并带动相关产业的发展。有数据显示,邮轮旅游正以每年8%9%的速度增长,居国际旅游业务之首,而中国无疑正是这一庞大消费的最大受益者。

 

 【本报珠三角新闻中心记者解玲、通讯员李静雯、骆珊珊广州4日电】今日早上8点,广州的黄埔旧港四号码头喜迎2007年首批通过海路入境的游客,乘坐两艘外国豪华邮轮抵达。

 

 来访的两艘邮轮分别为美国大洋邮船公司的OCEANIA NAUTICA号和英国的「冒险之神」号。OCEANIA NAUTICA号曾于20061月首次靠岸广东,广东的名胜古迹和南粤文化,获得船上外国游客及船员的青睐和好评,因此,该邮轮选在2007年的同一天再度访粤。而「冒险之神」号则是首航中国。据广东国旅介绍,「冒险之神」号是英国的公司派过来「探路」的,如果中国站的效果理想,将会再派大邮轮来广东。

 

中老年游客为主 消费力强

 

 据了解,此次来访的1,000名游客来自欧美等地,他们都对中国文化以及南粤风情抱有浓厚兴趣,此后的几天里,他们将在国旅的安排下游览陈家祠、南越王墓、六榕寺等广州历史名胜,还将到沙面、清平市场、上下九步行街等地感受广州的民俗民风。

 

 据广东国旅假期旅行社一位长期接待入境邮轮客人的小姐介绍,邮轮上的游客平均年龄在45岁以上,大多为中老年人,但消费能力很强,在广东旅游期间,他们每人每天即可消费1,000元人民币。

 

 该社入境游总部总经理颜珂向记者介绍,近年广东入境邮轮的数量不断增加,仅2007年该社计划接待的国外邮轮就多达30艘,比去年翻了一番。「多家国际邮轮公司向中国市场进军,人人都来分广东这块蛋糕啦!」

 

全球第二大邮轮将再临上海

 

 【本报上海新闻中心记者毕方方、唐湛嫣4日电】在上海,「邮轮经济」同样正在高速发展。据上海边检部门消息,2006年度共有32艘国际豪华邮轮靠泊上海港,加上去年7月份起以上海为母港的意大利籍国际邮轮「爱兰歌娜」号开通的定期航班,共计有114个航次的邮轮进出上海港。同时,在今年初步确定的邮轮来沪计划中,已有30余艘世界各地的大型豪华邮轮敲定来沪行程,总计要在上海港出入境110余艘次,载来的旅客船员总数预计将超过10万人次,较2006年将有较大幅度的增长。

 据上海国际旅行社英语部相关人士对本报介绍,在上海出游的游客除了去外滩、城隍庙、磁悬浮等上海传统景点外,最喜购买中国工艺品,平均每人的消费额在100美元左右。他表示,邮轮来沪不但为旅行社带来生意,也推动上海零售产品的销售。

 

 据悉,世界第二大豪华邮轮「伊莉萨白二号」今年将再次光临上海;超大型豪华邮轮「蓝宝石公主」也将在10月至12月间四次来沪,此外,「斯特丹姆」、「水晶交响乐」、「阿姆斯特丹」等也会纷至沓来。

 

穗人冷对邮轮游

 

 记者从广州本地的旅行社获悉,目前邮轮旅游在广州还是「雷声大、雨点小」的态势,除了短线的香港至越南下龙湾,20052006年从广州通过邮轮出境的游客数只有2,000多人,同时,目前还没有以广州为出发点的邮轮航线。

 

 事实上,不少游客还只是将邮轮视为交通工具,而非旅游休闲的方式。而且,有不少初次乘坐邮轮的游客觉得失望,抱怨说:「花了好几千元就只在船上呆了5天。」

 

 尽管广东邮轮游的市场未成气候,但一些旅行社的信息显示出这一市场的巨大潜力。

 

「海陆穿插游」较受欢迎

 

 据广东中旅新成立的邮轮旅游部负责人告诉记者,目前邮轮线路设计采取的是在行程中「穿插」邮轮游,即「船上游+上岸游」,该负责人表示,尽管这并不能算是真正意义上的邮轮游,但行程交叉安排,受到游客的欢迎,有的游客甚至就是冲着几天的岸上游报名的。他表示,广州游客对于邮轮旅游这一方式,还需要一个接受的过程。

 

 另据调查显示,广州近5成青年夫妇愿意在邮轮上举办婚礼。为此广东中旅最近还专门推出了蜜月双人价,以挖掘蜜月游商机。

 

粤不再是「中转站」

 

 【本报珠三角新闻中心记者解玲、通讯员李静雯、骆珊珊广州4日电】据广东旅业人士称,广东的入境游从广九直通车的「列车时代」,到白云国际机场的「飞机时代」,广东作为中国乃至亚洲交通枢纽的地位有目共睹。而时下,随着越来越多的入境邮轮停靠广州,大量外国游客也选择在广州过夜,宣告了广州「入境邮轮时代」的正式来临,预期今年的入境游客将会有三成增长。

 

 业界人士分析,本次「一日双邮轮」访粤,反映出外国游客的观念开始转变,已把广东看作旅游目的地,而不再是中转站,据世界旅游组织统计,每接待一位国际游客收入是740美元,而邮轮接待的收入高达1,341美元。该组织还预测,到2020年,中国可成为世界上最大的旅游目的地,并将吸引更多的国际大型邮轮靠泊。

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

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

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

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

>> 本类热点新闻

·广东龙门第二届南昆山生态旅
·观澜湖别墅创6000万高价
·迪斯尼游客可赴海泉湾
·珠江直似塞纳-马恩省河 广
·50万人潮涌大小梅沙
·最大香草世界亮相广州
·穗民:港不再是购物天堂
·邮轮热访神州 各国豪客纷至
·广州旅社本周售青藏铁路票
·迪园专列直通车今开通
·穗市民有望五一游蒙古国
·穗客乘汽车追「青藏首列」
·番禺宝墨园 龙飞凤舞迎新春
·京现沙尘暴 粤游客却步
·粤北寒梅笑初冬
·广东11月办国际旅游节
·穗推「门票通」景区自由行
·广东国庆旅游团增3成
·羊城客游港澳报名增五成
·连场台风 穗旅游旺季不旺
·粤五一省内游价涨25%
·先揽客再狠宰 低价团又猖獗
·粤人涌港观奥马 10市旅团
·近在身边的世界遗产——开平
·杨丽娟死心不息扬言继续告华
·粤人十一游港人数料增一成
·广东旅游文化节11月开幕
·五一假缩短 粤省内游增3成
·万圣狂欢月 吸5万粤客
·黄金周旅游 丁财皆旺稳增两

 

合作媒体

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


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