" 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 时间:2008-5-27 ■深圳爱国者嵌入式系统科技公司展示的可用于奥运的移动数字电视。本报记者李昌鸿 摄     由于奥运会北京开幕仅70多天，23-26日在深圳举行的08国际消费电子展上，各大厂商纷纷抓住这一巨大商机，推出针对奥运期间商务人士在旅行途中观看奥运节目，如全球最新的通过特种方式处理的眼镜电视和手持移动数字电视，而众多彩电厂商则纷纷推出解决奥运期间更好表现运动画面专有的新产品。 　■本报珠三角新闻中心记者：李昌鸿、古宁   　在此次消费电子展上，十分吸引人的两款产品非眼镜电视和手持移动电视莫属，它们均是移动电视，解决用户随时随地观看奥运的问题。由港资公司亿思达显示科技公司投资研发的「iCAN爱看」眼镜电视吸引了无数参观者的眼球，据该公司董事长刘美鸿介绍，该款产品将于6月在奥运会召开地北京首发，目的是着眼于北京奥运，其采用独特技术，将光学、电路、低功耗和显示等技术融于特制的眼镜上，人们在戴上该眼镜后，便可以直接在两米之外，观看大屏幕彩色电视一样，只要室内和室外有信号，用户便可看香港和内地的众多频道，而且它最大的好处是移动的，轻便，用户可以在商务旅行、车上、休息时随时随地观看奥运节目。   　刘美鸿表示，对于超级体育迷来说，他们可以在床上休息，等节目时间到时可以直接在床上看电视。他表示，该款产品在6月初至奥运会期间，有望在国内销售5万台，售价约2000元，将带来1亿元的产值，此外，他们还生产视频眼镜，该产品去年向欧美市场出口3.5万台。   中国首创移动数字电视   　在奥运会即将来临前，由深圳爱国者嵌入式系统科技公司推出的移动数字电视也赚足了参观者眼球，该公司总裁兼深大教授朱明程表示，公司经过多年的努力，成功地推出完全自主知识产权的中国首创CMMB/MP5多功能手持数字电视终端，它可以为观众随时随地观看奥运提供了方便。   　他表示，广电部为了迎接奥运，解决一些用户随时随地观看奥运节目的问题，其公司研发的移动数字电视产品方案，是国内第一家已经成功小批量生产的手持CMMB产品方案，其在中国开通的首批CMMB信号覆盖北京、天津、青岛等6个奥运城市和广州及深圳，它还为第二批开通的37个省会城市提供数字电视广播手持测试设备。   　朱明程表示，他已将移动数字电视产品方案授权给创维公司和航天信息公司进行量产，而国内许多城市的移动视讯公司也紧紧抓住奥运商机，正与他们及生产商签订销售协议，广州甚至出现每天新增一个移动数字电视转播的基站。他预计从目前至奥运会期间将会有几十万台的销量。但现在他担忧的不是订单问题，而是生产跟不上的问题。此外，朱明程表示，该公司还将在北京奥运开幕前推出具有视频功能的笔，与视频终端设备连在一起，专门用于来华观看奥运会的观众和旅游者。   彩电商推奥运概念电视   　在此次消费电子展上，国内外众多彩电厂商更是不遗余力的推销其针对奥运的彩电，并在技术和外观设计上加以改进和创新，而深圳康佳更是推出了20多款奥运彩电。据康佳参展负责人凡先生介绍，针对奥运会即将在北京举行，他们在5月1日便推出了08珍藏版，将新潮和用料均融入其中，用户在观看奥运时，其具有显示体育比赛运动画面的防「拖尾」技术，能够解决运动员在踢球和奔跑的过程当中显示问题，让动态画面显示更清晰和缓解用户眼镜疲劳等。他表示，康佳08系列、36系列和60系列共23款产品均主打奥运牌。此外，创维、松下等彩电巨头等也大肆推销其奥运概念的大屏幕液晶彩电新产品。   港深科技合作典范   ■亿思达刘美鸿表示，眼镜电视将在京举行发布会。本报记者李昌鸿 摄   　深圳爱国者嵌入式系统科技公司总裁兼深大教授朱明程表示，他们针对奥运在中国召开这一有利时间节点，推出的CMMB/MP5多功能手持数字电视终端，很明显是深港两地科技合作的典范，公司的部分资金和核心开发人员均来自香港，为公司成功开发移动数字电视起了关键作用。   　朱明程介绍，他们公司共有60多人，是个国际化的团队，而其中的中高层核心员工均是香港人，如其CTO邓国源就是香港人，而其它几位软件开发经理和主管也是香港人，更重要的是，香港本地一家IT类上市公司是他们的投资方和股东。他认为，香港方面人才和投资者给公司带来规范和透明的管理，对工作十分敬业和具有与国际信息接轨的优势。目前，还有不少的香港风险投资公司正在与他接触。   奥运带来无限商机   　邓国源告诉记者，作为公司首要技术负责人，和其它几位技术主管一样，因奥运会08年在北京举行，这将给移动电视终端带来商机，他们几位来自香港的重要技术人员，其研发的爱国者CMMB移动数字电视功能和数据广播的接收和播放，在国内已是首屈一指。他认为，港人应利用香港的技术专长，与内地合作，拓展内地庞大的市场。   出差随时看奥运     在08深圳国际消费类电子产品展览会上，几款在户外、甚至旅行途中都能随时观看电视节目的电子产品，引起了不少参观者的注意，尤其这些产品又都不约而同地打起了「奥运概念」，更让那些「出差族」爱不释手：「在旅行途中也可随兴看奥运会比赛了！」   　家住罗湖的王先生因为工作关系经常出差，根据公司的「日程安排」，正好在8月份期间出差在外，自然会错过目睹奥运会节目标机会。不过看到深圳爱国者推出的一款手持新一代移动电视后，王先生说，这款移动电视，不仅在车里，还是在户外，只要在有电视信号的地方都能收到电视节目。   不再争睇电视   　而李先生则不同，家里有好几口人都是电视迷，自己喜欢体育，妻子喜欢看韩剧，小孩则喜欢看卡通，他在展会上发现一款「iCAN爱看」让其兴奋，这款电子产品外形像一副眼镜，可以戴在眼睛上看，这样再不用跟家人争抢电视频道了。   责任编辑：cnred 文章页数第[1]页  页面功能 【我来说两句】【字体：大 中 小】【打印】 【关闭】 相 关 连 接 ·还没有相关文章 网 友 评 论 ·还没有相关的评论！ 发 表 评 论 您的大名: （点击这里注册） 这里填写您的评论：） 友情提醒：评论请限制在100字以内，有长篇大论欢迎到论坛发表：） 　 综合新闻|广东新闻|专题新闻 >> 本类热点新闻 ·港美容业趁乱抢先机 ·「好工」人力足 玩具厂闹人 ·南方电网总经理升任电监会副 ·东门人财两旺 一铺难求 ·揭阳玉器节树「玉都」形象 ·神州创富．西餐厅北上 须严 ·中化伙格力珠海建石化物流 ·神州创富．港裁缝店深圳穿针 ·黄埔海关延企业补税期限 ·银河星际酒店澳门将开幕 ·雅居乐最快年底上市聆讯 ·港珠澳桥沿线地产热 ·联邦快递抢滩华南 珠三角新 ·比亚迪F3车销大马逾三千辆 ·东莞厂家面临开三停四 ·河北白沟办箱包服装节 ·凉茶申遗争议有望平息 ·120港人看楼团赴中山 ·楼市百日宏调之二广州篇．广 ·广州催谷国际名牌中心 ·华尔街大亨横琴寻商机 ·白云机场拟投177亿扩建 ·穗星河湾在港推售793伙 ·横琴：生逢其时未逢其盛 ·创维与三手机厂家结盟 ·炎夏临 电荒难解 粤港企 ·传港人买深圳房 缴税翻倍 ·深圳住博会迁新馆举行 ·怀旧玩具 亮相玩具城 ·格兰仕中山空调小家电 力争

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