admin_addxhs.asp

功能: 1.添加单个成绩 2.批量添加成绩 3.通过搜索并修改与删除 4.直接修改 5.可以批量删除 6.可以直接GO到达你想到达的页

<%if session("password")<>"" then%>
<!-- #include file="top.asp"-->
<!-- #include file="adminmenu.asp"-->
<%session("return")="admin_addxhs.asp"%>
<table width="768" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td>&nbsp;</td>
  </tr>
</table>
<table width="768" height="235" align="center" cellpadding="0" cellspacing="0" class="unnamed_rld2">
<tr>
<td align="center"><table width="450" border="0" cellspacing="0" cellpadding="0">
  <tr align="center">
    <td width="450" align="center" > <form name="form1" method="post" action="admin_addxh.asp">
      <table width="100%"  border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#eeeeee">
        <tr align="center">
          <td colspan="2">批量添加学号</td>
          </tr>
        <tr align="center">
          <td width="32%">选择班级</td>
          <td width="68%"><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 size="10"><%=rs("bj")%></option>
<%
rs.movenext
loop
rs.Close
set rs=nothing
set conn=nothing
%>
 </select>
</td>
          </tr>
        <tr align="center">
          <td>学号起始</td>
          <td>From
            <input name="start" type="text" size="10" value="0">
            to
            <input name="end" type="text" size="10" value="1"></td>
          </tr>
        <tr align="center">
          <td colspan="2"><input type="submit" name="Submit" value="提交">
            <input type="reset" name="Submit2" value="重置"></td>
          </tr>
        <tr align="left">
          <td colspan="2"><table width="100%"  border="0" cellspacing="1" cellpadding="0">
            <tr>
              <td width="11%" height="25" align="center">说明：</td>
              <td width="89%" bgcolor="#A0A4AC">&nbsp;1.您所添加的学号将以其相同的数字作为密码添加到数据库中进行保存。</td>
            </tr>
            <tr>
              <td height="25">&nbsp;</td>
              <td bgcolor="#A0A4AC">&nbsp;2.添加的起始只需填入学号最后面的<font color=red>两位</font>数。</td>
            </tr>
            <tr>
              <td height="25">&nbsp;</td>
              <td bgcolor="#A0A4AC">&nbsp;3.请于添加后到<a href="admin_user.asp">用户管理</a>一栏进行确认。</td>
            </tr>
          </table></td>
        </tr>
      </table>
    </form></td>
    </tr>
</table>

</td>
</tr>
<tr>
  <td height="25" align="center">班级及其学号启始代码浏览及修改</td>
</tr>
<tr>
  <td>
 
                     <table width="768" border='1'  align="center" cellpadding='0' cellspacing='0' bordercolor="#F0F0F0" 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 bjb 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" nowrap><%=rsad("bj")%></td>
            <td align=center width="96"><a href="updata.asp?kind=bj&id=<%=rsad("id")%>">修改</a>
<a href="delu.asp?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">&nbsp;</td>
     <td align=center width="96">&nbsp;</td>
<%
next
else
rsad.Close 
set rsad=nothing
set connad=nothing
end if
%>
          </tr>
          <tr>
            <td align=center nowrap colspan="8"><table width="100%"  border="0" cellspacing="0" cellpadding="0">
              <tr>
                <td width="25%">&nbsp;</td>
                <td width="25%">&nbsp;</td>
                <td width="25%">&nbsp;</td>
                <td width="25%" align="center"><a href="admin_bjkc.asp"></a></td>
              </tr>
            </table></td>
            
          </tr>
      </table>
  
  </td>
</tr>
</table>

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