" 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 在线订报  在线投稿 网站首页 | 活动视窗 | 时政要闻 | 金融财经 | 产经新闻 | 社会新闻 | 科技动态 | 教育文化 | 旅游休闲 | 饮食娱乐 | 粤港合作 泛珠新闻 | 广州 深圳 珠海 佛山 汕头 中山 东莞 江门 韶关 河源 梅州 惠州 汕尾 阳江 湛江 茂名 肇庆 清远 潮州 揭阳 云浮

您的位置：首页 > 综合新闻 > 粤港合作 　 曾荫权晤汪 提粤港合作3重点 　 wwpprd.com 作者:wwpprd.com 来自:文汇报 点击:55 时间:2008-1-5 ■曾荫权与汪洋在广州会面，共商粤港合作新突破。本报记者徐海炜 摄 　【本报记者徐海炜广州4日电】香港与内地的合作不断加强，粤港合作更已进入了唇齿相依的新时代。香港特首曾荫权今午到广州拜会中共中央政治局委员、新任广东省委书记汪洋，两人于会面中不约而同地指出，粤港两地是最密切的合作伙伴，应在未来加大合作力度，取得更多的突破。 汪洋提出，要以全球视野、把粤港看作为一经济整体去考虑双方的合作，双方应在4个合作领域取得新进展；曾荫权则提出了粤港合作3个方面的重点，包括配合国家整体发展作出政策调整，开创更多服务业在粤作试点，以及加强民生事务的合作等。   将在粤开创更多服务业试点   　曾荫权于今午进行了2008年的首个外访，在广州的珠岛宾馆与履新不久的汪洋进行正式会面，探讨粤港未来的合作方向和重点。出席会面的人士包括广东省省长黄华华、副省长汤炳权，香港特首办主任陈德霖等。   　汪洋于会面中表示：「广东与香港是区域相连，唇齿相依。」香港这几年可以繁荣稳定，广东能够快速发展，粤港合作功不可没。据参与会面的人士表示，汪洋在会面中特别强调，粤港合作面对激烈的国际竞争，双方要以全球视野去思考问题，要把粤港看作为一经济整体，放入全球化的分工体系来考虑推进合作。   汪洋倡推进4合作领域   　据悉，汪洋提出了粤港双方应在4个合作领域取得新进展。首先是推进产业转型升级，广东政府会积极支持港商在广东加工贸易业的转型升级﹔其次是推进两地服务业合作，希望争取到更多的服务业把广东作为开放的试点﹔第三是两地应加强CEPA扩展方面的推进﹔第四是加强民生事务的合作，如食品检疫管理、环境治理、加强跨境大型基建等方面的合作。   　至于特首早前于施政报告中提出的多个跨境基建，汪洋指出，广深港铁路、港珠澳大桥等跨境基建是粤港两地的共同利益所在，大家应该努力去促成这些基建工程。曾荫权则指，港珠澳大桥的大部分可行性研究工作已经完成，只剩下融资问题尚未解决。   及早规划安排跨境基建   　曾荫权指出，粤港合作已进入第2个十年，粤港合作是双赢的事情，相信大家一定能够继续互补、互利、互惠。他建议，粤港合作的重点应有3个方面，一是配合国家整体发展的政策和目标，特别是面对国家在工业方面讲求资源节约等方面的政策调整，粤港两地应作出配合。   　他续说，第二是要加强两地人力流、货流和资金流的建立，努力根据实际情况作出配合，特别是在基础建设等安排上要及早作出规划。   　至于第三个重点，他指出，粤港双方应紧贴社会诉求，响应市民对环保、食物安全、社会福利等与民生有密切关系的问题的诉求。   续通过广东拓内地市场   　他提出，粤港当前的工作重点还包括基础建设、环境保护、预防禽流感、食物安全，以及文化交流等。在经贸方面，香港则可以协助广东对外经济的合作，如支持广东企业到港上市，同时香港也可以继续通过广东开拓内地的市场。 曾荫权倡粤港合作3重点   ★根据国家整体发展的政策和目标，粤港两地应作出调整配合 ★加强两地人力流、货流和资金流的建立，努力根据实际情况作出配合 ★响应市民对环保、食物安全、社会福利等与民生有密切关系的问题的诉求 汪洋提出4重点合作领域 ★推进产业转型升级 ★推进两地服务业合作 ★加强CEPA扩展方面的推进 ★加强民生事务的合作   粤港合作10年 当劳细数成就     【本报记者徐海炜广州4日电】香港刚刚度过了回归10年的大日子，粤港合作也不知不觉地踏入了第2个10年。回顾过去粤港合作的发展，特首曾荫权赞扬，粤港两地在过去10年本前瞻、全局、务实和互利的原则，在经贸、口岸安排基建发展、环境保障、食物安全、公共卫生，以及其它方面的合作都取得优异的成果。   CEPA个人游 广东皆为先   　曾荫权与广东省委书记汪洋会面时，回顾了过去10年粤港合作的点点滴滴。他指出，香港是广东过去10年第一大的经贸合作伙伴，特别是CEPA的实施也是以广东为先，许多利用CEPA开放机遇的服务企业都投资在广东，大部分在CEPA中属零关税的货品都由陆路经广东进入内地，在内地经营的香港个体户和工商户有超过2成是选择在广东登记的，同时有8成从内地到香港的个人游旅客也是来自广东省的。这些数字都显示了香港与广东的密切关系。   　在过境设施和口岸合作方面，曾荫权认为，两地政府已致力改善基础设施和过境项目，并取得很大的成果，如皇岗口岸已实施了24小时过境，以及新开通的落马洲口岸的铁路支线。曾荫权又说，环境保护是粤港合作的重要课题，双方政府定立了2010年的减排目标，现在正寻求进一步的合作。 　至于食物安全问题，两地政府按照2006年的协议，多次进行了通报和响应，其中20多个合作项目充分发挥了合作沟通机制的优势，也让两地市民得到食品安全的信息。   减排增合作 食安有机制   　曾荫权表示，除了两地政府的合作外，在民间合作方面，大珠三角商务委员会和中国国际贸易促进会广州分会的合作也是无间的，推动跨境的人流、物流、贸易等方面的发展。 责任编辑：cnred 文章页数第[1]页  页面功能 【我来说两句】【字体：大 中 小】【打印】 【关闭】 相 关 连 接 网 友 评 论 789445:    传奇世界私服.传奇世界私服.传奇私服.医药招商.传世私服 发 表 评 论 您的大名:（点击这里注册） 这里填写您的评论：） 友情提醒：评论请限制在100字以内，有长篇大论欢迎到论坛发表：） 　 综合新闻|广东新闻|专题新闻 >> 本类热点新闻 ·深圳置业 港人三变化 ·港珠澳大桥 上马有期 ·深港5年内 将增5口岸 ·港六大研发中心寻求合作 ·港珠澳大桥好事多磨终会建 ·港珠澳大桥战略大解构 ·深穗外拓货运港机场陷危机 ·普华永道增聘千人港专业界北 ·深医护人员成染爱滋高危族群 ·粤港合建世界级城镇群 ·张德江冀粤港澳合作「裂变」 ·深港合作获两大突破 ·省市一把手亮相星光熠熠 ·广深港高铁将接轨京杭 ·承接服务外 包港企占先机 ·粤港启动反倾销合作机制 ·梅州强行炸矿两港商质疑 ·穗机场：无惧港深合作 ·中央拟新政策再促深港合作 ·港珠澳大桥 明年难上马 ·中山港人：两地应常沟通 ·粤港千人宴 切磋谋发展 ·许宗衡提深港同城化 ·粤人勒紧裤头 东江水解港困 ·粤30养老机构来港拓服务 ·深港连手发展河套 ·穗港青少年服务中心揭幕 ·食品安全通报 粤港设联络员 ·粤港联席会确定20重点合作 ·梅州已炸逾200矿井

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