" 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 来自:文汇报 点击:38 时间:2008-7-23 ■香港传媒高层访问团一行，昨日参观广州萝岗科学城。   文：本报珠三角新闻中心记者 罗爱文、赵鹏飞　图：本报记者 潘达文   　大力推动广东进一步思想解放的中共中央政治局委员、广东省委书记汪洋昨日在广州强调，改革开放迄今30年的经验其中相当重要的一条，就是发挥毗邻香港的优势，推动粤港合作。而在未来，广东要能更上层楼，关键也还是要借助香港，推动粤港合作和共同繁荣。   　他还进一步阐述了自己有关推动两地合作的想法：如果说30年前，粤港之间的合作是从制造业的前店后厂开始的话，那么30年后的今天，两地的合作将从服务业，尤其是现代服务业的前店后厂再起步。   　汪洋认为，粤港合作首先要厘清两地的产业定位。他说，粤港合作是持续性的，无论从那个角度看，制造业目前和将来一段时期都是广东经济的主体，而香港则是服务业占了国民经济的90%以上。广东现在迫切要解决制造业比重过大，而服务业尤其是现代服务业发展滞后的问题。而这恰恰是香港的优势，汪洋说，大家都知道香港是国际化的自由港，无论是物流、金融、工艺设计，包括旅游等方面的优势都非常明显，但是香港成本太高、市场太小，如果能以香港为基础，让这些现代服务业进入到广东来，一方面可以为香港服务业找到广阔的市场，另外也可以解决广东产业结构不合理、服务业发展滞后的问题，而且还可以粤港携手，共同开拓中国内地的服务业市场，这样也会优化粤港两地之间的产业结构，使两地的经济水平提升到一个新的台阶。   优化产业 避免无序竞争   　汪洋同时指出，广州、深圳等城市也有金融业、港口物流等服务业，但是广东还是要以香港为中心，这就需要两地之间有一个合理的规划，两地之间在两制的框架下更好地分配资源，避免无谓的无序的竞争。 　汪洋说，目前两地必须合作已经成为共识，但是在合作中如何创新方式，广东还需要进一步解放思想。他提出，改革开放30年来粤港两地合作的一个基本经验，就是市场力量的推动，因此，他认为广东应该更多地看到两地市场的巨大潜能，倚托市场自身力量的推动，不要老是盯着「一国两制」的差异。   解放思想 推动行业合作   　回顾历史，汪洋指出，经过30多年的改革开放，今天广东已经站在了一个新的历史起点上。30年后的今天，广东改革开放必须有新举措。他说，广东希望与港澳一道，面向未来、面向世界谋划粤港澳合作。比如，如何调整、完善粤港澳在全国乃至全世界所起作用的功能定位，如何创新合作方式实现优势互补，如何共同促进珠三角产业结构调整，如何提升粤港澳地区的整体竞争力，推动粤港澳合作迈上新台阶，更好地造福三地人民等等，都需要两地进一步解放思想，共同探讨。汪洋举例说，广东今后在考虑推动政府之间及经贸合作的同时，还可以积极深化两地各行各业以及社团之间的沟通合作，同时推动教育、科技领域包括传媒之间的合作，吸取香港行政管理和社会管理的有益成分，改善广东的行政管理和社会管理体制。   羊城遇塞车 参观被迫缩短      像世界上许多大都市一样，广州的交通拥挤为市民所诟病。22日下午，港媒参观团在前往广州萝岗科学城的过程中，就亲身体验了一回广州塞车的场景。参观团所乘坐的大巴下午3点从驻地广州东方宾馆出发，路过天河区某高架路，遭遇塞车，车子以极慢的速度前行，以致到达参观目的地威创公司时间有所推移。由于时间紧迫，参观团缩短了对科学城的访问时间，而在返回途中，同样遇到塞车，到达东方宾馆时，还好及时赶上了此前安排好的广州市经济情况报告会。传媒老总们看到没有「漏料」，才松了一口气。　■本报珠三角新闻中心记者 敖敏辉   港媒高层关注广州通信产业     【本报珠三角新闻中心记者敖敏辉广州22日电】近年来，广州通信产业的迅速发展，受到香港传媒高层的关注。传媒高层团一行22日来到广州科学城，考察广州开发区高新技术产业发展情况，并重点参观了广州通信高科技企业威创公司。   　据介绍，威创公司是广州最大的港资企业之一，在可视化通信及卫星通信市场份额中居世界第三位。威创公司负责人详细向参观团一行介绍了公司的各项最新技术，尤其在该公司的多媒体地图和卫星导航技术在现代媒体采访中可以发挥的巨大作用时，不少本港新闻界高层表示了浓厚的兴趣。   朱小丹：广州发展港功不可没   ■广州市委书记朱小丹与本报社长张国良交谈。   　【本报珠三角新闻中心记者赵鹏飞、徐红、朱桦广州22日电】香港新闻界高层22日下午在东方宾馆与广州市官员进行座谈。广州市委书记朱小丹高度赞扬改革开放30年来，香港对广州经济发展所起到的巨大作用，并由衷地感叹：「广州发展，香港功不可没！」   　在下午举行的座谈会上，广州市副市长陈国向由本报社长张国良率领的本港新闻界高层介绍了广州近年来经济发展取得的成绩。他指出，广州GDP去年达到7,109.18亿元，约占全国的1/35和全省的1/4，而广州地区的财政一般预算收入年均增长则高达17.4%，约占全国、全省财政一般预算收入的1/24和1/3。如此骄人的成绩，陈国说有香港的一份功劳，因为改革开放以来，穗港合作不断深化，港资更一直是广州引进外资的首位。   　「可以说，广州从改革开放之初人均GDP不足400美元，发展成为今天人均GDP接近9,500美元、经济总量居内地城市第三位，离不开香港各界的长期关心、支持和帮助，离不开日趋紧密和融合发展的的穗港合作。」陈国也表示，在未来的发展中，广州还将积极推动和落实CEPA协议，引进香港的服务业，尤其是高端服务业。   穗研发自主品牌汽车   　在座谈会上，陈国也透露，广州已经开始投入研发自主品牌的汽车，相信不久广州本土品牌的汽车将问世。据介绍，广州汽车产业经过多年的发展，已形成丰田、本田、日产、日野四大日系汽车的集群发展格局，成为仅次于上海的全国第二大汽车生产基地，汽车工业产值超千亿元，正在向年产一百万辆的目标前进。他指出，在汽车制造业获得长足发展之后，广州在已积累的制造技术和管理技术的基础之上，开始了自主品牌的研发，目前，设立在广州番禺化龙镇的研发生产基地已经开始动工建设。   香港新闻界高层广东访问团名单   姓名　　媒体名称　　　　　职务 张国良　文汇报　　　　　　社长 陈早标　经济日报　　　　　副社长兼总编辑 梁家荣　亚洲电视　　　　　高级副总裁 陈淑薇　商业电台　　　　　新闻总监 张健波　明报　　　　　　　总编辑 刘志权　南华早报　　　　　总编辑 陈锡添　香港商报　　　　　总编辑 萧世和　星岛日报　　　　　总编辑 陈景祥　信报　　　　　　　总编辑 郭一鸣　新报　　　　　　　总编辑 袁志伟　无线电视　　　　　新闻总监 冯玉莲　香港电台　　　　　新闻总监 郭艳明　新城电台　　　　　总编辑 贾西平　大公报　　　　　　副总编辑 司徒元　有线电视　　　　　采访主任 张志刚　一国两制研究中心　总裁 冯成章　明报　　　　　　　执行总编辑 苏伟雄　经济日报　　　　　副总编辑 张建华　文汇报　　　　　　副总编辑 责任编辑：cnred 文章页数第[1]页  页面功能 【我来说两句】【字体：大 中 小】【打印】 【关闭】 相 关 连 接 网 友 评 论 wow gold:    wow gold buy wow gold 发 表 评 论 您的大名:（点击这里注册） 这里填写您的评论：） 友情提醒：评论请限制在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 来访统计：  技术支持：中国红电子商务频道