admin_add.asp

成绩查询管理系统

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

<table width="768" height="25" align="center" cellpadding="0" cellspacing="0" class="unnamed_rld2">
<%if request.querystring("kind")="new" then%>
<tr>
<td align="center"><br><form name="form1" action="admin_adddata.asp?type=news" method="post">
<table width="50%"  border="1" cellspacing="0" cellpadding="0" bordercolor="#eeeeee">
  <tr align="center">
    <td height="31" colspan="2">添加单个学生的成绩</td>
    </tr>
  <tr>
    <td width="27%" align="center">班级</td>
    <td width="73%"><select name="bj11" id="xh">
                    <!-- #include file="inc/selectbj.asp" -->
            </td>
  </tr>
  <tr>
    <td align="center">学号 </td>
    <td><input name="xh11" type="text" id="xh"></td>
  </tr>
  <tr>
    <td align="center">姓名  </td>
    <td><input name="user11" type="text" id="user"></td>
  </tr>
  <tr>
    <td align="center">课程 </td>
    <td><input type="text" name="kc11"></td>
  </tr>
  <tr>
    <td align="center">成绩 </td>
    <td><input name="cj11" type="text" id="cj"></td>
  </tr>
  <tr>
    <td align="center"> 学期  </td>
    <td><select name="xq11">
                        <option>第一学期</option>
                        <option>第二学期</option>
                        <option>第三学期</option>
                        <option>第四学期</option>
                        <option>第五学期</option>
                        <option>第六学期</option>
                        <option>第七学期</option>
                        <option>第八学期</option>
                      </select></td>
  </tr>
  <tr>
    <td align="center"> 类型 </td>
    <td>
                      <select name="lx11">
                        <option>必修课</option>
                        <option>选修课</option>
                        <option>限修课</option>
                      </select>
  </tr>
  <tr align="center">
    <td colspan="2"><input type="hidden" name="max" value="1">
                          <input type="hidden" name="number" value="1">
                          <input type="submit" name="Submit" value="添加">
                          <input type="reset" name="Submit2" value="重置"></td>
    </tr>
  <tr>
    <td colspan="2">&nbsp;</td>
    </tr>
</table></form>
</td>
</tr>
<%end if%>

<%if request.querystring("kind")="bj" then
session("return")=request.ServerVariables("SCRIPT_NAME")&"?kind=bj"%>
<tr valign="top">
<td align="center" width="50%"><br><form name="form1" method="post" action="addu.asp">
<table width="50%"  border="1" cellspacing="0" cellpadding="0" bordercolor="#CCCCCC">
  <tr align="center">
    <td height="32" colspan="2">添加班级及其学号对应代码</td>
    </tr>
  <tr>
    <td width="26%" align="center">班级</td>
    <td width="74%"><input type="text" name="bj" size="30"></td>
  </tr>
  <tr>
    <td align="center">学号代码</td>
    <td><input name="xhf" type="text" size="30"></td>
  </tr>
  <tr align="center">
    <td colspan="2">
    <input type="hidden" name="kind" value="2">
    <input type="submit" name="Submit" value="提交">&nbsp;
      <input type="reset" name="Submit2" value="清除"></td>
    </tr>
  <tr>
    <td colspan="2">&nbsp;注意：填写完后请自行确认</td>
    </tr>
</table></form>
</td>
</tr>

<tr>
  <td height="25" align="center">班级及其学号启始代码浏览及修改</td>
</tr>
<tr>
  <td>
 
     <table width="752" border='1'  align="center" cellpadding='0' cellspacing='0' bordercolor="#F0F0F0">
  <tr>
<%
dim i
i=0
    set connad=server.createobject("adodb.connection")
    set rsad=server.createobject("adodb.recordset")
    DPath = Server.MapPath("#sp25175_class.asp")
    connad.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DPath
        sqlad="select * from bjb order by xhf"
        rsad.open sqlad,connad,1,2
do while not (rsad.EOF or rsad.BOF)
i=i+1
%>
            <td align=center width="96" nowrap><a  title="<%=rsad("xhf")%>"><%=rsad("bj")%></a></td>
            <td align=center width="96"><a href="updata.asp?kind=bj&id=<%=rsad("id")%>" title="<%=rsad("xhf")%>">修改</a>
        <a href="admin_del.asp?type=user&id=<%=rsad("id")%>&kind=bjb">删除</a>
</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"></td>
     <td align=center width="96"></td>
<%
next
else
rsad.Close 
set rsad=nothing
set connad=nothing
end if
%>
        </tr>
           
      </table>
  
  </td>
</tr>


<tr>
<%end if%>

<%if request.querystring("kind")="kc" then%>
<td align="center" width="60%"><br><form name="form1" method="post" action="addu.asp"><table width="60%"  border="1" cellspacing="0" cellpadding="0" bordercolor="#CCCCCC">
  <tr align="center">
    <td height="32" colspan="2">添加与班级相对应的课程及类型</td>
    </tr>
  <tr>
    <td width="26%" align="center">班级</td>
    <td width="74%"><select name="bj" id="xh">
                    <!-- #include file="inc/selectbj.asp" --></td>
  </tr>
  <tr>
    <td align="center">课程</td>
    <td><input name="kc" type="text" size="30"></td>
  </tr>  
  

  
    <tr>
    <td align="center">学期</td>
    <td><select name="xq">
                        <option>第一学期</option>
                        <option>第二学期</option>
                        <option>第三学期</option>
                        <option>第四学期</option>
                        <option>第五学期</option>
                        <option>第六学期</option>
                        <option>第七学期</option>
                        <option>第八学期</option>
                      </select></td>
  </tr>
  <tr>
    <td align="center">类型</td>
    <td><select name="lx">
                        <option>必修课</option>
                        <option>选修课</option>
                        <option>限修课</option>
                      </select></td>
  </tr>

  <tr align="center">
    <td colspan="2">
    <input name="kind" type="hidden" value="3">
    <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="14%" align="center">说明</td>
            <td width="86%"> 1.填入相对应的份数，系统自动生成为您方便添加课程。</td>
          </tr>
          <tr>
            <td>&nbsp;</td>
            <td> 2.添加课程只需选择对应的年级就行了，不必理会各个班。</td>
          </tr>
          <tr>
            <td>&nbsp;</td>
            <td>3.请注意信息的完整性，提交后请自行到课程列表进行核对。</td>
          </tr>
        </table></td>
    </tr>
</table>
</form>

</td>
</tr>
<%end if%>
<%if request.querystring("kind")="admin" then
session("return")="admin_add.asp?kind=admin"%>
<tr>
<td align="center" colspan=9 ><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="password" 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>
<tr>
  <td >&nbsp;系统管理员：</td>
</tr>
<tr><td colspan="9">
            <table width="752" border='1'  align="center" cellpadding='0' cellspacing='0' bordercolor="#F0F0F0">
          <tr>
<%

i=0
    set connad=server.createobject("adodb.connection")
    set rsad=server.createobject("adodb.recordset")
    DPath = Server.MapPath("#sp25175_class.asp")
    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 align=center width="96"><%=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="admin_del.asp?id=<%=rsad("id")%>&kind=admin&type=user">删除</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"></td>
     <td align=center width="96"></td>
<%
next
else
rsad.Close 
set rsad=nothing
set connad=nothing
end if
%>
          </tr>
      </table>

</td></tr>

<tr><td colspan="3">&nbsp;</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("#sp25175_class.asp") + ";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="inc/copyright.asp" -->