<%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 时间:2006-3-8


本报记者 丁红洁、刘慧华、陈悦

 

 「百舸争流、千帆竞发,不进则退、慢进也退」的竞争时代下,湛江谋求的国民经济和社会发展「十一五」规划,不仅需利用后发优势赶超前发者,更需要「增创新优势,更上一层楼」。然而,这一切将并非在牺牲社会经济可持续发展能力之上的,湛江市委书记徐少华强调,湛江的「十一五」并非仅是工业、港口发展的「十一五」,更是关乎老百姓切身利益的「十一五」,湛江谋求「天时地利人和」的和谐发展环境,关键致力将「人」字写好,「以人为本」将成为这座城市的灵魂。

 

天时地利赋予机遇

 

 从「天时」来看,国内外形势看,经济全球化趋势深入发展,国际产业重组和生产要素流动转移加快,入世过渡期结束,国内市场将全面开放。中国与东盟10国将建成自由贸易区,周边经济合作格局发生重大变化。内地经济社会发展进入新阶段,产业结构调整和城镇化进程加快,居民消费结构逐步升级,社会主义市场经济体制逐步完善,全国对外开放大格局已形成,泛珠三角区域合作进入实质性推进阶段,更大的区域合作产生出巨大的经济活力。这些都为湛江市经济社会持续发展创造了有利条件,带来了一个极好的发展机遇。

 

 从湛江得天独厚的「地利」来看,党中央提出科学发展观和建设社会主义和谐社会的重大战略思想,为湛江的发展指明了前进方向。目前内地正在进入「重化工业」时期,国家对湛江利用深水良港发展石化、能源、钢铁等重化工业项目给予大力支持,对湛江市扩大重化工业规模、优化产业结构、加速工业化进程将起到关键性的作用。省委、省政府实施区域协调发展战略,对东西两翼的支持力度逐年加大,为两翼快速发展创造一个良好的发展环境,尤其对湛江的发展高度重视,寄予厚望,在政策、项目上给予大力支持,增强了湛江干部群众发展的信心和决心。

 

 湛江的资源优势、港口优势、区位优势和生态优势令人瞩目。湛江三面环海,环境优越,劳动力和土地成本较低,农海产品十分丰富。港口三大工程、高速公路等重大项目功能逐步发挥,湛江市海陆空兼备的交通基础设施更趋完善。众多重点工农业、服务业项目陆续建成,湛江经济社会发展后劲不断增强。城市面貌的改善,城市服务功能的提升,使湛江正成为吸引国内外投资的热土。这些明显的后发优势形成了湛江持续发展的强大承载力。

 

科学发展人和政通

 

 然而,湛江在实现现代化的征程上,为什么迈不出强劲的步伐呢?为什么拥有资源优势却无法变为经济优势?这些问题相信仍将困扰着湛江的「十一五」进程。对此,徐少华书记曾有段深刻的反思:我们是否真正树立了造福湛江的远大理想;是否真正担当起强市富民的切身责任;是否真正把人民赋予的权力用到全心全意为人民服务中去;等等。一句话:关键是人的因素。我们要致力于把天地之间的「人」字写好!否则,差距必然更大,落伍必然更远。

 

 徐少华认为,站在「十一五」新的历史起点上,湛江人一定要咬定目标、发愤图强,只争朝夕、全力冲刺。未来五年,湛江的实力一定要上新台阶,广大百姓的生活将有更多的实惠。

 

 湛江「十一五」期间全市固定资产投资将达1300亿元,期末生产总值达1200亿元,人均生产总值达18000元(约2200美元),财政总收入超100亿元,港口货物吞吐量达1亿3000万吨。惠及广大农民的社会主义新农村运动将在湛江大地全面铺开。市区公园、小游园达100个,实现市民出门1015分钟可到达一处绿地,真正建设老百姓的城市。党和政府将有制度性的措施解决普通百姓家庭就业难、上学难、就医难等生产生活的实际问题。继续争创「全国卫生城市」、「国家环保模范城市」、「国家生态园林城市」和「全国文明城市」等荣誉称号。

 

 徐少华称,「十一五」规划是以人民意愿、百姓语言编成的发展蓝图,更是凝聚民心、激发民力的行动纲领。科学发展的理念、湛江富强的心愿、以人为本的价值观将具体而生动地融汇在每一串数字,每一个项目之中。唯有给人民以希望、信心、勇气和力量,使广大百姓以湛江为家,以做湛江人为荣,以振兴湛江为己任,新的发展规划才有现实意义,为民谋福祉才能真正落在实处。值得徐书记欣慰的是,目前全市上下已形成一种积极向上、干事创业的良好氛围,为湛江的发展增添了巨大的创造活力。

 

 徐少华笑称,「可能湛江GDP始终赶不上珠三角发达城市,但湛江人却可呼吸更清新的空气、享用更干净的水源」。老百姓的切身得着,始终是书记的最大牵挂。「这五年并非把资源干完就拉倒,湛江不打资源消耗战,不需与别人盲目比拚GDP速度,不要一味求大,我们只要争优做强」,徐少华诚挚地表示。

 

湛江「十一五」发展重点和主要任务

 

 一是坚定不移走新型工业化道路,不断增强工业主导地位。集中力量优先发展临港石化、能源、造纸、机械、食品等支柱产业,特别是要抓住省将湛江列为石油化工基地的机遇,做大做强石化产业,拉长油气资源加工产业链,提高附加值,使石化产业有一个质的发展。用先进适用技术和高新技术改造传统产业,形成家用电器、纺织服装、糖业、果蔬加工、水产品加工等传统特色产业集群,增强优势产品的生产配套能力,培育一批具有较强竞争力的企业集团和名牌产品,提高产品的市场占有率。

 

 二是以项目建设为突破口,不断壮大经济规模。工业项目是经济增长的引擎,直接影响全市经济总量和发展速度。加强对重点项目的全程服务与管理,确保东兴年产800万吨炼油、中油120万千瓦奥里油发电、珠啤40万吨易地改造和中星50万吨重交沥青等一批重点项目顺利推进。想方设法推动70万吨纸浆和40万吨造纸项目落实建设,打造林浆纸一体化基地。积极争取钢铁基地项目和石油储备项目落户湛江市。

 

 三是突出抓好工业园区的建设,优化产业布局。加大工业园区基础设施的投入,提高园区对项目的承载能力和配套服务功能。有重点有特色地进行招商引资,努力把各类工业园区打造成为高新产业的先行区、外向型经济的新平台、特色产业的聚集园,真正成为市区和县域的经济增长极。

 

 四要注重发挥港口优势,加快建设西南出海主通道。港口是湛江最突出的优势,是湛江市当前发展的重要依托和未来发展的重要动力源。要进一步抓好港口的基础设施建设和配套服务,全力推进宝满港区大型集装箱码头工程,加快建设与港口相配套的临港工业园区、疏港大道、黎湛铁路复线湛江段和湛徐高速公路,同时做好洛湛铁路茂湛段和东海岛疏港铁路等重大项目的前期工作,促使工程早日开工建设,完善综合运输网络、仓储配送基地,进一步提升服务功能与核心竞争力。

 

 大力拓展港口的加工与物流配送功能,建立面向东南亚、辐射大西南的区域性物流平台。把发展物流业与发展临海工业、开展国际贸易等结合起来,着力打造石油、铁矿石、散装化肥、粮食等几大类货物的中转基地,继续强化湛江港作为华南主枢纽港和西南出海主通道的地位,早日建成南方亿吨大港。

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

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

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

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

>> 本类热点新闻

·湛江沿海经济模式显实力
·湛江东海岛或列开发计划
·湛江开发区拓特色工业
·湛江望新特首续推泛珠合作
·十一.五商机之湛江篇.湛江
·吴川械斗案 拘三持枪伤人汉
·港超大油轮抵湛江港
·湛江港吞吐量增31%
·请问我的车还可以要吗?
·雷州百童高烧 甲型流感作祟
·湛江港5年建成亿吨大港
·警察可以随便扣车不还的吗?
·湛江发愤图强 在竞争中赢得
·湛江百亿建重化基地
·30万吨巨轮首靠湛江港
·湛江开发区扩区酿商机
·以人为本 湛江 共创辉煌「
·湛江藉港口招商引资

 

合作媒体

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


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