" 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-1-18 ■广东省省长黄华华表示，广东继续推动产业转移，并要加大力度。本报记者 摄   　【本报广东两会报道组广州17日电】牵动在粤数万间港资企业的产业转移问题，今年将再次面临政策收紧。在今天举行的广东两会上，广东省长黄华华和东莞、深圳等地的市委书记都异口同声的表示，将用经济的手段加快劳动高污染高能耗产业转移。   东莞在粤北增建产业园   　广东省长黄华华在两会分组讨论上明确表示，广东省将继续推动产业转移，而且要加大力度。他说产业转移不会影响珠三角经济发展，因为产业转移是一个规律。而这两年产业转移的实际证明，珠三角产业转移到山区，可能实现一个变两个，即总部在珠三角，但在山区多办一个企业，实际没有减少珠三角城市的发展。   　东莞市委书记刘志庚在接受记者采访时则表示，东莞已经在粤北建立了8个产业转移园，现在还有几个产业园区正在商谈之中。「目前，东莞的产业园是全省最多的，我们也感觉到这是调整产业结构非常好的载体，因此，作为市委市政府我们的态度很明确，要加大力度推进产业转移。」   港商盼推更多优惠政策   　刘志庚也告诉记者，今年东莞还将进一步调高最低工资标准，用经济的手段来加快产业转移。深圳市长许宗衡在今天的两会上也透露，深圳将坚决下决心推动高污染、高耗能企业向外转移。   　广东省政协港区委员、华嘉集团董事总经理庄成鑫称，珠三角的产业转移是必然现象，问题在于由于广东省东西两翼没有相应的投资优惠政策，导致很多厂房搬到广东以外如江西、湖南等地方去了。   　庄成鑫说，现时内地交通发达，从珠三角即使是出省去到江西、湖南也只需要四五个小时，比起广东东西两翼，那边的政策更优惠，官员更热情，成本更低廉，劳动力也充沛，很多企业干脆直接搬到那里去了。他建议，广东要想「肥水不流外人田」，就应该在东西两翼地区出台更多的优惠政策，吸引从珠三角转移出来的劳动密集型产业。   粤经济总量 首超台湾   ■17日，广东省第十一届人民代表大会第一次会议在广州开幕。广东省省长黄华华在会上作省政府工作报告。中新社   　【本报广东两会报道组广州17日电】广东省第十一届人民代表大会第一次会议今日上午在广州开幕，广东省省长黄华华在会上作《政府工作报告》指出，广东经济综合实力大幅提升，经济总量继超过亚洲「四小龙」中的新加坡、香港后又超过台湾，人均生产总值超过4,000美元。   　黄华华在《政府工作报告》中表示，广东省生产总值由2002年的13,500多亿元人民币增加到二○○七年的30,606多亿元，五年年均增长14.5%，2007年比上年增长14.5%，占全国比重由2002年的九分之一提高至八分之一。 黄华华提出，五年后的2012年，广东生产总值和人均生产总值分别达到4.5万亿元和4.5万元人民币，年均分别增长9%和8%。   黄华华他说，今年是新一届省政府工作的开始，工作将围绕「发展」与「和谐」两大主题，坚决落实中央宏观调控政策，预期今年全省的生产总值增长9%，亦会将居民消费价格的涨幅控制在4%以内。   港珠澳大桥融资 发改委召三方研讨     【本报广东两会报道组广州17日电】广东省省长黄华华在参加广东省两会时透露，国家发改委目前正在牵头就港珠澳大桥尚未解决的部分问题，如融资等，组织港珠澳三方开会进行讨论。他表示，在上次与香港特首曾荫权的会面时已达成一致，粤港双方将共同努力促进该项目尽快开工。   粤港今年突出四方面合作   　黄华华称，粤港合作5年来取得了显著成效，今年继续抓好四方面的合作。一是加强经贸合作，粤港经贸额2007年达4,100多亿美元，平均每年增加500多亿美元。其次加强环保、食品卫生等民生方面的合作。第三，加强加工贸易转型升级的合作，因为广东大多数加工贸易企业都是香港过来的。第四是跨境大型基础设施的合作，目前，广深港铁路加快进行，广东段2010年可以完成，香港正加快启动。   汪洋：允许官员说错话     【本报广东两会报道广州17日电】政协第十届广东省委员会第一次会议各界别委员代表座谈会16日在广州举行。在座谈会上，中共中央政治局委员、广东省委书记汪洋与委员们在轻松愉悦的气氛中进行了互动和交流。   　汪洋书记在会上说，要让一个领导讲真话不讲套话，讲实话不讲空话，讲有感而发的话不讲照本宣科的话，就必须容忍他讲不准确的话，甚至讲错话。汪洋表示，领导也不是圣人，作为领导讲话，既然要允许讲不准确的话或者是错误的话，这种场合有感而发的发言就不是指示。   许宗衡：深港合作日益紧密     【本报广东两会报道小组广州17日电】对于深港两地日益紧密的合作关系，深圳市长许宗衡今天表示，现在深港两地的关系是历史上最好的时期之一。许宗衡在接受本港记者采访时表示，「我当市长之后就提出要向香港学习为香港服务这样一个理念，按照这样一个理念进一步推进我们之间的合作，同时07年年底的12月我到香港访问的时候我把这句话又调整了一下，和香港建立更紧密的合作关系，共同打造两地的繁荣，这就是我们最基本的要求，一个最新的概括。这个概括我们就希望实行两地之间的优势互补，良性的互动，实现共同的双赢的目标。」   　许宗衡表示，随着深港两地高层之间，政府之间经常的沟通，两地的联系越来越紧密，所以将会继续推动两地之间各种要素的流动，积极推进深港创新圈，使两地实现共同的双赢。 责任编辑：cnred 文章页数第[1]页  页面功能 【我来说两句】【字体：大 中 小】【打印】 【关闭】 相 关 连 接 ·还没有相关文章 网 友 评 论 ·还没有相关的评论！ 发 表 评 论 您的大名: （点击这里注册） 这里填写您的评论：） 友情提醒：评论请限制在100字以内，有长篇大论欢迎到论坛发表：） 　 综合新闻|广东新闻|专题新闻 >> 本类热点新闻 ·朱小丹任穗书记 林雄掌粤宣 ·新劳动法咨询 港商提10质 ·黄云龙任广东省副省长 ·粤调整五地级市首脑 ·张德江近日赴京汪洋下周抵粤 ·400亿超级石化 落户广东 ·许宗衡：深港共建创新圈 ·港珠澳大桥敲定明年动工 ·南沙赢中科石化400亿项目 ·粤筹建三条大西南铁路 ·温总巡粤 为五中全会做调研 ·「十一五」末 粤总产值势超 ·珠澳深层合作 横琴或成试点 ·广东前省长梁灵光辞世 ·张德江：永远忘不了广东 ·阳江军演 176个航班取消 ·粤4000万元出口商品遭退 ·粤港边界 铁网将拆 ·佟星林木声任粤副省长 ·穗深莞构筑扫黑铁三角 ·港人内地养老 应享同等福利 ·港政协委员吁粤设辅警 ·港商向张德江黄华华进言 ·三年投资一百亿 条条大路催 ·十一．五商机之广东篇．广东 ·港珠澳大桥 香港口岸方案三 ·粤收紧赴港澳签注审批 ·珠三角新政与港企出路四之三 ·温总：深港合作将增自由度 ·粤政府出招吸港企北迁

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