<% 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 %> 宁波教科网

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

    庄桥中学

        宁波市庄桥中学创办于一九五六年，始校名为“宁波市第七初级中学”，招收两面班初一学生，随着社会的发展，学校于1970年开始招收普通高中班，1984年秋季开始招收职业高中班，1993年江北区洋市中学并入本校。近几年，由 于市教育局布局及办学结构的调整，学校先后停招普高和职高班。现24班规模，宁波市教育局直属初级中学。

        办学近五十年来，学校为社会培养了一大批有用人才，为地方经济建设和社会发展做出了应有贡献，其中有不少已走上了各级各类领导岗位。

        目前，学校有教职工近80名，中高级教师占近70%，专任教师中，90%以上具有大学本科学历，具有教育硕士研究生1人，在读研究生课程进修班的教师7名，师资力量雄厚。学校硬件设施完善，建有计算机房、校园闭路电视系统、校园网络系统、校园音响系统，图书实验设施齐备。

        学校坚持求真务实，开拓创新，全面推进素质教育，坚持在改革中求发展，在创新中求发展，广大教师安于清贫、乐于奉献、团结协作，学校校风正、教风严、学风好，深受社会好评。
    <% call CloseConn() %>