" 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-8 ■围观市民令交通严重堵塞。敖敏辉 摄   【本报珠三角新闻中心记者郑海龙、敖敏辉广州7日电】奥运圣火广东首站即受到空前欢迎。广州市民纷纷请假上街，画上面绘、手挥国旗，按照媒体事先报道过的火炬传递路径夹道欢迎。更有部分驾车的市民，舞动着国旗高喊挺京奥口号，跟在火炬传递车队后面，声嘶力竭地跟完传递全程。而一些在沿途以及火炬手聚集点观看传递的市民更抑制不住自己的热情，几次突破警方设立的警戒线，以至于在云台花园站有关方面主动熄灭火炬，并将火种保存在火种灯中，防止出现意外。     今晨6时许，本报记者按照采访手册上标志的地点赶到广州站火炬传递活动起点广州白云国际会议中心。不想还未抵达现场，即远远地看到从四面八方赶来欢迎圣火的穗市民众。本来很显眼的记者采访区域霎时淹没在高举国旗的人海之中，原本只需一分钟的路程，记者居然需要走半个小时左右，待赶到现场已然全身汗透。   杨景辉瞬间跑完200米   　8时30分，随着广东省省委书记汪洋一声开始，代表2008京奥的祥云火炬被火种灯点燃，交给第一位火炬手杨景辉，虽然上场前杨在接受采访时，表示将慢慢地跑过这200米，但不知是紧张还是甚么原因，仅在一转眼间，杨即已转到记者采访区后，与另外一名火炬手进行交接。   　记者随后立即驱车赶到第四集结点—云台花园。短短半小时内，原本还不足2000人的云台花园即挤满了数万名观看圣火传递的市民。甚至连圣火传递通道都被拥堵住，以至于需要警方出动过百警力清理出通道保持畅通。   火炬被迫主动熄灭   　11时05分，第71名火炬手出现在翘首期盼的市民的视线中，立时引得呼声四起。在经过短暂的交接后，72名火炬手持火炬再度出现在广场上的时候，疯狂的市民不惜冲进封锁线，希望能够更接近一下火炬手，以至于负责火炬安全的护跑手赶紧截停火炬手，并提来火种灯，保存好火种后熄灭火炬，待秩序恢复火炬手通过相对混乱的地段才复燃火炬，继续下面的传递路线。   　广州市民蔡先生接受记者采访时表示，广州已经十几年没有这么热闹过了，即使前几年的反日入常的游行以及中美撞机事件、南联盟使馆被炸等事件导致的市民自发游行，都没有今次人多。   消防英雄李盛元 拄拐杖跑完200米   ■李盛元拄着拐杖跑完200米。敖敏辉 摄   　【本报珠三角新闻中心记者胡进广州7日电】火炬手李盛元此生注定要与火打交道。作为广州市消防支队特勤大队副大队长，「见火就灭」是他的职责，但以灭火为己任的李盛元做梦没有想到，有一天他会举起奥运火炬，来传递保护圣火。   　「参加火炬手选拔时，有关人员是同意我坐着轮椅进行火炬传递的，但我是一个军人，就算拄着拐杖我也要跑完那200米。虽然最后十几米有些困难，曾经骨折的右手举着火炬不停颤抖，但我仍然努力坚持下来了，对我来说这是人生中最荣耀的时刻。」李盛元言语里充满了自豪和坚毅。   　在2006年8月17日扑救广州钛白粉厂四氯化钛泄漏事故的那场战斗中，李盛元在现场能见度几乎为零的情况下，背负近60斤的重物，先后4次冲入毒烟阵进行抢险，在第四次进入毒气泄漏中心区域关闭管道阀门时，不幸摔成重伤，经全力抢救，才跨出鬼门关，但却在病床上躺了一年多。   　他说，去年年底时接到通知，称为奥运圣火传递备选火炬手，他第一时间将这个消息告诉主治医生，请求医生帮助自己加快身体康复的进程。   　于是，床上和病房成为李盛元的训练场，他以一名战士的坚毅进行超乎想象的高强度、无休止地自我锻炼。李盛元还不顾折断过的手骨，每天不断练哑铃，并走下病床，拄着拐杖在病房内和走廊外练习走路，走完回来就躺在病床上练收腹，一口气能收几十个，直到圣火传递前一天还在锻炼……终于在5月7日，一步一步，终于走到了200米！那一刻，李盛元撑着拐杖，热泪盈眶。   看圣火人流 堪比春运     圣火传递当天，广州各大传递集结点及沿途聚集了大量的围观市民，人流堪比春运，导致广州交通大阻塞，至截稿时止，广州大道等主要交通要道仍排着长长的车龙。   　在云台花园传递点，观圣火的市民将整个云台花园层层包围。为了给火炬让出一条通道，警方不得不临时增加警力，疏导并阻止向前的群众，广州市公安局副局长何靖和亲自前来云台花园，指挥人群疏导。 　在中山纪念堂圣火传递集结点，东风西路两侧人流过大，一度冲破警用围栏，险些造成踩踏事件。后警方加派人手，才遏制上涌的人流，使得火炬得以顺利传递。   国旗遍羊城 日销5万   ■圣火传递，五星红旗闪耀羊城。敖敏辉 摄   　广州火炬传递，也带火了广州旗帜市场，记者发现，广州全城处在一片红色海洋当中。由于市场国旗数量有限，价格也迅速上升。小型国旗6日的价格是5元两面，而今天已经变成5元一面。   　不少商铺都做起了国旗和奥运旗帜的二手生意，店家在最醒目的位置挂出了五星红旗和奥运会会旗，还有的挂出了印着「中国加油」和「祝福奥运」等口号的服装。其中一家名为「环宇」旗帜店的店员告诉记者，光是6日这天他们就卖出了5万支供大家挥动的小国旗，奥运小会旗也卖出2万支。另外一家旗帜店的店员则说，6日的生意比往年增加了两三成，有一家单位还订做了超大号的国旗，届时将在现场挥舞。   鲁莽追火 草木遭殃   圣火羊城传递，受到市民热力追捧，不少传递点附近的花草却消受不起市民的狂热。   　天河体育中心是火炬在穗传递的最后一站，下午1时许，就聚集了大量市民。不少市民听闻圣火盆将在体育中心场馆内举行，便开始尝试踩上体育中心围栏旁的绿化带，翻越围墙。在前几位市民翻越成功后，绿化带前数百名市民开始「踊跃」翻越行动。大约十分钟后，围栏旁大片绿化带里的矮树经严重践踩倒下，市民又开始转战其它尚可支撑的绿化带。而此时，在附近维持秩序的警察竟无人制止，天河体育中心清理工作人员也无可奈何，连声叹气。 ■本报珠三角新闻中心记者刘扬、实习生陈晓平广州7日电 责任编辑：cnred 文章页数第[1]页  页面功能 【我来说两句】【字体：大 中 小】【打印】 【关闭】 相 关 连 接 ·还没有相关文章 网 友 评 论 ·还没有相关的评论！ 发 表 评 论 您的大名: （点击这里注册） 这里填写您的评论：） 友情提醒：评论请限制在100字以内，有长篇大论欢迎到论坛发表：） 　 综合新闻|广东新闻|专题新闻 >> 本类热点新闻 ·广深再筑高速穗港一小时可达 ·穗顶级豪宅 媲美香港半山 ·广州将建全球最高摩天轮 ·番禺将跻身全国铁路枢纽 ·穗豪宅三尸案 死者身份未明 ·广州富豪收藏战斗机「演」富 ·投资二百亿 穗大建五星酒店 ·穗将建华南最重要金融中心 ·阳春三月粤港澳「珠江环保行 ·海味商赴港办货 穗市惨淡 ·广州大车祸 6死30伤 ·广州火车站整治22载纷乱 ·番禺建广州「第四商圈」 ·新西兰广州设领事馆 ·穗地标电视塔 610米冠全 ·穗地铁3号线时速120公里 ·广州新盘交易七成烂尾 ·港人广州置业被骗千万 ·穗父请家教30万聘3年 ·美华裔市长 选穗豪宅「养生 ·白云机场将辟50条国际航线 ·穗警方称巡警被迫鸣枪 ·穗澳拓会展业 夹击香港 ·29元香港游超平震广州 ·增城冀成广州东部强区 ·穗华港地产老总遭灭门 ·打明星牌 堡狮龙吹韩风 ·广州火车今起直达三亚 ·穗奸商烧腊加致癌金黄粉 ·广州中山二院庆170华诞

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