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

您的位置：首页 > 综合新闻 > 科技动态 　 港4大学赴深 参展高交会 　 wwpprd.com 作者:wwpprd.com 来自:文汇报 点击:0 时间:2007-10-17 ■计算机中这位「靓女」叫晶晶，是中文大学开发的「中文文本至音/视频语言合成系统」。本报深圳传真   ■ 本报珠三角新闻中心记者胡明、岳仿嶙   　作为内地最大的制造业基地，珠三角近年来一直在谋求产业升级，同时亦为邻近的香港院校提供了绝好的科研成果孵化机会。将于今日在深圳落幕的第九届中国国际高新技术成果交易会（简称「高交会」），便有香港的中大、理大、城大及科大4所院校带来多项最新科研项目参展，寻求买家及与内地交流、合作的机会。有院校负责人表示，高交会是中国高新科技领域对外开放的重要窗口，港校参展将有助研究项目的商品化、产业化和国际化。   　中大创新科技中心这次带来15项科研项目在高交会上展示。该校的创新科技中心的工作人员介绍说，今年是第4年参展，去年展示的项目深受内地科研企业的欢迎，因此他们今年带来更多发展成熟的科研成果，其中有一款远程医疗适用的「穿戴式医疗仪器」就备受关注。   数码「晶晶」识看会读   　「穿戴式医疗仪器」可以在不影响病人正常生活的情况下，长期监测和辨识其健康状态的重要生理参数，例如测量心率、血氧饱和度、呼吸率及记录心电等，能有效预防疾病，尤其有利于慢性疾病的监控、诊疗和康复。参与该系统研发的黄同学说，仪器携带方便，可将系统安装在手表上等，还可以通过手机远程传输给医生，刚一开展便有多间内地公司前来咨询。   　该中心带来的另一款计算机系统—「中文文本至音/视频语言合成系统」亦相当有趣，一位名叫「晶晶」的虚拟美女，可将计算机中的文本文文件转化为声音，朗读出来。据展览工作人员余茵美介绍，市场上将语音转化为计算机文本的技术已经非常成熟，但「文本转化语音」的技术领域还存在空白。中大几年前开始研发，并在去年获得成功，这次把它带来高交会，就是希望了解这项技术产业化的可行性。   　她指过去5日中，对这项技术感兴趣的厂商及科研机构很多。校方亦从交流中了解到，系统可用于开发儿童读物，家长只要下载童话故事，便可用「晶晶」为孩子讲故事。   城大技术利环保新要求   　理大参展的科研成果包括信号处理技术用于生物信息学、自动化人脸辨认系统软件与软件库等多项技术；城大则针对国家对内地企业提出的环保新要求，展示了复合光伏集热等新型材料及节能技术。   　除了寻求买家，香港院校也希望藉参展高交会寻求与内地进一步合作的机会。香港与深圳市政府今年5月便签订《「深港创新圈」合作协议》，希望全面推进和加强深港科技合作，教育资源共享成为其中一项重要内容。   两地合作发展测灾系统   　据悉，中大太空与地球信息科学研究所便与国家农业部及规划设计研究院合作，发展监测水稻生长的遥感卫星雷达系统，并与中国科学院南海海洋研究所、广东省海洋与渔业局等合作研制珠三角地区渔业灾害监测和预警信息系统。据介绍，这两个系统还可在香港及周边地区全天候监察环境与自然灾害。中大工程学院外务副院长黄锦辉表示，推进两地在科研、人才培养等方面的合作，是该校发展的重点方向之一，「选择高交会就是看中其集交易、展示、宣传于一身的平台效应，希望进一步让产品深入内地各主要市场」。   两地学生合研「横行」智能车   　内地尖子生来港升学成为近年热潮，除了教学与国际接轨外，能有更多机会参与科研开发，相信亦是吸引他们南下的原因。来自安徽省的莫同学，现在是中大二年级学生，他与中大教授及20位同学一起，合力研制「混和动力、全方位及智能化汽车」的项目。有关研发队伍中，港生和内地生各占一半。   一键令汽车蟹状行驶   　谈及这款混和动力智能化汽车，莫同学介绍说，这款车是以汽油和电池混和驱动，最大的特点就是4个车轮都是完全独立的，「只要你在方向盘上按下4WS(4 wheels steering)键，汽车就可以像螃蟹一样横向行驶，甚至可以以车中心为轴心在原地打转。而当按下2WS(2 wheels steering))键时，又可以像普通汽车一样行驶」。   　总结来港念书的1年多时间，莫同学笑说，「外面的世界很精彩」，因为他来港才那么短时间，便有机会参加科研项目，感到十分幸运。他兴致勃勃地介绍说，「中大为我们提供了很多资源。如果你以学术研究为目标，中大有一流的师资和实验室，每年还会有国际知名学者甚至诺贝尔奖获得者来讲学，所有人都可以近距离和这些大师探讨问题。而且中大还有各种工作坊、社团、领袖培训计划、科研计划、实习计划等，让我们可以在大学4年中充分锻炼自己」。     与港生相处开心融洽   　莫同学指自己在研制这项智能汽车的项目时，与香港学生相处得十分开心融洽，「有时同学们用广东话跟我讲话，当我听不懂时，他们就会用普通话耐心地重复好几遍。即使他们的普通话听上去有些『蹩脚』，但我还是时常被他们的真诚所感动」。   港校趁机宣传招生   ■香港理工大学在展区设有问卷调查，希望搜集内地学生的报读兴趣等信息，为以后招生作参考。   　作为「中国科技第一展」的高交会，是高新技术成果展览、交易的平台。不过精明的香港院校除了展示本校的最新科研成果外，还在自己的展区内发布各种内地招生信息，把握任何一个宣传机会，希望能在内地家长及学生心目留下良好的形象。   中大力创「深港创新圈」   　中大工作人员指，从98年开始招收内地本科生至今，已有近千名内地学生在该校就读。她说，除了寻找更多与内地合作的机会，致力实现「深港创新圈」外，也希望利用高交会这个平台，向内地推介中大的形象，吸引更多内地学生报读。   　理大除了宣传本校的内地招生情况外，还设立了问卷调查，内容除个人基本信息外，还包括如「曾读大学名称」、「兴趣之课程」、「信息来源」等13项内容。有工作人员表示，校方计划通过问卷调查，搜集总结内地学生的关注焦点等信息，为以后在内地招生提供参考数据。 责任编辑：cnred 文章页数第[1]页  页面功能 【我来说两句】【字体：大 中 小】【打印】 【关闭】 相 关 连 接 ·还没有相关文章 网 友 评 论 ·还没有相关的评论！ 发 表 评 论 您的大名: （点击这里注册） 这里填写您的评论：） 友情提醒：评论请限制在100字以内，有长篇大论欢迎到论坛发表：） 　 综合新闻|广东新闻|专题新闻 >> 本类热点新闻 ·博士后工作站揭幕 深港共育 ·汕大发现规律 SARS可自 ·李政道杨振宁深圳「论道」 ·中日科教机构落户深大 ·汕大医学院附属华南医院揭牌 ·深港科研机构拟实现「三通」 ·南方医大发现 ARS致病物 ·广州国际设计周大力揽才 ·港4大学赴深 参展高交会

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