admin_user.asp

能自动计算总分、平均分及格率等各种统计数据。在统计时你还可以选择统计全部学科或部分学科；在使用中可自由增删成绩、人员

<%if session("password")<>"" then
session("return")="admin_user.asp"%>

<!-- #include file="top.asp"-->
<!-- #include file="adminmenu.asp" -->
<!-- #include file="images/jav2.inc" -->
<!-- #include file="conn.asp"-->

<table width="768" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td>&nbsp;</td>
  </tr>
</table>
<table width="768"  border="0" align="center" cellpadding="0" cellspacing="0">
<tr bgcolor="#A0A4AC">
  <td height="25">&nbsp;系统管理员：<a href="admin_adduser.asp?kind=admin">添加</a></td>
  </tr>
<tr bgcolor="#FFFFFF"><td>
            <table width="768" border='1'  align="center" cellpadding='0' cellspacing='0' bordercolor="#FFFFFF" bgcolor="#A0A4AC">
          <tr>
<%
dim i
i=0
    set connad=server.createobject("adodb.connection")
    set rsad=server.createobject("adodb.recordset")
    DPath = Server.MapPath("class_cj.mdb")
    connad.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DPath
        sqlad="select * from admin order by id"
        rsad.open sqlad,connad,1,2
do while not (rsad.EOF or rsad.BOF)
i=i+1
%>
            <td width="96" height="25" align=center><%=rsad("username")%></td>
            <td align=center width="96"><a href="updata.asp?kind=admin&id=<%=rsad("id")%>">修改</a>
<% if rsad("username")<>session("username") then%><a href="delu.asp?id=<%=rsad("id")%>&kind=admin">删除</a><%else%>删除<%end if%>
</td>
<%
if i mod 4=0 then response.write("</tr><tr>")
    rsad.movenext
    loop
if i<5 then
for j=i+1 to 4
%>
     <td align=center width="96">&nbsp;</td>
     <td align=center width="96">&nbsp;</td>
<%
next
else
rsad.Close 
set rsad=nothing
set connad=nothing
end if
%>
          </tr>
      </table>

</td></tr>

<tr><td>&nbsp;</td>
</tr>

<tr bgcolor="#A0A4AC"><td height="25">&nbsp;学生：<a href="admin_adduser.asp?kind=user">添加</a></td></tr>
      <tr>
        <td>
            <table width="768"  border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td valign='top'>
      <!--#include file="conn1.asp"-->
      <% 
    page = CLng(request("page"))                            '利用CLng函数把page值转换为Long型
    judge=request("judge")
    judge2=request("judge2")
    judge3=0
    sqlcmd="select * from user Order By xh"
    rs.Open sqlcmd,newconn,1,2
%>
      <form method="POST" id=form1 name=form1>
        <table width="768" border='1'  align="center" cellpadding='0' cellspacing='0' bordercolor="#F0F0F0" id=TabDocMain>
          <tr>
            <td width="42" height="20" align=center> 删除框 </td>
            <td width="100" height="20" align=center>班级</td>
            <td width="80" height="20" align=center>学号</td>
            <td width="77" height="20" align=center>姓名</td>
            <td width="80" height="20" align=center>密码</td>
            <td width="40" height="20" align=center>性别</td>
            <td width="179" height="20" align=center>家庭地址</td>
            <td width="80" height="20" align=center>邮政编码</td>
            <td width="70" height="20" align=center>操作</td>
          </tr>
          <%
            if not (rs.EOF or rs.BOF) then
            rs.MoveFirst
            rs.PageSize = 10  '每页显示的条数  
            If page < 1 Then page = 1 
            If page > rs.PageCount Then page = rs.PageCount  
            rs.AbsolutePage = page
            For ipage = 1 To rs.PageSize
            %>
          <tr>
            <td height="20" align=center width="42">
              <input type="checkbox" name="answer" value="<%=rs("id")%>" id="Checkbox1">
            </td>
            <td height="20" align=left width="100"><div align="center">&nbsp;<%=rs("bj")%>&nbsp;</div></td>
            <td height="20" align=left width="80"><div align="center">&nbsp;<%=rs("xh")%>&nbsp;</div></td>
            <td height="20" align=left width="77"><div align="center">&nbsp;<%=rs("xm")%>&nbsp;</div></td>
            <td height="20" align=left width="80" nowrap><div align="center">&nbsp;<%=rs("mm")%>&nbsp;</div></td>
            <td height="20" align=left width="40"><div align="center">&nbsp;<%=rs("sex")%>&nbsp;</div></td>
            <td height="20" align=left width="179"><div align="left">&nbsp;<%=rs("addr")%>&nbsp;</div></td>
            <td height="20" align=left width="80"><div align="center">&nbsp;<%=rs("yb")%>&nbsp;</div></td>
            <td width="70" height="20" align=center bgcolor="#A0A4AC"><a href="updata.asp?kind=user&id=<%=rs("id")%>">修改</a></td>
          </tr>
          <%
                rs.MoveNext      
                If rs.EOF Then Exit For   
                Next   
      %>
          <tr>
            <td height="20" colspan="12">&nbsp;&nbsp;<input type="checkbox" name="chkall" value="on" onClick="checkall(this)" id="Checkbox2">
              选中所有的显示新闻&nbsp;&nbsp;<input type="button" name="btnDelete" value="删除" style='font-family: 宋体; font-size: 9pt;' onClick="del()" id="Button1">&nbsp;<input type="reset" name="b" value="重置" style='font-family: 宋体; font-size: 9pt;' id="Button1">            </td>
          </tr>
        </table>
      </form>
      <table border="0" align="center" cellpadding="0" cellspacing="1" width="768">
        <tr>
          <form onSubmit="return test();" method="get" action="admin_user.asp" id=form2 name=form2>
            <td width="220" height="25" bgcolor="#A0A4AC" >
              <%
                If page = 1 Then 
                   Response.Write "<font class='white'>第一页　上一页</font>" 
                End If
                If page <> 1 Then 
                   Response.Write "<a href=admin_user.asp?page=1 class='yellow'>第一页</a>" 
                   Response.Write "　<a href=admin_user.asp?page=" & (page - 1) & " class='yellow'>上一页</a>" 
                End If
                If page <> RS.PageCount Then 
                   Response.Write "　<a href=admin_user.asp?page=" & (page + 1) & " class='yellow'>下一页</a>" 
                   Response.Write "　<a href=admin_user.asp?page=" & RS.PageCount & " class='yellow'>最后一页</a>" 
                End If 
                If page = RS.PageCount Then 
                   Response.Write "　<font class='white'>下一页　最后一页</font>" 
                End If
              %></td>
            <td height="25" bgcolor="#E4E4E4" >GOTO页数：
            <%Response.Write "<input type=text size=2 maxlength=4 name=page class=editbox1><input type=hidden name=judge value=1>"  '显示输入页数框并将page,judge参数传递下去%></td>
          </form>
        </tr>
        <tr bgcolor="#A0A4AC">
          <td height="25" colspan="2" class="white" >记录总数：<%=rs.recordCount%>　总页数：<%=rs.PageCount%>　当前页次：<%=page%> </td>
        </tr>
      </table>      <table width="752" border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td width="300"><%else%>            </td>
          <td><table width="200" border="0" cellpadding="0" cellspacing="0" >
              <td height="25" >对不起，还没有记录！</td>
          </table></td>
          <td><%end if%></td>
        </tr>
    </table></td>
  </tr>
</table>
<%
set rs=server.createobject("adodb.recordset")
sql="select * from user order by xh desc"
rs.open sql,conn,1,3 
%>
        </td>
      </tr>
</table>
<!-- #include file="copyright.asp"-->