" 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 时间:2007-9-17 ■袁先生(右一)指太太每日需步行送两个儿子到皇岗口岸过关，再转车至学校，比从福田口岸过关要多花40分钟。   本报珠三角新闻中心记者 李昌鸿   　九铁落马洲支线开通后，家在深圳福田口岸一带的跨境学童可选择搭火车上学，但由于政府未允许校车进入公共运输交汇处，加上福田口岸深圳一侧巴士线路十分稀少，对于就读学校不在铁路沿线的学生来说，仍需辗转通过皇岗口岸再乘校车返校。有家长表示，每日与子女步行至皇岗口岸过关，再转车至学校，比起从离家最近的福田口岸过关坐车，要多花40分钟。有学校计划在该口岸租赁专利巴士接送学生，并指车费较乘火车便宜一半。   　由深港交流中心举办的香港「小一家长座谈会暨学校展」上周末在福田时代广场举行，来自香港北区和元朗的7所小学及幼儿园积极参展，并吸引约200位家长出席。深港交流中心负责人蔡雯儿表示，今年有赖新口岸开通、学券制政策实行及出生率上升等因素，令北区学校收生均十分理想。   乏交通设施害苦学童   　上水培幼幼儿园校长陶小凤介绍，今年该校跨境学童较去年增加一倍，现时跨境学童人数超过170名，约占该校总人数的85%。港澳信义会黄陈淑英纪念学校陈文燕校长亦说，目前学校收录了30多位跨境学童，相信人数还将继续增加。   　尽管跨境学童猛增，但配合他们上学的口岸交通设施仍嫌不足。在上月开通的深圳福田口岸附近，有多个住宅小区及福田保税区、水围村、下沙等区域有众多港籍家庭居住，故每日均有大量跨境学童往返深港两地。但由于落马洲支线区域处属湿地范围，政府指为保护环境须控制车流量，故不开放让校车驶入公共运输交汇处；而在深圳一侧，目前只有地铁通至该口岸，后来因应需要才将两条巴士线路延长至该区域。因此，目前许多家住福田口岸的跨境学童「长途跋涉」的上学方式仍未得到改善。   盼通校车 减轻负担   　家住在福田口岸附近渔家村的袁先生表示，两个儿子均在香港念书，大儿子在黄陈淑英纪念学校读小学二年班，小儿子则在上水培幼幼儿园就读。由于福田口岸巴士线路很少，因此他太太每日护送两个孩子上学，先从家里出发，步行15分钟到皇岗口岸，过关后再由校车接送至学校。   　袁先生抱怨说，新开通的福田口岸就在家门口，如果经这里上学较经皇岗口岸至少可减去40分钟的「兜弯」时间。他盼望政府能早日允许校车开至福田口岸，为跨境学童及家长减轻负担。他的大儿子亦在旁边点头说，「如果有校车直通福田关口，我们上学就方便多了！」   学校拟租赁巴士接送   　陶小凤和陈文燕校长均表示，他们均有向港府有关部门反映过这个问题，但政府目前还不会开放让校车开至福田口岸。蔡雯儿透露，目前多所招收跨境学童的学校均计划租赁巴士接送学童，「因为现在政府只允许专利巴士、小巴及的士驶往交汇处，所以我们与巴士公司商量，将租用他们的车辆」。她指除了交通便利外，租车后学生需付的车费比搭火车还要便宜一半。   深港学童福田联欢交流   ■杨鹤翔认为应大力加强香港学生与内地学生的交流。本报记者李昌鸿 摄   　除了举行教育展外，深港两地学童上周六在福田时代广场联合举行「07年迎中秋贺国庆嘉年华」活动。来自两地的小朋友表演精彩的歌舞，并兴高采烈地参与抽奖及游戏活动。有香港学校的校长表示，有不少跨境学童参加了这次活动，由于平日他们在上下学途上花大量时间，故希望多举办活动，让他们与内地、香港孩子多点交流。   　当日孩童们在露天舞台上的表演吸引了数百名观众参加，其中上水培幼幼儿园演唱的《童心赞美》、港澳信义会黄陈淑英纪念学校的「Happy Happy Carnival」及深圳皇御幼儿园学生表演的舞蹈《森林梦》等均获得现场观众的热烈鼓掌及喝彩。   跨境童忙返学少交流   　深港交流中心负责人蔡雯儿表示，希望让两地学童能通过活动加深相互之间的学习和交流，促进了解与友谊。港澳信义会黄陈淑英纪念学校校长陈文燕坦言，跨境学童每天忙于过境上学，相比起内地或香港本地学生，用于交流和学习的时间较少，故校方会尽力多举办一些相关交流活动，以锻炼跨境学童的活动能力，并促进深港两地文化和教育交流。 教育交流支持力度不足   　上水培幼幼儿园学校董事杨鹤翔指出，回归10年来，香港与内地学生的互访交流逐步加强，但他认为政府对教育交流的支持力度仍显不足，因此会主动连络各校合作，从民间促进交流频繁举行。他希望通过此类活动，可以让香港学生通过对内地的了解及认识内地同龄朋友，多学习普通话，并能接受到更多国民教育，及加强对祖国的认知。 责任编辑：cnred 文章页数第[1]页  页面功能 【我来说两句】【字体：大 中 小】【打印】 【关闭】 相 关 连 接 ·还没有相关文章 网 友 评 论 ·还没有相关的评论！ 发 表 评 论 您的大名: （点击这里注册） 这里填写您的评论：） 友情提醒：评论请限制在100字以内，有长篇大论欢迎到论坛发表：） 　 综合新闻|广东新闻|专题新闻 >> 本类热点新闻 ·嘉玛学校：进入世界6000 ·幼园小学一条龙深校抢港生 ·网络小说成名出局一夕间 ·王道坤 创改版公司年赚百万 ·吴家玮：建科大悟真谛 传深 ·穗培训首批印度尼西亚幼师毕 ·中山大学招300港澳台生 ·北师大浸大 珠海合办大学奠 ·蔡建中捐千万华南理大建科技 ·华南理工大学广州汽车学院挂 ·未来之星访广州大学城 ·高校性教育 举步维艰 ·番禺执信中学 自选课程显个 ·芙蓉现象窜红全凭敢出位 ·千童赴深学艺 今个暑假新风 ·朱小丹力保关山月故居 ·近百港生往珠海升学 ·《汤秉达传》潮州发行场面盛 ·粤发起少儿共绘绿色家园活动 ·未来之星考察船厂感惊讶 ·中美合作育UG人才 ·粤高校：非婚生育 一律开除 ·李嘉诚访汕大流感实验室 ·李嘉诚再捐汕大2亿 ·深校贴身招 港生称老师「妈 ·科大南沙教研院 争取「独立 ·暨大华大联招接受报名 ·中山大学校友贺校庆 ·逾千港生 抵穗升读暨大 ·粤首名港人执业律师诞生

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