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

您的位置：首页 > 综合新闻 > 粤港合作 　 粤争CEPA服务业先行先试 　 wwpprd.com 作者:wwpprd.com 来自:文汇报 点击:0 时间:2008-7-4 ■粤港经贸合作高层论坛昨日下午在香港君悦酒店举行。本报记者谢白清 摄   　【本报珠三角新闻中心记者谢白清、胡进香港3日电】广东省副省长万庆良3日下午在香港举行的「粤港经贸合作高层论坛」上表示，粤港深化合作应在六大领域谋求突破(见表)。广东将积极争取中央政府支持，推动扩大服务业开放范围、降低准入门坎，重点在教育、卫生、环保、分销、中介等领域深化合作。万庆良透露，对不需要国家有关部门审批的行业，广东有关部门正在抓紧推进，同时，他也希望香港特区政府及商协会联合行动，共同推进CEPA服务业在广东先行先试。   　香港中联办副主任郭莉、香港商务及经济发展局局长马时亨、广东省21个地市政府代表、上百港企代表等参加了「粤港经贸合作高层论坛」。论坛上，万庆良和马时亨就粤港在改革开放30年的经贸合作成就、未来深化合作的方向展开了演讲。然后，粤港高层代表重点探讨了「深化CEPA、开创粤港服务业合作新领域」、「粤港联合推动加工贸易转型升级」两大主题，但主办方不允许媒体参加这两个主题的探讨。   促加工贸易港企就地转型   　万庆良表示，粤港深化合作应谋求六大突破，共同推进CEPA服务业在广东先行先试是其中之一。万庆良强调，应以全球视野和战略思维谋划粤港新一轮全方位紧密合作，创新合作的体制机制和思路对策，充分发挥市场主体作用，努力将粤港澳经济区建设成为世界级先进制造业基地和现代服务业中心，亚太地区重要的现代化生态城市圈，促进商品、人员、资金及服务无障碍快速流动，提升在全球配置资源的能力，全面提高国际竞争力。   吸引港金融业来粤设总部   　广东省已经出台推动加工贸易企业转型升级的一系列政策措施，鼓励税收贡献大、吸收就业多、低污染、资本密集度高的港资企业加快技术引进消化再创新，提高自主研发与创新能力，创建自主品牌，就地转型升级。积极引导和帮助加工贸易企业扩大内销，加快推进来料加工厂实现不停产转型。同时，加快建设产业转移园，努力降低物流成本，鼓励珠三角低附加值、劳动密集型企业向粤北山区和东西两翼转移，推动产业聚集发展。   　万庆良表示，广东将积极推动建立粤港更紧密金融协调与合作机制，积极吸引香港金融机构来粤设立全国性和区域性总部，参与广东地方金融机构改革重组，合作设立租赁、住房、汽车金融以及货币经纪等专业金融企业。加强金融市场合作，重点推进货币、资本、保险、衍生品和期货市场合作。建立金融人才交流培训制度，推动两地从业资格互认，推动人才互聘和培训，共同培育现代金融人才队伍。   　广东将积极构建粤港合作新机制，努力建设两地政府部门、工商企业界、中介组织及全社会共同参与的联合工作机制，学习借鉴香港先进的社会管理模式，全面提升开放环境的建设水平。同时，全面推进体制创新，完善政策法规，强化政府的国际化服务功能，努力消除阻碍生产要素自由流动和优化配置的体制因素，构建更加成熟的开放型经济体系。   口岸通关 研「两地一检」   ■广东拟出台一系列政策措施，鼓励港资企业就地转型升级。 数据图片   　【本报珠三角新闻中心记者谢白清、胡进香港3日电】口岸通关是否方便快捷决定了开放的程度、开放的效率、开放的质量、开放的水平。广东省副省长万庆良在论坛上强调，广东将坚持以世界眼光、全球视野谋划粤港口岸合作，积极推进跨界大型基础设施建设，创新口岸查验管理方式，不断完善「一地两检」查验模式，全面推进「一站式」、「自助式」查验监管模式，深入探讨「两地一检」、「单边验放」的模式，努力为粤港合作营造更加便捷的通关环境。   投资外移 粤港恐边缘化     【本报珠三角新闻中心记者谢白清、胡进香港3日电】广东省副省长万庆良在「粤港经贸合作高层论坛」上强调，粤港深化合作除了有新机遇外，亦面临前所未有的挑战。他说，美日欧乃至世界经济发展的不确定因素增多，国际收支不平衡加剧，特别是印度、巴西、俄罗斯等国以及东盟近年经济快速增长，发达国家和地区开展国际投资贸易的热点有逐渐转移的趋势，粤港两地的边缘化风险越来越大。 　   此外，万庆良表示，国家对人民币汇率、出口退税、内外资企业所得税和加工贸易等政策进行重大调整，政策的迭加效应逐步显现，粤港合作发展的约束条件越来越多；另外，国际石油、粮食等资源性产品价格上涨迅猛，人民币持续升值，粤港两地综合发展成本全面上升，人口、资源、环境承载力下降，粤港两地的低成本优势越来越弱。   粤港深化合作谋六大突破     ■共建粤港澳紧密合作区。 　■共同推进CEPA服务业在广东先行先试。 　■共同推进港资加工贸易企业就地转型升级。 　■共同推进粤港金融合作与创新。 　■共同推进体制机制创新。 　■共同推进粤港口岸通关便捷化。 责任编辑：cnred 文章页数第[1]页  页面功能 【我来说两句】【字体：大 中 小】【打印】 【关闭】 相 关 连 接 ·还没有相关文章 网 友 评 论 ·还没有相关的评论！ 发 表 评 论 您的大名: （点击这里注册） 这里填写您的评论：） 友情提醒：评论请限制在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 来访统计：  技术支持：中国红电子商务频道