首 页
会员注册
学校介绍
领导简介
教务登录
教师论坛
教学资源
学生论坛
校园公告
访客留言
School Introduction
校园新闻
校容校貌
英语特区
校园刊物
校园生活
学生作品
校友风采
内宿之窗
网站公告
《校园生活》栏目新添第27届校运会花絮照片！ 《校园生活》栏目新添2003年第三届艺术节照片！ 《校园生活》栏目新添2003年第三届美食节照片！ 《校友风采》栏目新添2002级毕业照！
校园刊物（School Publications）
课改先锋
论文教案
青春短笛
玻璃湖畔
英语特区（English Corner）
英语文章
常用口语
外教随笔
外教风采
友好交往
部门主页
校团委
办公室
住管处
教务处
总务处
政教处
保卫处
教研处
校工会
广播站
个人主页
叶伟工作室
走进地理沙龙
晨曦美术小屋
姚姚休闲空间
吴鑫海荷小站
016咸蛋小屋
邬迪—麦雅轩
推荐站点
校园经典
2005年美化宿舍评比
第27届校运会剪影
2004级新生军训剪影
第三届校园美食节
校园护旗队风采
赴英交流学习冬令营
Foreign Teachers
Our School Our Home
青春短笛（Pubilcatoin）<% atlStr = "" strDiv = split(atlStr, ";") ItemName = strDiv(0) ItemNumber = strDiv(1) TableBorder = strDiv(2) CellPadding = strDiv(3) CellSpacing = strDiv(4) CellHeight = strDiv(5) TableColor = strDiv(6) CellColor = strDiv(7) LinkColor = strDiv(8) Font = strDiv(9) FontSize = strDiv(10) Underline = strDiv(11) NewWin = strDiv(12) Sign = strDiv(13) More=strDiv(14) FileName=strDiv(15) select case cint(Sign) case 0 SignStr = "" case 1 SignStr = "r " case 2 SignStr = "v " case 3 SignStr = "l " case 4 SignStr = "n " case 5 SignStr = "z " case 6 SignStr = "d " case 7 SignStr = "4 " case 8 SignStr = "◆ " case 9 SignStr = "□ " case 10 SignStr = "▲ " case 11 SignStr = "⊙ " case 12 SignStr = "★ " end select set rs = Server.CreateObject("ADODB.RecordSet") strSQL = "select * from Article where schoolcode='" & SchoolCode & "' and item ='" & ItemName & "' order by Date desc" rs.Open strSQL, DataConn,1,3 %> cellspacing=<%=CellSpacing%> cellpadding=<%=CellPadding%> <%if TableColor <> "None" then%> bordercolor=<%=TableColor%><%end if%> style= "HEIGHT: 200px; WIDTH: 260px"> <% recnum = 0 %> <%if not rs.eof and not rs.bof then%> <%if CellColor <> "None" then%> bgcolor=<%=CellColor%><%end if%>><%end if%> <%count=0 if not rs.eof and not rs.bof then rs.PageSize =ItemNumber if Request("page")="" or cint(Request("page"))<1 then rs.AbsolutePage = 1 elseif cint(Request("page"))>rs.PageCount then rs.AbsolutePage =rs.PageCount else rs.AbsolutePage = cint(Request("page")) end if currpage=rs.AbsolutePage for i=1 to rs.PageSize if rs.EOF then exit for end if%> "None" then%>target=<%=NewWin%><%end if%> href=<%=GetBaseURL & rs("item") & "/" & rs("link")%> style="<%if LinkColor <> "None" then%>COLOR: #<%=LinkColor%>;<%end if%> TEXT-DECORATION: <%=Underline%>"><%=SignStr%><%=rs("subject")%> <%rs.movenext%> <%next%> <%if More="More" then%>>More>>> <%else%> <%if currpage=1 and rs.PageCount > 1 then%> >>下一页 <%elseif currpage>1 and currpage >>上一页 | >>下一页 <%elseif currpage<>1 and currpage=rs.PageCount then%> >>上一页 <%end if%> <%end if%> <%end if%>
外教随笔（Informal Essays）<% atlStr = "" strDiv = split(atlStr, ";") ItemName = strDiv(0) ItemNumber = strDiv(1) TableBorder = strDiv(2) CellPadding = strDiv(3) CellSpacing = strDiv(4) CellHeight = strDiv(5) TableColor = strDiv(6) CellColor = strDiv(7) LinkColor = strDiv(8) Font = strDiv(9) FontSize = strDiv(10) Underline = strDiv(11) NewWin = strDiv(12) Sign = strDiv(13) More=strDiv(14) FileName=strDiv(15) select case cint(Sign) case 0 SignStr = "" case 1 SignStr = "r " case 2 SignStr = "v " case 3 SignStr = "l " case 4 SignStr = "n " case 5 SignStr = "z " case 6 SignStr = "d " case 7 SignStr = "4 " case 8 SignStr = "◆ " case 9 SignStr = "□ " case 10 SignStr = "▲ " case 11 SignStr = "⊙ " case 12 SignStr = "★ " end select set rs = Server.CreateObject("ADODB.RecordSet") strSQL = "select * from Article where schoolcode='" & SchoolCode & "' and item ='" & ItemName & "' order by Date desc" rs.Open strSQL, DataConn,1,3 %> cellspacing=<%=CellSpacing%> cellpadding=<%=CellPadding%> <%if TableColor <> "None" then%> bordercolor=<%=TableColor%><%end if%> style= "HEIGHT: 200px; WIDTH: 260px"> <% recnum = 0 %> <%if not rs.eof and not rs.bof then%> <%if CellColor <> "None" then%> bgcolor=<%=CellColor%><%end if%>><%end if%> <%count=0 if not rs.eof and not rs.bof then rs.PageSize =ItemNumber if Request("page")="" or cint(Request("page"))<1 then rs.AbsolutePage = 1 elseif cint(Request("page"))>rs.PageCount then rs.AbsolutePage =rs.PageCount else rs.AbsolutePage = cint(Request("page")) end if currpage=rs.AbsolutePage for i=1 to rs.PageSize if rs.EOF then exit for end if%> "None" then%>target=<%=NewWin%><%end if%> href=<%=GetBaseURL & rs("item") & "/" & rs("link")%> style="<%if LinkColor <> "None" then%>COLOR: #<%=LinkColor%>;<%end if%> TEXT-DECORATION: <%=Underline%>"><%=SignStr%><%=rs("subject")%> <%rs.movenext%> <%next%> <%if More="More" then%>>More>>> <%else%> <%if currpage=1 and rs.PageCount > 1 then%> >>下一页 <%elseif currpage>1 and currpage >>上一页 | >>下一页 <%elseif currpage<>1 and currpage=rs.PageCount then%> >>上一页 <%end if%> <%end if%> <%end if%>
校园新闻（School News）<% atlStr = "" strDiv = split(atlStr, ";") ItemName = strDiv(0) ItemNumber = strDiv(1) TableBorder = strDiv(2) CellPadding = strDiv(3) CellSpacing = strDiv(4) CellHeight = strDiv(5) TableColor = strDiv(6) CellColor = strDiv(7) LinkColor = strDiv(8) Font = strDiv(9) FontSize = strDiv(10) Underline = strDiv(11) NewWin = strDiv(12) Sign = strDiv(13) More=strDiv(14) FileName=strDiv(15) select case cint(Sign) case 0 SignStr = "" case 1 SignStr = "r " case 2 SignStr = "v " case 3 SignStr = "l " case 4 SignStr = "n " case 5 SignStr = "z " case 6 SignStr = "d " case 7 SignStr = "4 " case 8 SignStr = "◆ " case 9 SignStr = "□ " case 10 SignStr = "▲ " case 11 SignStr = "⊙ " case 12 SignStr = "★ " end select set rs = Server.CreateObject("ADODB.RecordSet") strSQL = "select * from Article where schoolcode='" & SchoolCode & "' and item ='" & ItemName & "' order by Date desc" rs.Open strSQL, DataConn,1,3 %> cellspacing=<%=CellSpacing%> cellpadding=<%=CellPadding%> <%if TableColor <> "None" then%> bordercolor=<%=TableColor%><%end if%> style= "HEIGHT: 200px; WIDTH: 260px"> <% recnum = 0 %> <%if not rs.eof and not rs.bof then%> <%if CellColor <> "None" then%> bgcolor=<%=CellColor%><%end if%>><%end if%> <%count=0 if not rs.eof and not rs.bof then rs.PageSize =ItemNumber if Request("page")="" or cint(Request("page"))<1 then rs.AbsolutePage = 1 elseif cint(Request("page"))>rs.PageCount then rs.AbsolutePage =rs.PageCount else rs.AbsolutePage = cint(Request("page")) end if currpage=rs.AbsolutePage for i=1 to rs.PageSize if rs.EOF then exit for end if%> "None" then%>target=<%=NewWin%><%end if%> href=<%=GetBaseURL & rs("item") & "/" & rs("link")%> style="<%if LinkColor <> "None" then%>COLOR: #<%=LinkColor%>;<%end if%> TEXT-DECORATION: <%=Underline%>"><%=SignStr%><%=rs("subject")%> <%rs.movenext%> <%next%> <%if More="More" then%>>More>>> <%else%> <%if currpage=1 and rs.PageCount > 1 then%> >>下一页 <%elseif currpage>1 and currpage >>上一页 | >>下一页 <%elseif currpage<>1 and currpage=rs.PageCount then%> >>上一页 <%end if%> <%end if%> <%end if%>
校园活动
2003级新生军训剪影
Tug-of-War
Basketball Game
第25届校运会剪影
英语文章（English Articles）<% atlStr = "" strDiv = split(atlStr, ";") ItemName = strDiv(0) ItemNumber = strDiv(1) TableBorder = strDiv(2) CellPadding = strDiv(3) CellSpacing = strDiv(4) CellHeight = strDiv(5) TableColor = strDiv(6) CellColor = strDiv(7) LinkColor = strDiv(8) Font = strDiv(9) FontSize = strDiv(10) Underline = strDiv(11) NewWin = strDiv(12) Sign = strDiv(13) More=strDiv(14) FileName=strDiv(15) select case cint(Sign) case 0 SignStr = "" case 1 SignStr = "r " case 2 SignStr = "v " case 3 SignStr = "l " case 4 SignStr = "n " case 5 SignStr = "z " case 6 SignStr = "d " case 7 SignStr = "4 " case 8 SignStr = "◆ " case 9 SignStr = "□ " case 10 SignStr = "▲ " case 11 SignStr = "⊙ " case 12 SignStr = "★ " end select set rs = Server.CreateObject("ADODB.RecordSet") strSQL = "select * from Article where schoolcode='" & SchoolCode & "' and item ='" & ItemName & "' order by Date desc" rs.Open strSQL, DataConn,1,3 %> cellspacing=<%=CellSpacing%> cellpadding=<%=CellPadding%> <%if TableColor <> "None" then%> bordercolor=<%=TableColor%><%end if%> style= "HEIGHT: 200px; WIDTH: 260px"> <% recnum = 0 %> <%if not rs.eof and not rs.bof then%> <%if CellColor <> "None" then%> bgcolor=<%=CellColor%><%end if%>><%end if%> <%count=0 if not rs.eof and not rs.bof then rs.PageSize =ItemNumber if Request("page")="" or cint(Request("page"))<1 then rs.AbsolutePage = 1 elseif cint(Request("page"))>rs.PageCount then rs.AbsolutePage =rs.PageCount else rs.AbsolutePage = cint(Request("page")) end if currpage=rs.AbsolutePage for i=1 to rs.PageSize if rs.EOF then exit for end if%> "None" then%>target=<%=NewWin%><%end if%> href=<%=GetBaseURL & rs("item") & "/" & rs("link")%> style="<%if LinkColor <> "None" then%>COLOR: #<%=LinkColor%>;<%end if%> TEXT-DECORATION: <%=Underline%>"><%=SignStr%><%=rs("subject")%> <%rs.movenext%> <%next%> <%if More="More" then%>>More>>> <%else%> <%if currpage=1 and rs.PageCount > 1 then%> >>下一页 <%elseif currpage>1 and currpage >>上一页 | >>下一页 <%elseif currpage<>1 and currpage=rs.PageCountthen%> >>上一页 <%end if%> <%end if%> <%end if%>
校园公告（School Bulletins）
网站公告
