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

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


    李兴贵中学

        宁波市李兴贵中学是香港爱国侨胞李景芬女士捐资一百五十万元港币，并以其父名命名的一所全日制初级中学，创办于一九八七年。十六年来，共培养毕业生五千九百余名。现有二十五个教学班，九十六位教职工，一千三百二十名学生。

        学校形成“爱国、进步、科学、务实”的校风和“严谨、勤奋、求实、创新”的教风，坚持“五育”并重，严谨治学，求实创新，办学效果显著，教育、教学成果突出，在市内有较高的知名度。

        学校党支部被评为市教育系统先进党组织；学校被评为行为规范达标学校、文明学校和示范性文明学校，多次被评为三结合教育先进单位、综合治理先进集体、社区教育先进单位和治安安全先进集体。

        学校正在努力向现代化的示范性学校和窗口学校方向迈进。

        学校网址： http://lxgzx.nbedu.net.cn
    <% call CloseConn() %>