" 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-7-18 ■第二批高中毕业生成绩优异，蔡国赞颇为欣慰。   　【珠三角新闻中心实习记者张力伟中山17日电】10多年来，港人北上投资兴办的幼儿园、学校等教育机构在港澳后花园—珠三角地区落地生根、花开遍地。依靠其优秀的师资团队、优越的教学环境，在珠三角地区形成了一股私学新兴力量。引商科、开高校直通车，港人蔡国赞创办的中港英文学校便系统地打造了一个从幼儿园到高中的国际化教育品牌，成为港式私学中的一枝奇葩。   学英语从娃娃抓起   　毕业于美国肯尼迪西方大学的蔡国赞博士，回想起当初决定北上办学的原因时介绍：「70年代后期，我带美国朋友参观广州高校，当时教育局的翻译水平较差，翻译语句词不达意，那时我就坚信，学英语要从娃娃抓起。」后来，蔡国赞发现内地许多企业引进外资后都变得很有生命力，但全国的教育模式仍处于单一形式，于是他毅然将「中西结合、作育英才」的国际化教育理念引入内地，从语言开始做到与国际接轨。   　于是，1994年蔡国赞投资1,000万在中山开办了一家英文幼儿园，之后便投资3、4千万修建了小学，到中学时，投资已过亿元。如今，蔡国赞在中山的教育投资已经达到了1.5亿元。   　注重英语成为蔡国赞办学的最大优势。据中港英文学校小学部校长谢慧介绍，中港英文学校的小朋友双语水平普遍强于同龄孩子，尤其是英文口语，学英语从娃娃抓起，没错！   商科进初中接轨国际   　据中港英文学校中学部副校长郭雪红介绍，除常规课程外，该校初三学生均须参加商科课程学习。对此，蔡国赞表示，因内地中学并不开设商科课程，缺少全英商科课程教学，所以内地学生去海外攻读时只能选读理科或者文科，直接进入海外大学读商科的难度很大。加入商科课程，让中港英文学校的学生真正做到与国际接轨不掉队。   延续国际教育新模式   　中山市中港英文学校与UIC开辟了一条港生内地求学的直升通道。UIC赴港招收成绩达标的中五毕业生作为暂取生前往中港英文学校中学部念一年预科班，经考察合格后可直升UIC，就读两年后可获副学士学位，之后便可选择在本院完成余下两年学士课程，亦可选择申请香港浸会大学完成学士课程，毕业后获颁香港特区政府承认的学士学位。   　蔡国赞表示，中港英文学校与UIC的合作不仅为学生提供更多升学途径，更重要的是将内地具有相同办学理念的港校连通起来，将新的教学模式从幼儿园延续至大学   港商黄广流 回馈家乡   ■黄广流想把香港的优势都带回中山。   　【珠三角新闻中心实习记者张力伟中山17日电】「有没有发现中山的街名路标很漂亮？有没有注意中山的路标、广告牌都是有灯的？有没有留意大街上的建筑车辆车轮都是干净的？」谈起自己的父亲黄广流，Matthew自豪地告诉记者，「这些都是我父亲在政协会议上提出来讨论过的。」因「一个电话办好一间工厂」，香港商人黄广流坚定地返回故乡中山，15年来，黄广流对中山城市的建设贡献巨大。用Matthew的话说：「我父亲想把所有香港的好都带来中山。」   涌泉相报「电话恩」   　黄广流自1969年在香港开办了第一家针织厂起，就全身心投入到纺织业当中，1982年后相继开办了纺织品贸易公司和布厂，1992年至今，黄广流逐步将自己在香港经营了23年的工厂搬入中山，投下3亿多港元在出生地兴建利兴强工业村，成立拥有16家公司的利兴强集团。   　在中山港商之间有个流传很广的故事：1992年黄广流打算回乡设厂，厂房建好后，他因香港方面生意繁忙无暇脱身，便尝试打电话向中山政府请求救援，没想到大涌镇外经办很快就将公司注册、营业执照、银行户口等相关事宜处理妥当，并将相关证件、手续代办好送至人在香港的黄广流手里。回想起来，黄广流表示：「家乡政府这样的办事能力，叫我如何不信服。」电话之恩，令黄广流对中山涌泉报之。   「家乡也能成香港」   　身为政协委员，黄广流在工作之余，将更多的热情投进中山的城市建设。这位爱乡人回乡建设15年，不忘带来香港的好。据黄广流回忆，2004年以前，中山市的街道边总堆着一些大的泥块，下雨时使得整个街道脏乱不堪，这些在香港是看不见的。他在时任市长召开的企业家座谈会上提出这个问题后，堆积的泥块很快就在中山街道上消失了，进出中山街道的建筑用车都必须经过车轮清洗才允许放行。后来，中山街道上的泥头车都有「头顶」了，主要抢劫黑点都装了camera，从富华酒店到中山港不再需要一个钟之久，20分钟便能到。   　儿子Matthew告诉记者，父亲从来不对他们炫耀自己的贡献，当儿子问起他的感想时，黄广流才笑言：「我希望家乡也能追上香港」。   　中山市侨务局副局长郑伟枢说：「黄广流赚了钱，就继续把钱往工厂投，继续生产继续赚钱继续投产，他不仅投下了自己所有的钱，还把香港城市建设中的优势带进中山，只求中山有一天能像香港一样好。」 责任编辑：cnred 文章页数第[1]页  页面功能 【我来说两句】【字体：大 中 小】【打印】 【关闭】 相 关 连 接 ·还没有相关文章 网 友 评 论 ·还没有相关的评论！ 发 表 评 论 您的大名: （点击这里注册） 这里填写您的评论：） 友情提醒：评论请限制在100字以内，有长篇大论欢迎到论坛发表：） 　 综合新闻|广东新闻|专题新闻 >> 本类热点新闻 ·广珠轻轨中山段08年建成 ·坦洲中山南部最美城镇 ·「赌王」何鸿燊中山造船 ·崔国潮：给百姓留个「出气孔 ·中山千亿元项目今日推出 ·中山古镇建253米「煤油灯 ·大马华商4亿中山建酒店 ·中山借港建西岸物流中心 ·中山市委书记崔国潮拜会何厚 ·中山火炬开发区 今年出口料 ·中山阳光半岛在港推售 ·中山文艺中心10月竣工 ·中化舟山200亿建大型石化 ·12公斤山埃污染中山河 ·中山招商引资20亿美元 ·中山香港合作办电展会 ·中山轿车撞货车 7死3伤 ·中山外泄山埃 实为26公斤 ·中山市常委访本报 ·中山建华南现代中医药城 ·中山率先治毒菜 三年清除重 ·中山500人购物团明杀到 ·中山防贪 也邀官员「饮咖啡 ·中山卫星技术防禽流感 ·中山88元游港团「极速」爆 ·中山12月办电展会 ·中山古镇灯博会成交11亿 ·港粤工商界 中山再办千人宴 ·中山150亿投资月杪招商 ·中山沙溪服博会成交60亿

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