" 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-4-28 ■在广交会进口展区前吸引了不少内地采购商。   　第101届广交会首设进口展区，不少主要从事加工出口类港商都积极参展进口展位，希望借助这一平台谋出口转内销。在记者的走访中，部分已开拓内销市场的港商表示，希望能够借机接触更多内地客户，并推出自身品牌，而部分有计划内拓市场的港商则希望掌握多些内地客户资料，以熟悉内销市场，做好充足准备。　■ 本报珠三角新闻中心记者 赵鹏飞、刘 扬、唐苗苗   　「目前香港仅仅在珠三角地区投资的企业已近10万家，随着内地消费市场的成熟，再加上国家当前寻求贸易平衡发展的契机，绝大部分港商开始考虑拓展内销市场。」香港贸发局总裁林天福在接受记者采访时如是说。   　作为本届广交会进口展区最大的招展代理商，香港贸发局从近70多家申请企业中挑选出40家香港品牌企业前来参展，「一位难求」的情况显示出港企对出口转内销的极大热情。   内销利润空间高10%   　安朗童话世界是香港一家老牌鞋类生产企业，目前在上海、福建、深圳、温州都有自己的厂房，从1993年开始做内地市场。据该公司负责人介绍，企业内销份额在去年达到30%，今年有望达到50%，如今其在国内已经有2000个属于自己的专柜。此次，安朗童话世界也带着旗下HELLO KITTY、米奇等童鞋品牌首次参加广交会进口展。   　「相比较于出口市场，内销市场目前的利润空间更大，可以高出10%至15%。」该负责人表示，尤其是在当前贸易摩擦频发、人民币升值等多种不确定因素的挑战下，内销市场更具吸引力。该负责人还指出，国内消费者对于设计、颜色的接受能力要大大强于国外消费者，此次参展广交会希望接触多一些内地客商，进一步拓展内地销售网络。   收集内销市场信息   　港企讯维多媒体公司也是首次在广交会设展位，主要产品为各式CD盘片，在开馆首日已门庭若市，然而，记者注意到，尽管是在进口展区，但大多数客户却都是来自国外。   　该公司的运营总监柳治平一面接待客户，一面向记者解释，其实公司主要为外销。客户集中在欧美，但公司已在明年可能开展内销，所以今年年初就向交易会申请进入进口展区，设展除了扩大国外客户群体的同时，也可掌握内地客户的资料和需求，以备日后进军内销市场。   做金属茶具的百特精品公司也在进口展区设展位，精美的设计吸引了不少客商，内地参展商和采购商纷纷向坐阵的销售经理Peter打听价位和销售情况。 Peter告诉记者，公司的产品都是远销欧美，此次来进口展区让他接触了很多内地客商。「内地市场这么大，我们当然希望在内销市场中能取得一席之位。」   进口展助内销 港商存疑   ■港企讯维多媒体公司运营总监柳治平   　由于是第一次做进口展区，能否切实帮助港企实施内销计划，不少港商仍保疑虑态度。港资永泰制衣公司的郑文彪每次都有随商会参加交易会，此次交易会新设进口展，他则表示疑虑重重。   内地商入场受限   　郑文彪表示，定位为进口展区是为了让设展位的企业开拓国内市场，但因为进入广交会采购也有门坎限制，普通国内买家并不能随意进入参观，从而造成国内采购商数量受限。同时，由于本届广交会的进口展区并无行业划分，从而造成了参观的买家过于分散，这对企业图谋利用广交会来推广品牌也造成了不少的影响。   港企内销门坎高   　作为曾经开拓过内销市场继而放弃的港商之一，郑文彪也告诉记者，内销对于港企来说门坎还是很高，其中包括内销权、销售网络、品牌、以及对市场并不熟悉等因素，他认为，在税率等方面，内外企已经平等，那么在零售等内销市场，政府有关部门也应放宽，让港企也同样享受到国民待遇。   珠三角八成港企欲转内销   ■ 采购商在一家港企展位参观。   　「珠三角80%以上港企有长远的内销计划。」东莞市政策研究室最新的一项调研结果显示，「虽然目前实现的不足10%，但向内销转型，无疑成为大多数珠三角港企未来发展的主要方向。」   　据透露，70%以上港企北上进入东莞的最初目标是降低成本和加工出口。但现在，投资目标为开拓内销或计划进入内销市场的企业几乎达到80%。这份调研还显示，60%的企业目标转向的原因，是由于中国市场的潜力和入世后中国市场的改变。同时，康师傅、沃尔玛等国际品牌在中国的营销奇迹，也让很多港商看到了内地市场的巨大商机。另一方面，国际贸易中频繁出现的各种壁垒，也让港商开拓内销市场的冲动日益强烈。   香港品牌内地有优势   　据悉，着眼于推介香港品牌和设计能力，内地首家香港品牌概念店已于日前进入成都。香港贸发局总裁林天福指出，根据过去三年所作的有关内地消费市场研究表示，香港的品牌产品在内地市场具有较大优势。商务部研究院的有关专家也指出，当前在内地有不少港台企业大量从出口转战内销，相当于以国内的需求来消化吸收强大的制造能力，将大大有利于缓解当前因出口高速增长而高企的贸易顺差。   责任编辑：cnred 文章页数第[1]页  页面功能 【我来说两句】【字体：大 中 小】【打印】 【关闭】 相 关 连 接 ·还没有相关文章 网 友 评 论 ·还没有相关的评论！ 发 表 评 论 您的大名: （点击这里注册） 这里填写您的评论：） 友情提醒：评论请限制在100字以内，有长篇大论欢迎到论坛发表：） 　 综合新闻|广东新闻|专题新闻 >> 本类热点新闻 ·港美容业趁乱抢先机 ·南方电网总经理升任电监会副 ·「好工」人力足 玩具厂闹人 ·中化伙格力珠海建石化物流 ·揭阳玉器节树「玉都」形象 ·神州创富．港裁缝店深圳穿针 ·比亚迪F3车销大马逾三千辆 ·东门人财两旺 一铺难求 ·联邦快递抢滩华南 珠三角新 ·黄埔海关延企业补税期限 ·神州创富．西餐厅北上 须严 ·银河星际酒店澳门将开幕 ·河北白沟办箱包服装节 ·港珠澳桥沿线地产热 ·徐福记传2次赴港上市遭拒 ·雅居乐最快年底上市聆讯 ·楼市百日宏调之二广州篇．广 ·和黄东莞闲置地被罚7915 ·凉茶申遗争议有望平息 ·内地豪客 炒高濠江楼价 ·东莞厂家面临开三停四 ·120港人看楼团赴中山 ·白云机场拟投177亿扩建 ·华尔街大亨横琴寻商机 ·炎夏临 电荒难解 粤港企 ·横琴：生逢其时未逢其盛 ·粤房价上半年涨9％统计局析 ·深圳住博会迁新馆举行 ·和黄西城都荟引入乐宾百货 ·广州催谷国际名牌中心

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