" 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-7-3 ■港区全国人大代表罗范椒芬、杨耀忠、黄玉山、高宝龄等参观学生上课。本报记者李志梁 摄   　【本报讯】优势互补、各展所长的「深港融合」是近年热话，教育范畴也不甘落后。位于深圳的罗湖区港人子弟学校，近日正与香港教育局商讨，参与香港的升中派位机制，预料最快在2010年落实，届时将有近百名毕业生可直接衔接升读香港的中学。由于该校采用了香港「两文三语」的教学模式，课程上亦开设了与港小学相同的常识及英文科目，校方相信可助毕业生满足将来升读港校的需要。港区全国人大代表、前教统局常任秘书长罗范椒芬说，有关新安排可望解决港人子弟返港升学的部分难题。     随着深港各方面的交流日渐频繁，于深圳居住而在港上学、每天穿梭于两地间的跨境学童越来越多。深圳教育局数据显示，单是小学或以上的跨境学童便达3,500名，同时，有5,000名港人子弟在深接受小学或以上的教育。不过，由于两地间教育制度大不同，在内地读书却想将来返港的港人子弟面临着巨大的升学难题。   　罗湖区港人子弟学校去年开始，与香港教育局商讨有关事宜，日前更获初步确认，可望纳入香港升中派位机制之中，有关机制需要学生小五、小六的成绩作指标，所以派位最快可在2010年落实。由于地理上邻近，预料参与学生将主要派往香港北区的中学。校长郑佳秋表示，目前该校有617名学生，预料在2010年升中(现小四)的将有近百人，他们可望成为首批「打通」两地升学制度安排的参与者。   小五六成绩作指标 派北区中学   　郑佳秋又说，由于该校采用了「两文三语」的教学模式，除普通话为主要教学语言，常识课则用广东话教学。另外，学校亦要求学生同时掌握简、繁体字阅读和写作，顺应香港的学习现状。学校港方校长廖翔显补充，该校有逾半数学生能熟练地以广东话交流，亦特别加强学生英文，采用了与香港小学相同的英语教材，高年级学生的程度可满足回港升学的需要。   　不过，廖翔显亦指，由于该校提供「双轨制」模式，毕业生升读深圳中学也很方便，加上升中生年龄仍未太大，家长因照顾问题未必让孩子太早回港升学，预料首年只有不足一半学生参加派位。   罗太：可解决学生升学困难   　日前访问该校的罗范椒芬对有第一间内地小学纳入香港升中派位机制表示积极支持。她指出，现时深港两地教育体系大有不同，港人子弟要升学面对不少难题，是次新安排既解决学生一部分升学困难，更可望成为两地教育发展的契机，进一步推动交流。另一访校的港区人大代表、天水围香岛中学校长杨耀忠亦赞扬是次新安排，认为可更方便深圳的港人子弟。虽然其学校并非在北区，但亦非常欢迎居深的港人子弟报读。   　香港教育局响应说，目前正在与内地有关机构及学校商讨，让在深圳就读小学而有意回港升学的港人子女有更便利的安排；当局初步已确定以试点学校形式推行，而未来与派位相关的具体安排，仍有待与各方作进一步商讨。   　深圳教育局国际合作管理办公室处长彭尧表示，目前深圳只有2间类似的港人子弟学校，除罗湖区港人子弟学校外，另一间因规模较小，暂未获安排参与港升中派位。   家长：新安排免转校麻烦   　【本报珠三角新闻中心记者郑海龙、通讯员邵嫦娥深圳2日电】「这个当然是天大的好事，香港籍和等待获得香港籍的学生是最受益的」，罗湖区港人子弟学校家长代表蔡先生作出上述表示。   　据该校统计，目前全校600名学生中，有280多名已获港人身份，另有200多人即将获得港人身份，而学校被纳入港升中派位系统，意味着绝大多数的学生都能受益。   　蔡先生表示，该校的港籍学生及等待港籍的学生，一般都打算回港升学，学校能与香港升中派位系统衔接，令他们受益最大。另一家长李先生指，其就读四年级的儿子在香港出生，已经有了港人身份，但此前因为自己和太太都在内地工作，故只能安排孩子在深圳上小学，但中学则希望回港就读。他坦言，此前仍担心孩子在该校小学毕业后较难升入香港中学，所以已经准备好于一年后其小学六年级时就送回香港插班，于香港小学考毕业试及等待升中派位，新安排或可免却转校麻烦，令其得益不少。   　该校小一生宋嘉玉出生于香港，父母都为在深圳经商的香港人，她亦对可更顺利回港升中感兴奋。她笑言，「我姨婆还住在香港，以后我回香港念书还要给她带饼回去呢！」   罗湖区港人子弟学校课程特色   科目　特色 　英语　采用香港版教材及教学方式，并设有英语剧社、小区英语、英语角及深港交流等活动。 　中文　普通话教授，文字材料以简体为主，并设繁体阅读及认识。 　常识　采用香港版教材及教学方式，以粤语教授。 　音乐、健康教育　采用香港版教材及教学方式。 　数学、美术、计算器、思想品德　内地版教材及教学方式。 注：整体教学以「双轨制」进行，方便学生在香港或内地升学。 责任编辑：cnred 文章页数第[1]页  页面功能 【我来说两句】【字体：大 中 小】【打印】 【关闭】 相 关 连 接 ·还没有相关文章 网 友 评 论 ·还没有相关的评论！ 发 表 评 论 您的大名: （点击这里注册） 这里填写您的评论：） 友情提醒：评论请限制在100字以内，有长篇大论欢迎到论坛发表：） 　 综合新闻|广东新闻|专题新闻 >> 本类热点新闻 ·深圳凯宾斯基酒店求售 ·深圳海关缴仿真枪增7倍 ·盐田港再罢工 逾万货柜滞留 ·深截116辆香港走私车 ·深圳大铲湾码头一期动工 ·深圳「新服务」赴港产子一条 ·谷旺西部通道 深圳湾建商圈 ·深圳中山建通道 拟公路铁路 ·梁定邦与深圳女友照曝光 ·深湘高速直通盐田港 ·港禁区开放 莲塘先受益 ·蛇口香港客轮班次增 下周二 ·环球资源深圳中心区设总部 ·深圳电池厂五千人罢工 ·华侨城进军上海撼迪斯尼 ·深圳水贝全国之最 亩产六万 ·鹏城25年规划 深港同城化 ·深港都市圈 五年见雏形 ·中英街图变身 历史文化地标 ·深蔡屋围20亿改建金融中心 ·深圳港人侄 离奇堕楼亡 ·深圳中信地铁商场港推售 ·深南坪快速西段通车 免收费 ·租不如买 深圳楼价升不止 ·珠三角主题公园恶性重迭 ·天利中央广场明年中发售 ·深圳巴士乱撞 2死16伤 ·两地数字电视划一标准 ·和黄深圳三地产项目动工 ·祥利工业园招港商建基地

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