" 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 来自:文汇报 点击:0 时间:2007-11-25 ■曾荫权与张德江会面时表示，粤港合作在多个领域取得突破，双方未来仍有很多合作空间。政府新闻处   　【本报记者郭晓乐广州24日电】特区行政长官曾荫权今日访问广州，与广东省委书记张德江、省长黄华华等粤省领导人会面，就港粤合作事宜交换意见。曾荫权在会面中指出，粤港合作在多个领域取得了突破，而双方未来仍有很多合作空间，例如兴建港珠澳大桥、广深港高速铁路等计划，故他期望日后每年赴京述职后，均能有机会到广东拜会当地的领导。而张德江则形容，「广东好，香港好；香港好，广东好」，广东会在泛珠三角的合作上，为香港的繁荣稳定作出贡献，做到粤港紧密相连，互利共赢。   　曾荫权伉俪今晨在广州珠岛宾馆红棉厅，与张德江及黄华华等广东省领导人会面。曾荫权在会面中表示，十七大成功举行后，他有意在可能出现的任何人事变动之前，先来广东拜会港人敬佩的张书记。   曾：广东飞速发展令港人钦佩   　他说，香港近年来的发展不错，但广东省的发展更加令人佩服：自张书记于02年出任广东省委书记以来，对广东、香港以致泛珠三角的发展均建树良多，如广东省的人均GDP由02年的1.5万多元增加至去年的2.8万多元，增幅达8成，而全省的GDP年底更会超越台湾。   　曾荫权续说，自03年开始粤港合作联席会议，双方都提升至行政长官、省长作为代表出席会议后，粤港在多个领域的合作都取得了突破，如年中启用的深圳湾口岸与福田口岸，促进了两地在人流与物流。而广东亦十分重视粤港市民关注的环保问题，故深信双方仍有很多合作空间，并代表港人感谢张书记与黄省长一向以来对粤港合作的支持。   张：两地如手足 港好粤也好   　张德江回应说，广东与香港情如手足，「广东好，香港好；香港好，广东好」，他赞扬香港回归10年以来，在中央政府的支持下，经济繁荣，社会稳定，民生改善，前途一片光明，「我每次听到这些均感到十分欣慰」。   　他还强调香港近年在曾荫权的卓越领导下，特区政府「施政努力，顺应形势，颇有成效」，失业率是多年来的新低，经济增长率又是多年来最高，香港在国际上仍然维持金融、航运、服务贸易等方面的中心地位。   泛珠合作 广东力挺香江   　对于曾荫权在最近的施政纲领中，提及要加强广东与香港合作，张德江认为，广东可以在泛珠三角的合作上，为香港的繁荣稳定作出贡献，粤港两地可以做到紧密相连，互利共赢，因为他深信，「香港的繁荣稳定对广东省而言，会有着巨大的推动与示范作用」，他最后祝福香港特别行政区在曾荫权及特区政府领导下，未来更加美好。   　广东省常务副省长汤炳权、广东省委副秘书长甘霖、广东省政府副秘书长唐豪、特区行政长官办公室主任陈德霖、特区政府新闻处处长冯程淑仪等亦参与了是次会面。   　会面后，曾荫权伉俪与张德江及黄华华等共进午餐，曾荫权等随后返港，正式结束北京广州之行。   束 直通车返港   　【本报记者郭晓乐广州24日电】当劳一直以「做好呢份工」作为其工作的座右铭，即使于4天内先后前往北京述职与广州访问，行程紧凑，仍决定不先稍作休息，而是在结束广州访问后实时乘搭九广直通车返港继续工作。   　不过，当劳作为香港的「头号人物」，又临时决定选择与其它乘客一同乘搭直通车返港，当地保安人员与工作人员自然特别紧张他的安全，尽管如此，他们仍以不打扰其它乘客为前提，令当劳可以顺利返港的同时又不扰民。   　翻查数据，当劳乘搭直通车往返穗港并非首次，还记得去年10月，当劳同样乘搭九广直通车，出席广交会开幕礼。其时虽然其身旁有一大班保安员护送其登车，但当劳仍不忘在人群中伸手向车上的乘客挥手打招呼。 责任编辑：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 来访统计：  技术支持：中国红电子商务频道