" 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 时间:2008-7-21 ■温家宝在广东调研时指出，将从信贷、财税及产业政策等方面加大支持中小企的力度。新华社   　【综合本报珠三角新闻中心记者赵鹏飞、新华社20日电】中央政治局常委、国务院总理温家宝19日-20日在广东就经济运行情况进行调研时指出，世界经济增长放缓，外需收缩，对珠三角一些以出口为主的中小企，带来的负面影响愈来愈大，当局要从信贷、财税及产业政策等方面加大支持，特别要培育一批具有成长潜力的科技型中小企业。温家宝强调，当前经济运行仍存在不少突出矛盾和问题，要增强风险意识和忧患意识，努力实现经济平稳较快发展、控制物价过快上涨的目标。   　温家宝冒着高温酷暑来到广州、东莞、深圳等地，深入多家企业了解生产、销售和研发情况。看到这些企业在国内外经济环境发生变化的情况下克服重重困难，努力自主创新，积极开拓市场，温家宝十分高兴。   出口增速放缓 倡粤港澳合作   　据海关广东分署最新统计，今年上半年广东出口增速持续走低，1-6月出口1,878.3亿美元，增长13%，低于全国出口21.9%的增长幅度。进口1,366.8亿美元，增长13.9%，低于全国进口30.6%的增长幅度。而作为全球最大的鞋类生产地区之一，广东省上半年出口鞋类产品同比下降15.8%，有出口实绩的企业由去年同期的5,811家降至上半年的3,924家。 　温家宝说，应对这些挑战，根本出路在于深化改革开放，推动科学发展。重点要做好几个方面的工作：   　一要加快转变经济发展方式，推动产业结构优化升级，着力打造世界先进制造业基地和现代服务业区域中心。二要拓展对外开放广度和深度，着力增强国际竞争力，大力提高「引进来」的水平，加快实施「走出去」战略，把开放型经济提高到一个新水平。三要坚持互利共赢、平等协商的原则，创新合作思路和方式，大力推进粤港澳紧密合作。   稳定外贸政策 推进改革开放   　在东莞亚南电子厂，温家宝说：「我知道你们现在面临成本上升、销售市场减少以及其它方面的一些困难。但是你方才最关心的一个问题，就是外贸政策，我可以回答你：我们外贸政策将基本稳定，相信你们会渡过这段困难的时期。」   　温家宝还指出，「不失时机地推进改革开放，既是形成更加具有活力的体制机制、从根本上解决制约生产力发展诸多矛盾和问题的必然选择，也是适应日益激烈的国际竞争的迫切需要。   　目前改革开放仍处于攻坚阶段，面临的深层次矛盾和问题日益凸显，需要啃硬骨头。要继续以解放思想为先导，引领改革开放深入向前推进，为发展中国特色社会主义提供强大动力和体制保障。」   粤企疾呼：人民币缓升值   ■全球经济增长放缓，外需收缩，令珠三角企业举步维艰。数据图片   　【本报珠三角新闻中心记者赵鹏飞20日电】广东省外经贸厅最新调研报告显示，人民币汇率能否保持梯度和稳定，是出口企业的最大呼声。 　报告指出，相当数量的出口企业在人民币升值过程中，都不同程度遭受到汇率兑换损失——具体体现在，企业上季度报出的价格还在执行，到出口收汇时，已远离了原报价应收的汇率。同时，外贸企业从签订合同到出口，收汇时间跨度大，受人民币预期升值幅度不确定的影响，外贸企业目前签订的出口订单大部分是短期、小额订单，不敢签订大额、长期订单。   08年料蚀524亿   　据初步测算，2007年度人民币升值对广东省一般贸易出口造成损失195.2亿元。如按人民币对美元升值10%计算，08年广东一般贸易出口还将损失524.5亿元人民币。   　报告指出，汇率变动频繁，成本难以控制，通过涨价转嫁成本的空间越来越小，直接造成出口兑换收入下降，企业不想出口、不敢出口。   　同时，近两年来国家陆续调整了一系列涉及外商投资的政策，包括出口退税降低、两税合一、人民币升值、开征土地使用税等，综合力度均较大；加上新《劳动合同法》实施、原材料价格上涨等带来的成本危机，都让不少以加工制造为主的外企吃不消。   多种因素冲击广东出口 1.两税合一 2.加工贸易政策调整 3.新劳动合同法 4. 人民币升值 5. 美国次按危机 6. 石油涨价 7. 原材料价格上涨   成本年涨10% 利润微增5%     「仅人民币升值一项的影响，我们今年上半年的净利润已经蒸发了500万」，位于广州南沙的港资利民实业有限公司执行董事莫健兴对记者大吐苦水。不仅如此，国家下调出口退税率、扩大加工贸易限制类目录、实行台账保证金「实转」及从紧的货币政策、都增加了企业融资成本。 　广州卜威工业有限公司总经理张国宏也对记者说，「一系列政策迭加起来，使企业每年增加成本10%以上，而整个制造业利润率只有5%。」他的一个朋友经营一家小公司，去年原本赢利5万元，但今年开征土地使用税且追溯到去年，根据占地规模，他需缴纳去年的土地使用税9万元，这样算来公司去年实质上是亏损的。他认为，国家政策变化不能太激烈，尤其是传统制造业的转型要循序渐进，政策要维持稳定性。■本报记者 赵鹏飞   责任编辑：cnred 文章页数第[1]页  页面功能 【我来说两句】【字体：大 中 小】【打印】 【关闭】 相 关 连 接 ·还没有相关文章 网 友 评 论 ·还没有相关的评论！ 发 表 评 论 您的大名: （点击这里注册） 这里填写您的评论：） 友情提醒：评论请限制在100字以内，有长篇大论欢迎到论坛发表：） 　 综合新闻|广东新闻|专题新闻 >> 本类热点新闻 ·朱小丹任穗书记 林雄掌粤宣 ·新劳动法咨询 港商提10质 ·黄云龙任广东省副省长 ·400亿超级石化 落户广东 ·张德江近日赴京汪洋下周抵粤 ·许宗衡：深港共建创新圈 ·南沙赢中科石化400亿项目 ·港珠澳大桥敲定明年动工 ·「十一五」末 粤总产值势超 ·温总巡粤 为五中全会做调研 ·广东前省长梁灵光辞世 ·张德江：永远忘不了广东 ·珠澳深层合作 横琴或成试点 ·阳江军演 176个航班取消 ·粤港边界 铁网将拆 ·粤4000万元出口商品遭退 ·港政协委员吁粤设辅警 ·港人内地养老 应享同等福利 ·佟星林木声任粤副省长 ·穗深莞构筑扫黑铁三角 ·港商向张德江黄华华进言 ·三年投资一百亿 条条大路催 ·十一．五商机之广东篇．广东 ·港珠澳大桥 香港口岸方案三 ·粤收紧赴港澳签注审批 ·珠三角新政与港企出路四之三 ·粤政府出招吸港企北迁 ·温总：深港合作将增自由度 ·广东「十一五」粤港合作仍是 ·粤斥485亿陆海交通大提升

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