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

您的位置：首页 > 综合新闻 > 粤港合作 　 深港创新圈 定14合作计划 　 wwpprd.com 作者:wwpprd.com 来自:文汇报 点击:0 时间:2008-5-21 ■深圳高科技拥有较完备产业链，成为深港创新圈的重要基石。   　【本报珠三角新闻中心记者熊君慧深圳20日电】深港创新圈合作协议签署一年后又有新进展。深港创新及科技合作督导会议第二次会议确定，深圳今年资助深港创新圈建设及科研活动资金增加至3,500万元，70多名香港专家将纳入深圳专家库，并探讨在深圳市福田区等区级政府辖区内共建深港创新圈产业基地。据了解，今次会议最终确定了14项合作计划。   　 「深港创新圈」合作协议明日(21日)即签署一周年纪念，本报分别访问深港创新圈督导会议深圳方和香港方主席刘应力、马时亨。双方均表示，本月初杜邦公司的太阳能光伏电科技发展项目落户深港，是深港创新圈结出的 「大果实」，亦是创新圈在世界范围具有竞争力的体现。 展望未来，双方将会在多方面进行更深入及全面的科技交流与合作，包括推动科研发展和成果转化、加强在RFID方面、民生科技领域的合作。   　深港创新圈督导会议深圳方主席刘应力透露，除杜邦项目之外，深港创新圈仍然在争取全球、跨国企业重大项目。在进一步深入合作方面，深圳今年资助深港创新圈建设及科研活动资金增至3,500万元，比去年增加500万。香港70多名生物医药、IT等领域的专家将纳入深圳专家库，共同参与深港创新圈资助项目评审，并可探讨与深圳科技专家一起研发项目。   建6大技术支持中心   　 此外，深圳高新区将预留1万平方米、香港科学园将预留1,000平方米土地，作为深港创新圈互动基地。香港科技园已协助14间香港机构，在高新区申请2,050平方米的办公用房。这14间机构包括科技园的11间公司成员及3间香港科技机构，进驻时间为今年6至8月。   　深港创新圈督导会议香港方主席、香港商务及经济发展局局长马时亨说，双方还将加强民生科技领域的合作，具体包括：香港大学与深圳市卫生局合作开展人源性H5N1禽流感中和抗体的筛选及制备研究；清华大学深圳研究生院与香港浸会大学合作共建深港化学分析测试平台。双方还将在第十届高交会继续设立深港创新圈展区，并在香港举办第四届深港创新圈高层论坛。公务员交流方面，特区政府已与广东省政府设立定期的公务员交流实习计划。深港会继续透过此途径，推动两地在有关方面的交流。   　备受关注的「深港生产力基地」正陆续建立起6大技术支持中心，为深港及内地企业提供环保技术、电子及汽车技术、软件及动漫产业、知识产权和品牌建设、管理咨询等方面的优质服务。   制度有异 须中央政策配合     【本报珠三角新闻中心记者熊君慧深圳20日电】对于深港创新圈未来的发展前景，有科技界人士提出，深港创新圈虽得到两地政府大力支持，但有很多困难需要得到国家层面「破题」，如外汇管制、港人在深工作个人所得如何缴纳、港高校在深圳独立办学、科研设备通关等。刘应力表示，深港正在探讨香港高校在深圳进行独立办学的尝试，但有关政策仍然需要得到中央相关部委的支持。   　深圳科技园有关人士说，深港科技界的联系已经非常紧密，如香港有些大学已经将深圳分校区视为香港本部校区，「如老师到深圳上课已经不算出差」。有关人士也指出，除外汇管制问题，香港的税制和内地税制不同，需要考虑如何避免深港科技人士双重缴税，而人员、设备通关仍没有常设的渠道，希望中央能够给予便利政策。   两地合研RFID 惠及通关食品物流     【本报珠三角新闻中心记者熊君慧深圳20日电】RFID技术是深港科技合作的一个重要领域，两地政府在去年的联合资助计划下已共同拨款资助3个有关的项目。 两地大学开展多方面交流   　刘应力介绍，RFID(自动辨识技术)能令数据收集及追踪对象更为便捷，受到港方关注，可为物流业带来重大的变革。两地的大学、科研机构及企业已开展多方面的交流与合作。   　他表示，深港双方将继续在联合资助计划下提供支持，鼓励两地的科研机构、大学和企业就RFID技术在不同方面(如通关、食品供应和货运等)的应用展开科技合作。   　专家称，深圳拥有内地RFID最大生产厂家，研发实力较强，港方对此项目表示浓厚兴趣。该项目在输港食品、蔬菜等货品通关方面应用广泛。   　专家续说，有港方人士甚至对深港联合研发的RFID技术提出设想，期望以后该技术不仅能够对输港食品的产地、运输路途、通关等进行监控，甚至能够跟踪到食品最终消费的情况。 责任编辑：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 来访统计：  技术支持：中国红电子商务频道