" 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-9-11 ■极受女孩欢迎的一款Barbie玩具，磁石容易松脱，月前已回收。数据图片   　【本报珠三角新闻中心记者刘扬、赵鹏飞广州10日电】针对近期中国制造的玩具被美国召回，而引发的中国制造被海外频频抵制的风潮，加拿大两位教授则发布调查称玩具公司的设计应负主要责任。对此，广东玩具协会负责人就表示，海外采购商责任同样不可推卸。   　美泰中国区新闻发言人王庐霞，今天在接受本报记者采访时坦承，美泰在中国召回的玩具大部分是由于磁石松脱问题，而这是因为美泰自身要提高安全标准素质，基于此原因而造成的召回案，美泰自身将承担责任，而不要求第三方承担相关责任。   部分转包商不用认证油漆   　王庐霞称，玩具或配套玩偶中的小磁石脱落问题，美泰公司已率先对生产标准进行提升。另一原因则是由于油漆安全问题，王庐霞称，中国的生产商有权利将上漆程序下放给转包商。在此次事件中，生产商也按照生产流程，向转包商提供经过美泰认证的油漆，但未被转包商采用。因此，召回时间的责任也不在生产商，而在没有责任心的部分转包商。   　王庐霞表示，美泰与中国合作已超过20年。美泰的产品50%由海外生产，而其中65%又是在中国生产。美泰与很多中国生产商都有逾10年的合作，并已建立完善的生产体系。召回事件不会影响美泰与中国厂家的合作关系，   品牌商质检不力难卸责   　世界约有75%的玩具出自中国，而中国出口的玩具79%出自广东。针对频频发生的我国供美国OEM玩具召回事件，广东省玩具协会常务副会长李卓明表示，中国玩具被召回，海外采购商的责任不可推卸。   　李卓明表示，中国的玩具生产模式多为OEM，由国际采购商提供设计图纸或样品。在玩具「召回事件」中，生产厂家固然有未能把好采购原料关卡的责任，但品牌商同样有不可推卸的责任，因为产品出货时，质量控制和检验工作不到位。   　李卓明称，按通常的惯例，产品必须要检验确认合格才能够验收办理出关。另外，美泰召回的1,820万件玩具，原因是小磁盘有容易脱落的危险，这是属于产品设计不当的范畴。这批产品主要是在2007年前生产销售的，当时符合美国标准，但最近美国玩具标准做了修订后，就不达标了，而这批产品召回的责任跟产地、生产商没有任何关系。   港商受累 订单少两成   　【本报珠三角新闻中心记者刘扬、赵鹏飞广州10日电】近期发生的美国OEM玩具召回事件，使港资玩具企业首当其冲。东莞一间港资玩具制造商告诉记者，此次的召回事件让他的订单受到了直接的冲击，跟往年的同期相比，订单减少了两成左右。「我们现在做的都是超过4年的老客户，但是去年开辟的新客户，今年7月以后基本上就没有新的订单过来。」   　该名港商表示，他也关注到，此次被美国召回的玩具中，有85%左右的是因为设计方面的问题，因此在后面接单的时候，一定会注意到在跟客户签订合同时，会明确各自的责任。「谁的环节出了问题，谁来承担责任，否则生意肯定是做不长久的。」   学者：中国厂家最无辜   　广东省社科院研究员黎友焕表示，玩具「召回事件」将会造成采购商再次提高质量关卡，从而造成厂家的成本被迫上涨。   　黎友焕同时表示，在以往对中国玩具进出口的跟踪研究中发现，大部分珠三角玩具厂家都是依据合同，按照国外图纸或样品生产。根据合同法，在此种情形下，中国厂家无须负担责任的，但却必须在「召回」事件中背负经济与信誉的双重损失，实际是国际贸易纠纷中最无辜的受害者。   采购商压价 易出质量问题   　【本报珠三角新闻中心记者刘扬、赵鹏飞广州10日电】因为劳动成本提高、原材料价格上涨、人民币升值，但玩具采购商和委托加工商不仅没有相应提高玩具价格，反而在压价，造成玩具生产商处在边缘利润中，如稍为不「留神」，便无利可图。   　广东省玩具协会常务副会长李卓明指出，在这种情况下，迫使一些生产商不得不在原材料上动脑子，用低价料，因而造成产品质量出现问题。   　在这个问题上，更大的责任在于采购商，「又想马儿跑，又不想给马儿吃草，总想自己占便宜不让对方得到好处，哪会有双赢的好结果呢。」李卓明建议，中国玩具厂商一定要保证一定利润空间的前提下才好接单生产，否则不要去做这种生意。为了保证产品的质量，保证合作方的利益，国外玩具采购商应该自觉遵循互利的原则，产品的定价要合理化。 责任编辑：cnred 文章页数第[1]页  页面功能 【我来说两句】【字体：大 中 小】【打印】 【关闭】 相 关 连 接 ·还没有相关文章 网 友 评 论 ·还没有相关的评论！ 发 表 评 论 您的大名: （点击这里注册） 这里填写您的评论：） 友情提醒：评论请限制在100字以内，有长篇大论欢迎到论坛发表：） 　 综合新闻|广东新闻|专题新闻 >> 本类热点新闻 ·港美容业趁乱抢先机 ·「好工」人力足 玩具厂闹人 ·南方电网总经理升任电监会副 ·揭阳玉器节树「玉都」形象 ·东门人财两旺 一铺难求 ·中化伙格力珠海建石化物流 ·神州创富．西餐厅北上 须严 ·黄埔海关延企业补税期限 ·神州创富．港裁缝店深圳穿针 ·联邦快递抢滩华南 珠三角新 ·雅居乐最快年底上市聆讯 ·银河星际酒店澳门将开幕 ·比亚迪F3车销大马逾三千辆 ·港珠澳桥沿线地产热 ·徐福记传2次赴港上市遭拒 ·河北白沟办箱包服装节 ·和黄东莞闲置地被罚7915 ·凉茶申遗争议有望平息 ·120港人看楼团赴中山 ·东莞厂家面临开三停四 ·楼市百日宏调之二广州篇．广 ·和黄西城都荟引入乐宾百货 ·内地豪客 炒高濠江楼价 ·横琴：生逢其时未逢其盛 ·华尔街大亨横琴寻商机 ·白云机场拟投177亿扩建 ·广州催谷国际名牌中心 ·穗星河湾在港推售793伙 ·传港人买深圳房 缴税翻倍 ·棒约翰5年内华南开100店

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