" 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 来自:文汇报 点击:76 时间:2006-12-30 ■梅州市领导和香港梅州联会嘉宾出席「传灯爱心晚会」活动，气氛热闹。 本报记者徐红 摄   　【本报珠三角新闻中心记者徐红梅州电】当香港百万市民外出旅游、游玩、购物，享受快乐圣诞假期的时候，香港梅州联会200多位善长放弃了豪华圣诞，组成「百人爱心团」，驱车数百公里回家乡进行「情系梅州爱心行」助学兴教活动，度过了一个充满爱心而又有意义的圣诞。   　这次香港近年来规模较大的资助内地贫困大学生活动由香港梅州联会主办。「百人爱心团」由全国政协港澳台侨委员会副主任张廷翰担任荣誉顾问，由全国政协委员、香港梅州联会会长、香港星光集团主席林光如担任团长，12月22日至26日他们回到家乡，亲身探访受助学生，与他们面对面交流，并捐献2,000多万元人民币兴建12项教育专项，以真心关爱贫困学生，用实际行动支持家乡的教育事业。   助贫困优秀生完成学业   　林光如会长对记者说，今年5月他们得知嘉应学院和市职业技术学校仍有1,000多名学生因贫困亟待援助，随即向该会同仁及海内外乡贤发出助学倡议，很快得到香港、美国、加拿大、新加坡、印度尼西亚和上海等地众多乡贤，甚至非客籍人士的热烈响应和支持，在短时间内筹得200多万元善款。这笔款项全部用于资助260名嘉应学院和1,000名市职业技术学校的贫困优秀学生完成学业。他强调，不论是捐助数十万港元的香港丝宝集团主席梁亮胜，还是只捐出5港元的香港星光集团清洁工，他们与受助学生非亲非故，捐款有多有少，但是他们献出的爱心却同样真诚。这次组成「百人爱心团」，主要目的就是探访受助学生，与他们面对面交流。   寒风中传灯心里感温暖   　12月24日下午，「百人爱心团」在嘉应学院与500多位受资助的梅州贫困学生进行了「真情恳谈会」，他们告诉学生自己的生活经历，共同分享在困难中成长的经验。林光如告诉记者，资助人和受助学生对谈的一个多小时，令人刻骨铭心，「从结对同学的谈话中，我们深深感动，他们有志气、有抱负、热爱家人、热爱知识，心中充满了阳光，能为这样的年轻人尽我们的绵薄之力，我们感到非常欣慰。」   　当天晚上，香港梅州联会资助贫困学子的「万人传灯爱心晚会」在广东省梅州嘉应学院广场上举行。虽是冬风寒冽，但是在场的每个人心里都感到非常温暖，爱心灯从善长手中传到贫困学生的手中，那一盏盏灯点燃着他们的前途。传一盏灯，传一份真爱，点燃亲人般的关爱，照亮美好未来。   珍惜八方关爱力求上进   　香港乡亲的爱心深深打动了受助学子，一幕幕温馨的场面令人感动。记者看到林光如接过受资助同学献上的鲜花时热泪盈眶；而晚会即将结束时，有位学子专门跑到他的资助人、香港梅州联会会董邓婉玲前面，把自己从寺庙里求的香包献给她，祝福她一生平安。   　全国政协常委、香港梅州联会永远名誉顾问余国春说：「我们深深感受到同学们对知识的渴望及强烈的上进心，这更使我们体会到此行意义。」他希望同学们珍惜和善用这些来自四面八方的关爱和资源，努力求知识求上进，用知识改变自己的命运，并积极回报社会和家乡。这次「情系梅州爱心行」活动期间，梅州籍香港知名实业家余国春、林光如、梁亮胜、李有权、罗焕昌等，还先后参加了他们为梅州中、小学捐建的教育专项奠基或剪彩仪式。 责任编辑：cnred 文章页数第[1]页  页面功能 【我来说两句】【字体：大 中 小】【打印】 【关闭】 相 关 连 接 网 友 评 论 eryhyuhy:    weryhjurku,l 141414:    一场颠覆无产阶级主人的灾难性事件，在祖国大陆片地开花结果。他将迅速威胁政府政权马上直接崩溃瓦解。不信到时看吧。。。。。。.http://cache.tianya.cn/publicforum/Content/house/1/60624.shtml 我是79年 　　　　打越南的英雄,现在好后悔! 现在我要杀出一条血路来.... 发 表 评 论 您的大名:（点击这里注册） 这里填写您的评论：） 友情提醒：评论请限制在100字以内，有长篇大论欢迎到论坛发表：） 　 综合新闻|广东新闻|专题新闻 >> 本类热点新闻 ·梅州鸿都花园翔龙居 ·涉兴宁矿难数官员被拘 ·金利来兴建梅州时尚街 ·梅州「山洽会」 助粤产业转 ·十一．五商机之梅州篇．梅州 ·泰总理他信 今梅州寻根 ·粤东拟30亿建旅游产业园 ·兴宁矿难家属每户获赔20万 ·梅州联会喜迎家乡领导 ·工业界50人赴梅州考察 ·梅州联会110周年千人欢宴 ·「山洽会」首签近700亿投 ·嘉应商会梅州「母亲楼」落成 ·中总妇委会30人访梅州 ·梅县辟粤东黄金旅游线 ·第四届「山洽会」今梅州开幕 ·梅州副市长郑少伟访梅联 ·梅州联会捐二千万回乡兴学 ·梅州水淹 3万人困楼上 ·梅州政协拜访客属乡亲 ·洪水逢大潮 粤临黑色六月 ·梅州书记会见本报副社长 ·百亿民心工程 提升幸福指数 ·梅州乡贤倡建客属姐妹社团

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