<%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 时间:2007-3-12


——访中国工业经济联合会副会长许扬

 

本报珠三角新闻中心记者 孙雪、君慧

 

 华南国际工业原料城(简称:华南城),开业仅三年,一个现代化的综合商贸物流新城便奇迹般地出现在人们面前。业内人士评价华南城用三年时间完成了十年市场培育的聚变。这座堪称中国乃至全球最大的工业原料展示交易中心,如何做到今日的成功,并拥有令同行羡慕的竞争力?

 

 长期关注华南城发展的中国工业经济联合会副会长许扬,日前接受本报专访,为我们解读华南城:价值创新是华南城脱颖而出的基础!

 

 记者:作为深圳重点建设项目,用一年多的时间即完成了一期50万平方米的建设,仅经过两年时间招商和市场培育,五大市场的入驻率就达到85%以上。2006年底,华南城免租期结束,商家一次性缴纳2007年全年租金比例高达99%。几年来,来自国内外的采购团、参观考察团组络绎不绝。您认为华南城拥有今日的成功,奥秘何在?

 

 许扬:华南城能够在同行中脱颖而出,在于采用完全不同的战略思维,不是以竞争对手为标杆,不是把精力放在打败竞争对手上,而是全力为供货商、采购商以及所有入驻企业创造价值上。

 

 首先,华南城打破了传统专业市场和物流业的产业边界,把工业原材料的供应、采购活动中需要提供的各种服务功能和运营活动,都合理的统合起来,把市场交易、产品检测、物流服务、会展服务、信息咨询服务、金融服务、人才交流与培训服务等等,都在华南城内一站式解决。

 其二,华南城把专业化和综合性统一起来,针对现代工业产品产业界限越来越模糊及对原材料需求的多样性,华南城把跨十几个行业的原材料都集中到五大专业市场内,最大限度实现一站式采购。

 其三,电子商务先行,市场建设和信息化建设同步,有形市场和无形市场同步招商。其四,投资者出巨资培育市场,市场绝大部分物业都只租不售,与入驻商家同坐一条船,极大的增强了入驻商家的信心。

 

 总之,华南城的价值创新,是通过跨越物流和专业市场的产业边界,重组各种元素,同时实现差异化和低成本两个目标。打破常规市场竞争中价值和成本的权衡取舍关系,使两者得兼。来到华南城的供货商、采购商能够「一站式」获得低成本的多种专业化服务。

 

 记者:华南城的建设是否符合深圳城市的定位,您对华南城未来怎么看?

 

 许扬:华南城应该在继续做强做大工业原材料市场和综合商贸物流平台的基础上,利用深圳连接国际市场和内地庞大的制造业基地的地缘优势,应该向生产服务业的前端和后端延伸,把产品制造企业、特别是那些中小型制造业企业具有共性的生产性服务需求,分离出来,提供专业化服务,向高端生产服务业延伸。这既可大大提高珠三角制造业竞争力,也符合深圳城市定位。

 

 记者:我们注意到现在许多地方似乎都热衷于大建各类专业市场,您对此有什么建议?

 

 许扬:我在各地调研时,也注意到在建的市场确实不少。我认为第一,要看是否有那么大市场需求,这是最基本的东西。第二,要充分估计到培育一个新兴市场的难度。决不能用做房地产的办法来做专业市场。第三,要建设创新型的专业市场。现在类同的专业市场已经不少,不能进行价值创新的专业市场将失去生命力。

 

2007第八届华南国际塑料工业展览会

 

 【本报珠三角新闻中心记者孙雪深圳电】由中国塑料加工工业协会、广东省塑料工业协会主办,华南国际工业原料城协办、深圳市盛世展览策划有限公司承办的「2007第八届华南国际塑料工业展览会」将于32325日在华南城国际会展中心隆重举行。本届展会以「塑料机械及塑料原材料」为主题,展出产品包括各类注塑机、挤出机、吹瓶机、制袋机、移印机、丝印机、烫印机、各类塑料机械接口设备;塑料原料、精细化学原料和特殊化学、塑木材料及各类塑料助剂等。总展示面积20000平方米。目前包括日本电气化学、日本大都、大大科技公司、上海纪威、宁波海太、美国飞卓、杜邦、香港鸿乔、南京科亚、东莞铭辉在内的一批知名企业在内的近400家企业已报名参展。由中国塑料加工工业协会组织的「塑木制品一条街」也将在展会上隆重登场。组团参与展会。

 

 展会期间,中国塑料加工工业协会塑木专业委员成立大会暨专业论坛。届时,一批将有来自国内外知名院士、学者、企业家亲临现场演讲、参观。

 

 为确保展会的参展效果,主办方深入细致地开展买家的组织工作。对采购商进行一对一的邀请,展会期间还将安排免费车辆接送采购商。据悉,现已预约专业买家9000人。

 

 主办方对展会的宣传也是下足功夫,已在凤凰卫视、香港亚洲电视、深圳特区报、深圳商报、南方都市报、香港文汇报、中国塑料商务网、慧聪网、《国外塑料》、《塑料制造》、《国际塑料商情》等40家媒体发布展会信息,在广深高速公路收费站、深圳皇岗口岸交通要道投放户外广告。展会信息基本覆盖大陆及港、澳、台地区。

 

 华南塑料展已成功举办过7届,随着中国对塑料机械及塑料原材料需求的增加和中国塑料市场竞争越来越大,国内外的企业都需要一个好的平台来推广新产品结交新伙伴。

 

 华南塑料展正是在这个行业背景下,通过不断努力而做大、做强起来。坚持「以专业市场为基础、以行业活动为主线、以展会为核心、以媒体宣传为网络,在展前、展中、展后为参展商、采购商提供全方位的交易和增值服务」,是华南塑料展始终坚持的准则。

 

许扬简介

 

 中国工业经济联合会副会长

 深圳市工业经济联合会会长、主席团执行主席

 深圳创业工程学研究会理事长

 深圳余彭年慈善基金会副理事长

 哈尔滨工业大学深圳研究生院教授

展会链接

 展会名称:第八届华南国际塑料工业展览会

 展会时间:2007323—25

 展会地点:深圳平湖华南国际工业原料城

 展会日程:

 323   1000 展会开幕式

 323-25日  9:30-16:30 展览

 323   油污控制技术在液压行业的应用技术讲座

 324   「中国塑料加工工业协会塑木专业委员会成立大会」

暨专业论坛

 展会现场每天进行抽奖活动,精彩大奖等着您。

 采购咨询热线:0086755896305718963057261268888

免费车路线及时间:

 黄岗口岸-华南城

  时间:7:3021:0020分钟/班,(乘车点:皇岗口岸缓冲停车场)

 龙岗中心城(丽湾酒店)-华南城

  时间:(9001840

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

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

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

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

>> 本类热点新闻

·港美容业趁乱抢先机
·南方电网总经理升任电监会副
·「好工」人力足 玩具厂闹人
·中化伙格力珠海建石化物流
·揭阳玉器节树「玉都」形象
·比亚迪F3车销大马逾三千辆
·联邦快递抢滩华南 珠三角新
·黄埔海关延企业补税期限
·东门人财两旺 一铺难求
·河北白沟办箱包服装节
·神州创富.西餐厅北上 须严
·银河星际酒店澳门将开幕
·神州创富.港裁缝店深圳穿针
·楼市百日宏调之二广州篇.广
·港珠澳桥沿线地产热
·雅居乐最快年底上市聆讯
·和黄东莞闲置地被罚7915
·内地豪客 炒高濠江楼价
·徐福记传2次赴港上市遭拒
·东莞厂家面临开三停四
·白云机场拟投177亿扩建
·华尔街大亨横琴寻商机
·炎夏临 电荒难解 粤港企
·120港人看楼团赴中山
·粤房价上半年涨9%统计局析
·凉茶申遗争议有望平息
·横琴:生逢其时未逢其盛
·深圳住博会迁新馆举行
·和黄西城都荟引入乐宾百货
·穗星河湾在港推售793伙

 

合作媒体

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


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