<%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 来自:文汇报 点击:19 时间:2008-10-4


■国庆黄金周前3天,中英街人流有所上升,但与以前的辉煌相比,仍然相距甚远。 本报记者谢白清

 

 【珠三角新闻中心记者谢白清、古宁深圳3日电】记者从深圳最新一期政府公报获悉,依据《深圳市商业网点规划(20062010)》,当局将下定决心杜绝货物走私,打击商业欺诈,把中英街建成名优小商品特色商业街。

 

 连接深港两地的中英街曾因商品免税而价廉的优势,在香港回归前一度成为内地游客的「购物天堂」。但香港回归后,因假货泛滥、欺诈游客沦为「购物陷阱」,导致人流锐减,八成商家生意惨澹,深方店铺大部分关门歇业。如何重振中英街成为各界关注的热点。

 

着力发展零售 引进外国品牌

 

 在是次公布的方桉中,关于中英街的定位已经由原来单一的购物功能衍生为「一国两制」历史文化景区和名优小商品特色商业街。以「一街两制」为主要特色,集爱国主义教育基地、休闲旅游景区和名优小商品一条街为一体,突出历史文化特色、岭南客家风情和特色旅游购物。

 

 据消息人士透露,购物仍然是中英街未来发展的重要方向。针对以往的弊端,是次方桉中对未来商业业态重点作了详细规定,明确主要发展零售业,适量配套餐饮。零售业中又重点发展专业店、专卖店、折扣店和超市,积极引进香港和外国品牌店。餐饮业是为购物配套的休闲式小餐馆、茶馆、酒吧和咖啡屋。不发展批发市场、大型百货、大型酒楼和加工生产业。

 

限售手机相机 主打化妆保健

 

 在商品的种类上,也确定零售商品种类以日用品、化妆品、纪念品、服装、常用药及保健品为主。引导商铺使用规范的租赁合同文本。通过租赁合同约定的方式,限制售卖手机、相机、摄像机等电子商品和大宗高档商品,同时要求商品进货不管来自内地或香港,须经过正常及合法渠道,严禁走私。记者昨日在中英街看到店铺里出售的商品也主要是上述的种类,而少有手机、相机等限售的电子产品。据多家店主反映,手机、相机等电子商品店原来很多,但近年由于打假雷厉风行而逐渐关闭。

 

实行明码标价 电子实时监控

 

 针对此前的「宰客」现象,中英街的重振方桉明确规定,必须实行明码标价,携带进出中英街的商品数量和免税征税办法按海关相关规定执行,并要求商场须给顾客以明确的指引。在经营模式上,为保证经营秩序,拟对临街铺面进行整合,通过招投标选择信誉好、实力强、有经验的12家企业负责经营,做到「统一管理、统一收银、统一负责」。经营企业须在出入境检验检疫、公安、边防等部门备桉,自觉接受监管。

 

 为杜绝货物走私和商业欺诈,将增设监控摄像镜头等必要的监控与检查设备,完善电子监控系统,形成「一张监控网络」。建立购销台账和账目抽查制度,对商铺实行不定期调货、查账。建立中英街管理联席会议制度,邀请香港监管机构参与,每季度召开一次会议,研究解决中英街管理工作中存在的问题。

 

 记者在采访中了解到,中英街上的商铺多对政府的重振方桉表示支持。香港美力化妆品老板王太表示,中英街人流逐年减少,政府的确应拿出切实措施,重塑中英街形象。

 

客流锐减六成 八成商家惨澹经营

 

■中英街深圳部分商铺在整治中关闭。 本报深圳传真

 

 【珠三角新闻中心记者谢白清、古宁深圳3日电】「现在的价格比以前便宜,但每天的顾客下单还不如以前的十分之一。」谈及现在的生意,在中英街做箱包生意已20多年的港人先生不禁大为感慨。曾经繁盛一时,被称为购物天堂的中英街,因为人流锐减了六成,导致八成商家生意惨澹。

 

昔日日接百单 现今10

 

 先生表示,现在是内地国庆黄金周,生意比之前好了一些。但总体而言,今天的生意比以前差很多。「平时一般有10个顾客下单,但以往最旺日子,一天可以做到100单生意。」在中英街做了6年服装生意的先生也向记者称,现在生意不好做,尤其是近四年来,人流差不多减少了六成,生意更是锐减四成。

 

 「现在商铺越来越少,你看对面的铺面大多是关着的,哪里还能吸引来顾客﹖」先生指着深圳一侧店门紧闭的商铺,一脸无奈地说。据了解,一段时间以来,由于假冒伪劣商品多,严重影响了中英街的声誉,令来客越来越少。此前,深圳铁腕整治中英街的假冒伪劣商品,导致深圳一侧的130家店铺在一个月内集体关门。

 

赴港游途径增 客流锐减

 

 此外,个人游的开放令内地人到香港更加便利,也成为中英街人流减少的一大原因。有关人士介绍,以前,内地人到中英街买东西,主要是想采购香港商品,现在内地到港「自由行」,不必非到中英街才能买到港货。另外,目前,港深过境通道也日益增加,新增加了包括深圳湾、福田口岸等,皇岗口岸甚至实行24小时过关,分流了沙头角口岸的过境人士,在一定程度上也减少了中英街的人流。

 

物美价廉 曾广受内地客青睐

 

 【本报珠三角新闻中心记者谢白清、古宁深圳3日电】尽管目前中英街因为众所周知的原因,人流下滑,但据记者了解,中英街的港货仍有相当的价格优势,甚至比在香港直接购买还要便宜10%至15%。对于内地人来说,一些进口日用商品、药品、化妆用品等,价格较内地便宜,使一些懂行的购物一族成为中英街购物的主力。

 

  香港美力化妆品的老板王太向记者介绍,该店自1979年在中英街经营至今,由于其售卖的国际品牌价格较香港便宜一至两成,更比内地便宜八成至1倍,故吸引内地游客光顾。

 下午530分至6时,从中英街前往沙头角口岸时,记者看到关口挤满了拎着大包小包的内地游客,购买的物品多是化妆品、药品、食品等。

 

欲藉观光吸客 无奈人气难聚

 

 【本报珠三角新闻中心记者谢白清、古宁深圳3日电】当中英街的商业人气逐渐下滑的时候,深圳曾重金改造中英街这一百年老街,以「一国两制」的观光园区吸引游客。但改造完成后,并没有吸引到更多人流。有旅行社人士透露,到中英街的游客目前仍然处于逐渐减少的情况。

 

三千万重修百年老街

 

 根据深圳有关部门的旅游规划,中英街为以文化旅游为主题的「一国两制」观光园,将分批修复街区8个历史文化景点,并逐步完善餐饮街、酒吧街等旅游配套服务设施。据介绍,中英街修复改造工程于04年启动,几年来共投入3,000万元,到06年年底,修复改造一期工程基本完成。

 

小小中英街 昔日购物天堂

 

 「中英街」是1898年中英《展拓香港界址专条》签定后具体划界的产物。中英街位于深圳市盐田区沙头角镇,原名「鹭兹鸟径」,是一条长不到250米、宽不到4米的小街。香港回归祖国前,中英街东侧属中方,西侧属英方。香港回归后东侧属深圳,西侧属香港,具有典型的「一国两制」色彩。

 

 中英街历史博物馆馆长孙霄介绍,中英街的真正兴旺是从1979年建立深圳经济特区以后开始的。「那时内地商品经济还不发达,而紧挨香港的中英街却以免税和价廉为优势,成了全国闻名的购物天堂。再加上很多在商场里买不到的『洋货』这里都有,每天前来购物的人络绎不绝,少则四五万,多则八九万。中英街上一铺难求,而店铺的老板则天天数钱都数到手软。」  ■本报记者

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

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

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

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

>> 本类热点新闻

·佛教文化之旅 广州光孝寺启动
·广东不排除有地震
·川剧在广东精彩“变脸”——访川剧
· 「和谐号」今首发 广深启午夜快
·崛起的历史名城——广西百色市右江
· 陈镜开:惊人一举延续50年
·通粤西接港澳 珠海江门高速周三通
·广深沿江高速 2010年全线通车
·香港文汇报心系灾区施援手
·不一般的情人,也有权握着——同一

 

合作媒体

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


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