admin_adduser.asp

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

<%if session("password")<>"" then%>
<!-- #include file="top.asp" -->
<!-- #include file="adminmenu.asp" -->

<meta http-equiv="Content-Type" content="text/html; charset=gb2312">

<table width="768" align="center" cellpadding="0" cellspacing="0" class="unnamed_rld2">

<%if request.querystring("kind")="admin" then%>
<tr>
<td align="center"><form name="form1" method="post" action="addu.asp">
  <br>
  <table width="50%"  border="1" cellspacing="0" cellpadding="0" bordercolor="#eeeeee">
    <tr align="center">
      <td colspan="2"> 添加系统管理员 </td>
      </tr>
    <tr>
      <td width="27%" align="center"> 用户名 </td>
      <td width="73%"><input name="username" type="text" size="30"></td>
    </tr>
    <tr>
      <td align="center"> 密码 </td>
      <td><input name="password" type="text" size="30"></td>
    </tr>
    <tr align="center">
      <td colspan="2"><input type="hidden" name="kind" value="0"><input type="submit" name="Submit" value="提交">&nbsp;
        <input type="reset" name="Submit2" value="清除"></td>
      </tr>
    <tr>
      <td colspan="2"><table width="100%"  border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td width="13%" align="center">说明</td>
          <td width="87%">&nbsp;1.如果您输入的密码为空，系统将自动以用户名作为密码。</td>
        </tr>
        <tr>
          <td>&nbsp;</td>
          <td>&nbsp;2.添加完毕之后，请自行确认您所输入的信息。</td>
        </tr>
      </table></td>
      </tr>
  </table>
</form>
</td>
</tr>
<%end if%>


<%if request.querystring("kind")="user" then%>
<tr>
<td align="center"><form name="form1" method="post" action="addu.asp">
  <br>
  <table width="50%"  border="1" cellspacing="0" cellpadding="0" bordercolor="#eeeeee">
    <tr align="center">
      <td colspan="2"> 添加学生相关信息</td>
      </tr>
    <tr>
      <td width="27%" align="center"> [ <span style="color: #FF0000">班级</span> ]</td>
      <td width="73%"><select name="bj" id="xh">
                    <option>--==请选择==--</option>
 <%
set rs=server.createobject("adodb.recordset")
conn = "DBQ=" + server.mappath("class_cj.mdb") + ";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
    sql="select * from bjb"
rs.Open sql,conn,1,1
do while not rs.eof
%>
<option><%=rs("bj")%></option>
<%
rs.movenext
loop
rs.Close
set rs=nothing
set conn=nothing
%></select></td>
    </tr>
    <tr>
      <td align="center"> [ <span style="color: #FF0000">学号</span> ] </td>
      <td><input name="xh" type="text" size="30"></td>
    </tr>
    <tr>
      <td align="center"> 姓名 </td>
      <td><input name="user" type="text" size="30"></td>
    </tr>
    <tr>
      <td align="center">密码</td>
      <td><input name="mm" type="text" size="30"></td>
    </tr>
    <tr>
      <td align="center"> 性别 </td>
      <td><select name="sex">
      <option>男</option><option>女</option></select></td>
    </tr>
    <tr>
      <td align="center"> 住址 </td>
      <td><input name="addr" type="text" size="30"></td>
    </tr>
    <tr>
      <td align="center"> 邮编  </td>
      <td><input name="yb" type="text" size="30"></td>
    </tr>
    <tr align="center">
      <td colspan="2"><input type="hidden" name="max" value="1">
                          <input type="hidden" name="kind" value="1"><input type="submit" name="Submit" value="提交">&nbsp;
        <input type="reset" name="Submit2" value="清除"></td>
      </tr>
    <tr>
      <td colspan="2"><table width="100%"  border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td width="13%" align="center">说明</td>
          <td width="87%">&nbsp;1.如果您输入的密码为空，系统将自动以学号作为密码。</td>
        </tr>
        <tr>
          <td>&nbsp;</td>
          <td>&nbsp;2.添加完毕之后，请自行确认您所输入的信息。</td>
        </tr>
      </table></td>
      </tr>
  </table>
</form>
</td>
</tr>
<%end if%>
</table>


<!-- #include file="copyright.asp" -->