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

您的位置：首页 > 综合新闻 > 粤港合作 　 粤将每年引外资1170亿 　 wwpprd.com 作者:wwpprd.com 来自:文汇报 点击:0 时间:2007-7-19 ■粤港经济技术贸易合作交流会在港举行，广东省常务副省长汤炳权致辞。本报记者张伟民 摄   　昨日在港举行的「2007粤港经济技术贸易合作交流会」，粤港双方均表示要进一步加强合作。会上，广东省签订了24个项目，引进资金达11亿美元（约85.8亿港元），其中包括华润电力（0836）、腾讯（0700）等投资的项目。广东省常务副省长汤炳权在会上表示，日前闭幕的省第十次党代会明确提出，今后五年全省生产总值要突破4万亿元、人均生产总值超过4万元、全面实现宽裕型小康的发展目标。广东现代化建设进程的加快，将为粤港合作注入新的强大动力。广东将每年吸引超过150亿美元(约1170亿港元)的外资。   本报记者：卓建安、胡进、谢白清、李永青   　汤炳权还表示，在本届交流会上，广东省共推出涉及信息技术、基础设施、农业、化工、轻工、物流、服务外包等领域的160个重点合作项目以及一批贸易货单。香港是广东最重要的投资贸易伙伴，广东每年都把最优良的项目带到香港来，优先推荐给香港。   粤在港签24项目引资86亿   　根据签约资料，华润电力昨日签订投资1.15亿美元在汕头发展风力发电项目，而腾讯亦签订投资1亿美元扩大其深圳科技数码备份中心。另外，建滔集团签订了建滔（连州）特种纺织品项目，涉及的投资额达3200万美元。   上半年外贸将超2800亿美元   　「2007粤港经济技术贸易合作交流会」由广东省政府与香港特区政府联合举办，是广东省连续第十年在港举办有关活动。广东省、香港特区各界人士共1000多人出席了大会昨日的开幕式。中央驻港联络办副主任黎桂康、外交部驻港副特派员杨子刚、广东省常务副省长汤炳权、香港特区政府财政司司长曾俊华等出席开幕式并担任主礼嘉宾。   　汤炳权表示，今年以来，广东经济继续保持良好的发展势头，预计上半年，全省生产总值将突破1.3万亿元，同比增长超过14%；进出口总额将突破2800亿美元，增长超过22%。他指出，广东市场容量大，将为港商提供良好的发展机会。目前，广东总体上已经达到小康水平，居民消费能力强。2006年全省中外资金融机构本外币存款余额达5500多亿美元，占内地的1/7；社会消费品零售总额1100多亿美元，占内地的1/9。庞大的制造业和蒸蒸日上的服务业又进一步带动强大的市场需求。今后每年广东将吸收超过150亿美元的外资，进出口超过5500亿美元的商品。   曾俊华：港可助粤拓外国市场   　香港特区政府财政司司长曾俊华亦在交流会上表示，香港是广东的最大出口市场，香港亦是国际金融中心，在区域合作上可发挥作用，为广东引入外资，而本港的服务业人才，亦可以协助广东发展品牌，开拓外国市场。   粤冀港共拓海外服务外包   ■粤港经济技术贸易合作交流会—粤港服务外包专题交流会在港举行。左起：香港贸发局总裁林天福、广东省外经贸厅厅长梁耀文及广东省外经贸厅副厅长吴军。本报记者张伟民 摄   　【本报讯】(记者 李永青 卓建安)广东省外经贸厅厅长梁耀文昨在港表示，现时广东服务外包发展已具备良好的基础，软件外包居全国前列，未来希望粤港将加强合作，共同开拓海外服务外包业务。   　梁耀文昨出席粤港服务外包专题交流会时表示，不少跨国企业加速进入广东省开拓服务外包，而省内亦形成了深圳、广州天河、珠海南方及佛山南海四大国家级软件园，和一大批已获CMM国际认证的企业，显示广东承接国际服务外包的基础雄厚。目前，广东承接服务外包的企业约3559家，从业人员达27.3万人，投资总额为103.7亿美元，营业额为21.7亿美元。   　 梁耀文表示，广东已采取多项措施来推动服务外包业务，首先是明确总体思路，把服务外包视为长期工作重点，并将欧洲、美国、日本和香港为重点市场。   将力拓软件等信息外包   　同时，广东将着力发展软件外包、研发设计、系统应用管理和维护、数据处理等信息技术外包产业，更多地承接银行后勤服务、财务结算、人力资源管理、跨国公司全球采购中心等业务流程服务外包业务。   　出席同一场合的广东软件科学园总经理兼广东软件出口委员会副理事长的文俊伟表示，目前广东软件外包行业规模小，香港信息科技公司具丰富的国际经验，粤港合作可达到互助互惠的作用。   港珠澳大桥磋商进展快   　【本报讯】（记者　卓建安、胡进、谢白清、李永青）港珠澳大桥讨论多年，至今仍未有较具体的定案。广东省常务副省长汤炳权表示，去年以来粤、港、澳三方推进港珠澳大桥项目的进度明显加快，他希望可尽快落实有关项目。   　汤炳权昨日在港出席「2007粤港经济技术贸易合作交流会」时表示，目前粤、港、澳三方在港珠澳大桥项目的口岸设计、查验模式以及投融资等方面的磋商均取得进展，未来将进一步研究新的数据，以进行下一阶段的协商。他相信，在中央政府的支持下，大桥会尽快落实兴建。   　汤炳权续称，今后粤、港、澳三方将进一步加强基础设施方面的合作，继本月1日开通深港西部通道后，下一步将开通福田口岸，并希望可尽快成事。他预期，将来港珠澳大桥竣工后，对香港发展十分有利。   　香港特区行政长官曾荫权本月初在立法会的答问大会上曾经表示，由于港珠澳大桥的兴建涉及港、珠、澳三地政府，有关环保、融资、大桥使用权等问题，都需要取得共识，涉及的问题非常复杂，希望大桥可以在五年任内落实。   　汤炳权还表示，近年来，粤港口岸的通关更加便捷，去年经罗湖、皇岗、文锦渡、沙头角口岸出入境的客流量达1.52亿人次，同比增长5.2%；车流量达1525.7万架次，同比增长2.9%。 责任编辑：cnred 文章页数第[1]页  页面功能 【我来说两句】【字体：大 中 小】【打印】 【关闭】 相 关 连 接 ·还没有相关文章 网 友 评 论 ·还没有相关的评论！ 发 表 评 论 您的大名: （点击这里注册） 这里填写您的评论：） 友情提醒：评论请限制在100字以内，有长篇大论欢迎到论坛发表：） 　 综合新闻|广东新闻|专题新闻 >> 本类热点新闻 ·深圳置业 港人三变化 ·港珠澳大桥 上马有期 ·深港5年内 将增5口岸 ·港六大研发中心寻求合作 ·港珠澳大桥好事多磨终会建 ·港珠澳大桥战略大解构 ·深穗外拓货运港机场陷危机 ·普华永道增聘千人港专业界北 ·深医护人员成染爱滋高危族群 ·张德江冀粤港澳合作「裂变」 ·粤港合建世界级城镇群 ·深港合作获两大突破 ·粤港启动反倾销合作机制 ·梅州强行炸矿两港商质疑 ·承接服务外 包港企占先机 ·穗机场：无惧港深合作 ·省市一把手亮相星光熠熠 ·中央拟新政策再促深港合作 ·广深港高铁将接轨京杭 ·粤30养老机构来港拓服务 ·中山港人：两地应常沟通 ·港珠澳大桥 明年难上马 ·许宗衡提深港同城化 ·粤港千人宴 切磋谋发展 ·食品安全通报 粤港设联络员 ·深港连手发展河套 ·粤港联席会确定20重点合作 ·穗港青少年服务中心揭幕 ·东莞制造香港设计将创新模式 ·粤港首次联办经贸交流会

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