在上一篇我们介绍了如何创建班级。在这一篇里，我们将谈班级页面，也是校友录的主体。其实功能只有留言，和修改个人资料，和查看同学的资料，在以后几篇中将谈后台管理。
以下是index1.asp

<% dim rs1,sql1
'取得传过来的班级编号，以识别是哪个班级
classid=request("classid")
        if classid="" then
        response.write("您没有选择班级ID号")
         response.end
         end if

name1=session("uname")
'取出相应班级编号的所有信息
     set rs1=server.createobject("adodb.recordset")
        sql1="select * from user where classid="&classid&" order by date desc"
        rs1.open sql1,conn,1,1
     if rs1.eof or rs1.bof then
response.write "暂无记录!"
     end if %>

最新加入班级成员 <% for i=1 to 10      if rs1.eof then      exit for      end if%> <%rs1.movenext      next %>                      <% if len(rs1("name"))>=6 then %><%=left(rs1("name"),6) %>...<%else%><%=rs1("name")%><%end if%> <%=rs1("date")%> 选出心目中最好的老师 　班主任老师 　语文老师 　物理老师 　英语老师 　生物老师 　数学老师

班级论坛新贴 进入校友论坛   用户名： 密码： <% '欢迎信息 if session("uname")="" then                  response.Write"游 客 欢 迎 你!"                  else                  response.Write "欢 迎 你 "&name1&""                  end if%> <% set ars=server.CreateObject("adodb.recordset")                          asql="select * from admin where classid="&request("classid")                                  ars.open asql,conn,1,1                                  if ars.eof then response.Write"没有管理员" end if%>                                  管理员：                                      <% while not ars.eof%><%=ars("name")%>　                                      <%ars.movenext                                      wend%> 成员留言 <% dim rs,sql classid=request("classid")          if classid="" then          response.write("错误！ID不能为空！")          end if          set rs=server.createobject("adodb.recordset")          sql="select * from words where classid="&request("classid")&" order by date desc"                         rs.open sql,conn,1,1      if rs.eof and rs.bof then response.Write" 还 没 有 任 何 留 言 "         'response.end      end if                           if not rs.eof then     rs.pagesize=8 end if                   page=request("page") if page=""or page<1 then page=1 end if     if not rs.eof then rs.absolutepage=page end if for i=1 to rs.pagesize if rs.eof then exit for                  %> 发言人：<%=rs("name")%> 时间：<%=rs("date")%>   <%=rs("content")%>                  <% rs.movenext                  next                  %>                  <%if page<>1 then %> >首页 <%end if%> <%if page>1 then %> &classid=<%=classid%>>上页 <%end if%> <%if page<>rs.pagecount then %> &classid=<%=classid%>>下页 <%end if%> <%if page<>rs.pagecount then %> &classid=<%=classid%>>末页 <%end if%> 这是第<%=page%>页 一共有<%=rs.pagecount%>页 班级事务处理 ">加入班级 成员信息 修改资料 ">回到首页 管理员登陆 退出登陆 --我 要 留 言--

<% rs.close
conn.close
set rs=nothing
set conn=nothing
%>