<% option explicit %> <% dim strFileName,FileName const MaxPerPage=20 dim totalPut,CurrentPage,TotalPages dim i,j dim keyword,strField dim rsArticleList,sql,sqlPath,rsPath dim ClassID dim tClass,ClassName,RootID,ParentID,Depth,ParentPath,Child,ChildID,tID,tChild,ClassMaster dim founderr dim strPath,strPageTitle,PageTitle ClassID=Trim(request("ClassID")) ClassID=CLng(ClassID) if ClassID>0 then sql="select ClassName,RootID,ParentID,Depth,ParentPath,Child From ArticleClass where ClassID="& ClassID set tClass=conn.execute(sql) if tClass.bof and tClass.eof then FoundErr=True ErrMsg=ErrMsg & "
  • 找不到指定的栏目
    • " end if end if if FoundErr=True then Call WriteErrMsg() response.end end if '================================================= '过程名：ShowBigClassArticle '作 用：显示大类别最新文章，文章标题前面带【类别名称】 '参 数：ArticleNum ----最多显示多少篇文章 ' TitleLen ----标题最多字符数，一个汉字=两个英文字符 ' ClassID -----大类的ID 'ArticleNum,ClassID都已固定 '================================================= sub ShowBigClassArticle(ArticleNum,TitleLen,ClassID) dim sql,rsBCA ClassID=80 '学校介绍 - 公立学校类 set tClass=conn.execute("select ClassName,RootID,ParentID,Depth,ParentPath,Child,ClassMaster From ArticleClass where ClassID=" & ClassID) if tClass.bof and tClass.eof then founderr=True ErrMsg=ErrMsg & "
  • 找不到指定的栏目
    • " Call WriteErrMsg() response.end else Child=tClass("Child") sql="select A.ArticleID,A.ClassID,C.ClassName,A.Title,A.Keywords,A.Author,A.CopyFrom,year(A.updateTime) as UpdateYear,month(A.UpdateTime) as UpdateMonth,day(A.UpdateTime) as UpdateDay,A.UpdateTime,A.Editor," sql=sql & "A.Hits,A.OnTop,A.Hot,A.Elite,A.Passed,A.IncludePic from Article A" sql=sql & " inner join ArticleClass C on A.ClassID=C.ClassID where A.Deleted=0 and A.Passed=1" if ClassID>0 then if Child>0 then ChildID="" set tClass=conn.execute("select ClassID from ArticleClass where ParentID=" & ClassID & " or ParentPath like '" & ParentPath & "," & ClassID & ",%'") do while not tClass.eof if ChildID="" then ChildID=tClass(0) else ChildID=ChildID & "," & tClass(0) end if tClass.movenext loop sql=sql & " and A.ClassID in (" & ChildID & ")" else sql=sql & " and A.ClassID=" & ClassID end if end if end if sql=sql& "order by A.ArticleID desc" ' sql=sql&"order by A.UpdateTime desc" Set rsBCA= Server.CreateObject("ADODB.Recordset") rsBCA.open sql,conn,1,1 ' if TitleLen<0 or TitleLen>255 then TitleLen=50 TitleLen=256 if rsBCA.bof and rsBCA.eof then response.write "
  • 无该类别文章
    • " else dim v_count,v_result '单元格计数 v_count=1 do while not rsBCA.eof dim Tdate,Sdate Tdate=rsBCA("UpdateYear")&"-" Tdate=Tdate& rsBCA("UpdateMonth")&"-" Tdate=Tdate& rsBCA("UpdateDay") If CDate(Tdate)=date() Then Sdate=""& Tdate&"" else Sdate=Tdate end if v_result = v_count mod 3 '一行三个单元格 select case v_result case 1 response.Write("["& rsBCA("ClassName") &"] " & gotTopic(rsBCA("title"),TitleLen) & "") case 2 response.Write("["& rsBCA("ClassName") &"] " & gotTopic(rsBCA("title"),TitleLen) & "") case 0 response.Write("["& rsBCA("ClassName") &"] " & gotTopic(rsBCA("title"),TitleLen) & "") end select v_count=v_count+1 rsBCA.movenext loop end if rsBCA.close set rsBCA=nothing end sub %> 宁波教科网

        宁波效实中学
        李惠利中学
        镇海中学
        洪塘中学
        李兴贵中学
        庄桥中学
        镇明中心小学
        宁波广济中心小学
        宁波市江北区中心小学


    镇明中心小学

         镇小是一所近百年老校，1906年由贸山书院改建，1986年，镇小被列为市重点小学。目前，学校占地9998平方米，共有29个教学班，1314名学生。在职的71名教师中，中学高级教师1名；市级名师1名；市级学科带头人1名，省教坛新秀2名，市教坛新秀9名。

        跨入新千年，镇小基本实现教育现代化。校内建立了多媒体网络教室、多媒体综合教室、总控室、多媒体课件制作室等专用设施，拥有了近200个工作站的校园网、三十八个终端的校闭路电视系统和小能人电视台、智能音乐广播系统。配有三机一幕的教室达29个，配备电脑及实物投影仪的专用教室达16个。

        学校长期以来以”学生为主体,德智体美劳全面发展，培养特长，发展个性，输送人才”为办学宗旨，以”师资力量强，教育质量高，办学有特色，学生全面发展有特长”而被全社会所称道。

        近年来，学校先后开展”小学数学’弹性教学’”、”小学生能力发展与培养”、”多媒体辅助教学”等一系列课题实验研究工作。近两年来，学校全面实施教育质量管理体系，以新课程课堂教育改革为突破口，提出教育理念，改进教学方法，构建了”自主，开放，创新”的课堂教学新模式。

        此外，学校先后被评为全国群众体育先进集体，浙江省优秀体育传统项目学校，宁波市中小学教师继续教育先进集体，市卫生文明单位，市校园文化建设示范点，市先进工会小组，市"手拉手互助活动"先进集体，市教委科技辅导先进集体，区办学水平督导评估达A级，在区小学生运动会上曾连续九年获第一名。
    <% call CloseConn() %>