<%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%> 香港文汇报珠三角新闻网_东莞中小企遇困 政府斥80亿相助

您的位置:首页 > 广东新闻 > 东莞

 

东莞中小企遇困 政府斥80亿相助

 

wwpprd.com 作者:wwpprd.com 来自:文汇报 点击:0 时间:2008-7-24


文:本报珠三角新闻中心记者 陈光宗、胡明、罗爱文 图:本报记者潘达文、松山湖科技园区提供

 

 今年以来,珠三角企业经营成本上涨超过25%,而同时受到国外订单竞相压价近20%,致令企业利润空间萎缩,以港台资为主的劳动密集型中小企业经营出现困难甚至倒闭,这种现象在东莞尤其突出。

 

 东莞市委书记刘志庚、市长李毓全昨日在会见到访的香港新闻界高层代表团时透露,为了纾解这些企业的压力,东莞今年打算投入40亿扶持困难企业和基层政府;还将成立转型基金来支持企业发展。与此同时,东莞还在市外建了8个镇级产业转移园区,投资近40亿元,鼓励企业向成本较低的区域转移。

 

 东莞是珠三角港企最密集的地区,在1.5万家外资企业中,港企就占9,000家,这些企业多属于中小型加工贸易企业。刘志庚说,这些中小企曾经为东莞的发展做出了巨大贡献,目前由于面临油价飙升、新劳动合同法实施以及人民币升值等内外环境的变化,不少中小型港企经营陷入困境,甚至倒闭。据悉今年上半年东莞倒闭或搬迁的企业有300-400家,其中60%属于港企。

 

考察东莞 温总亲临港企

 

 香港新闻界高层对此非常关注,希望东莞政府保持政策的相对稳定,并帮助中小港企渡过难关。针对香港新闻界高层提出要保持政策的相对稳定,刘志庚响应说,其实一直以来,除了国家的加工贸易调整以及新劳动合同法的实施等国家层面的政策,东莞市政府并没有单独出台相关调控政策。他还透露,近日温家宝总理到东莞调研,政府就专门安排总理参观港企,了解港企现时的困难与所需。其间,温家宝总理也专门强调:国家将稳定外经贸政策。据此,刘志庚预测中央近期不会出台影响外经贸企业的宏观调控政策。

 

56试点 定帮港企脱困

 

 刘志庚表示,改革开放30年来,东莞的发展离不开香港企业,目前企业遇到难题,东莞绝不能坐视不理。为了制定更好的政策帮助企业渡过难关,东莞已经选定56个试点,将用半年时间研究各个试点遇到的困难,并在年底出台调整产业结构的引导政策。

 

 此外,刘志庚还透露,东莞将成立转型基金来支持企业发展。该基金由两部分组成,一部分是每年为实施「科技东莞」而投入的10亿元资金,另一部分来源于过去对三来一补企业的部分收费。目前,经贸部门正在就该转型基金的申请、发放等方面进行全面调研。

 

 对于不能尽快转型的中小企业,东莞在市外已建8个镇级产业转移园区,投资近40亿元。下一步还将与惠州合作,再建设一个约10平方公里的市级产业转移园。

 

 刘志庚介绍,东莞政府现在提出经济社会双转型,进行产业结构调整,让有条件的港企技术升级、自创品牌,在东莞就地升级转型。而对一些污染大、用工多、耗能高的生产企业,政府也将有序进行调整。近年来,东莞每年引进的企业数为1000家左右,倒闭或搬迁的企业数为700家,其中六成属于港资。但刘志庚同时强调,东莞进行产业结构调整时,并非强行赶走港企或外资企业,而是按经济规律办事,让企业自行选择转型、转移或者关闭。

 

东莞协助港企部分措施

 

  ■ 在东莞7个通关口岸设立出口监管仓和保税仓,加快推进加工贸易合同电子审批;

 ■ 适度减免行政收费,通过取消或减少一些收费项目,帮助企业减轻成本压力;

 ■ 鼓励和引导港企扩大内销,并选取80家内销试点企业;

 ■ 积极引导外资企业在莞设立研发机构、创立品牌、建立多层次的自主品牌销售渠道;

 ■ 「并联」审批制度简化投资项目的前置审批事项;

 ■ 建立在莞港资企业转型升级联席会议制度。

 

07年东莞经济发展数据

 

  ■ GDP3,151亿元,比上年增长18.1%

 ■ 财政收入:539.5亿元,比上年增长32.7%

 ■ 合同利用外资(新口径):31亿美元(241.8亿港币),比上年增长25.2%

 ■ 外贸进出口总值:1,050亿美元(8,190亿港币),比上年增长24.7%。其中,出口590亿美元(4,602亿港币),比上年增长24.5%

 ■ 城市居民年人均可支配收入:27,025元,比上年增长12.2%

 

莞引港高端服务业

 

  谈到未来莞港两地合作,东莞市委书记刘志庚强调,制造业发达的东莞,为香港服务业提供了巨大的商机。

 

 刘志庚说,东莞自身产业结构不够合理,香港位居国际金融中心和海运中心,东莞超过60%的货物都是经过香港转运,莞港两地合作前景甚广。东莞将针对产业链缺失的项目和生产型服务项目,大力引进香港成熟的现代服务业,重点为金融、现代物流、会展、服务外包、中介服务、保险、信息服务、创意、现代商贸业等,形成具有国际竞争力的先进制造业和现代服务业集群,不断提升产业竞争力。

 

老总游东莞 惊叹似「公园」

 

  在许多港人的印象中,东莞是一个交通混乱、污染严重、治安堪忧的城市。但昨天香港新闻界高层广东访问团在东莞「旅游」一个上午,清澈的湖水、洁净的街道、整齐的建筑、蔚蓝的天空,让老总们眼睛为之一亮,纷纷感叹:东莞原来生态环境这么好,像是一个大公园!

 

 特别是访问团参观松山湖开发区时,只见近万米长的花带沿着松山湖边蜿蜒起伏,花团锦簇、鸟语花香的世界令老总们心旷神怡。有老总忍不住拿起手中的相机,记录下这些自然生趣。松山湖区规划面积72平方公里,有近8平方公里的淡水湖,以及14平方公里的绿地,生态环境优越,以「科技共山水一色」的硅谷环境著称,有些老总甚至情不自禁地打听起这里的房价。

 

 东莞市委书记刘志庚介绍,东莞先后获得国家卫生城市、全国绿化模范城市、中国最佳魅力城市、国际花园城市等荣誉称号。许多老总都说,看来得重新认识东莞。

 

投资200亿 为还港蓝天

 

  刘志庚并不讳言东莞企业面临的问题。他说,东莞靠「三来一补」的外资企业起家,但经过30年的发展,这种贸易方式所带来的弊端也开始显露。由于港企多属中小型企业,「两头」(研发和市场)在外,劳力密集,技术含量低、污染问题日益突出。为此东莞正付出沉重的代价,来还历史的「债务」。他透露,东莞目前同时在建36个污水处理厂、4个垃圾处理厂以及2个医疗垃圾处理厂,加上治污管网建设,投入治污资金达200亿元。

 

关闭污企逾800

 

 刘志庚说,东莞与香港地缘相近,人缘相亲,语言相通,同饮东江水。为了保护供港的东江水质,东莞牺牲了自己,把东江上游污水引入东莞的运河,并将东江上游的污染企业全部迁走。而为还香港一片蓝天,治理阴霾天气,截至目前,东莞已经关闭了43家水泥厂、286个砖厂、500多家养殖场。他还感叹,去年东莞出台了关于禁止养猪政策,并在社会引起了较大争议,其实关闭养殖场的工作近年来一直在做,而这些政策实质上都是为了保护好环境。

 

 此外,对于那些全市的重点污染企业,东莞市还专门出台了重点污染企业整治方案,对全市电镀、漂染、造纸、制革、洗水、印花等六大行业1,252家企业,按照「关闭一批、搬迁一批、管好一批」的原则进行深化整治,并于去年分期、分批关闭241家「四纯两小」(纯电镀、纯漂染、纯印花、纯洗水和小规模造纸、小规模制革)企业。

 

莞港合建生产力促进基地

 

  松山湖管委会副主任陈晓慧昨天向香港新闻界高层透露,在东莞政府与香港生产力促进局的推动下,莞港生产力促进基地将落户风光明媚的松山湖。陈晓慧说,总体上看,莞港合作层次偏低,制造业合作以低端环节为主,自主创新企业少,服务业合作以进口服务为主,在产品设计、研发、测试和金融等产业支持服务领域合作较少。而东莞市当前面临产业升级转型,对现代服务业产生巨大的市场需求,这就催生了莞港生产力促进基地落户松山湖。

 

 01年正式成立的松山湖科技产业园区,是广东省高新技术开发区,而其作为东莞经济转型升级的「火车头」,松山湖无疑将成为莞港新一轮合作的首选平台。在7月初松山湖香港推介会上,松山湖新签订22个投资合作项目,引进资金达130亿元。陈晓慧说,通过莞港两地的共同努力,松山湖未来将成为整个珠三角高新科技的辐射源。

 

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

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

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

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

>> 本类热点新闻

·中国百强镇——樟木头商贸重
·东莞暴雨3死损2亿
·东莞最低工资或加22%
·东莞建全国最大五星酒店
·东莞安监局 将反映港商意见
·港商「走佬」欠薪东莞二千人
·虎门城管执法引发冲突
·东莞火车站拟扩运能 3年实
·港汉载女醉驾 东莞车祸3死
·东莞首设异地候机楼
·莞惠高速莞段快动工
·东莞2000警星夜打黑
·莞女提款5万 竟1万假钞
·东莞沙田镇力拓港口经济
·港穗深机场东莞争客源
·东莞交通大提速系列报道之三
·麻涌港口新城魅力彰显
·塘厦工商重镇跨越式发展
·樟木头观音山办啤酒节
·港澳豪赌东莞原镇长输九千万
·东莞建5万吨级石化码头
·东莞港资金铺生意隆
·东莞从盛名走向盛世
·东莞首富逝世 百亿遗产受关
·东莞电荒报废产品大增
·李毓全当选东莞市长
·东莞加电费 港企临挑战
·滨海新城沙田港口经济潜力无
·中堂跨越式发展铸就商贸物流
·南玻40亿东莞拓节能产业

 

合作媒体

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


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