updata.asp

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

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

<!-- #include file="top.asp" -->
<!-- #include file="adminmenu.asp" -->

<table width="752" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td>&nbsp;</td>
  </tr>
</table>
<%if request("kind")="admin" then%>

<%
    id=trim(Request("id"))
    sqlcmd = ("select  * from admin where id="&id)          '查询id(ID号)这条记录
    rs.Open sqlcmd,newconn,1,1
session("user")=rs("username")
%>
<table width="752" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td><form method="POST" action="modify.asp">
        <table width="300" border="0" cellspacing="0" cellpadding="0" align="center">
          <tr>
            <td height="25" align="center">&nbsp;</td>
            <td height="25">&nbsp;</td>
            <td height="25">&nbsp;</td>
          </tr>
          <tr>
            <td width="57" height="25" align="center">用户名</td>
            <td width="16" height="25">　</td>
            <td width="225" height="25">
              <input name="username" size="25" maxlength="30"  class="editbox1" value="<%=rs("username")%>">
            </td>
          </tr>
          <tr>
            <td height="25" align="center">密码</td>
            <td width="16" height="25">&nbsp;</td>
            <td width="225" height="25">
              <input name="password" type="password" size="25" maxlength="30" class="editbox1" value="<%=rs("password")%>"></td>
          </tr>

          <tr>
            <td height="25" colspan="3">　　　　　　　　
                <div align="center">
                  <input class=bottom name=B12 type=submit value="修改记录">
                  <input class=bottom name=B22 type=reset value="重新填写">
                  <input type="hidden" name="kind" value="0">
                  <input type="hidden" name="id" value="<%=rs("id")%>">
              </div></td>
          </tr>
        </table>
</form>
</td>
  </tr>
</table>

<%end if%>
<%if request("kind")="user" then%>

<%
    id=trim(Request("id"))
    sqlcmd = ("select  * from user where id="&id)           '查询id(ID号)这条记录
    rs.Open sqlcmd,newconn,1,1
session("xh")=rs("xh")
session("return")="admin_user.asp"
%> 

<table width="752" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td><form method="POST" action="modify.asp">
        <table width="300" border="0" cellspacing="0" cellpadding="0" align="center">
          <tr>
            <td width="57" height="25" align="center">班级</td>
            <td width="16" height="25">　</td>
            <td width="225" height="25">
              <input name="bj" size="25" maxlength="30"  class="editbox1" value="<%=rs("bj")%>">
            </td>
          </tr>
          <tr>
            <td height="25" align="center">学号</td>
            <td width="16" height="25">&nbsp;</td>
            <td width="225" height="25">
              <input name="xh" size="25" maxlength="30" class="editbox1" value="<%=rs("xh")%>"></td>
          </tr>
          <tr>
            <td width="57" height="25" align="center">姓名</td>
            <td width="16" height="25">　</td>
            <td width="225" height="25">
              <input name="xm" size="25" maxlength="40" class="editbox1" value="<%=rs("xm")%>">
            </td>
          </tr>
          <tr>
            <td width="57" height="25" align="center">密码</td>
            <td width="16" height="25">　</td>
            <td width="225" height="25">
              <input type="text" name="mm" size="25" class="editbox1" value="<%=rs("mm")%>">
            </td>
          </tr>
          <tr>
            <td width="57" height="25" align="center">性别</td>
            <td width="16" height="25">&nbsp;</td>
            <td width="225" height="25">
              <input name="sex" size="25" maxlength="100" class="editbox1" value="<%=rs("sex")%>">
            </td>
          </tr>
          <tr>
            <td width="57" height="25" align="center">住址</td>
            <td width="16" height="25">&nbsp;</td>
            <td width="225" height="25"><input name="addr" size="25" maxlength="100" class="editbox1" value="<%=rs("addr")%>">
            </td>
          </tr>
          <tr>
            <td width="57" height="25" align="center">邮编</td>
            <td width="16" height="25">&nbsp;</td>
            <td width="225" height="25"><input name="yb" size="25" maxlength="100" class="editbox1" value="<%=rs("yb")%>">
            </td>
          </tr>
          <tr>
            <td height="25" colspan="3">　　　　　　　　
                <div align="center">
                  <input class=bottom name=B12 type=submit value="修改记录">
                  <input class=bottom name=B22 type=reset value="重新填写">
                  <input type="hidden" name="id" value="<%=rs("id")%>">
                  <input type="hidden" name="kind" value="1">
              </div></td>
          </tr>
        </table>
</form>
</td>
  </tr>
</table>
<%end if%>


<%if request("kind")="date" then%>
<%
    id=trim(Request("id"))
    sqlcmd = ("select  * from bbs1 where id="&id)           '查询id(ID号)这条记录
    rs.Open sqlcmd,newconn,1,1
%> 

<table width="752" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td><form method="POST" action="modify.asp">
        <table width="300" border="0" cellspacing="0" cellpadding="0" align="center">
          <tr>
            <td width="57" height="25" align="center">班级</td>
            <td width="16" height="25">　</td>
            <td width="225" height="25">
              <input name="bj" size="25" maxlength="30"  class="editbox1" value="<%=rs("bj")%>">
            </td>
          </tr>
          <tr>
            <td height="25" align="center">学号</td>
            <td width="16" height="25">&nbsp;</td>
            <td width="225" height="25">
              <input name="xh" size="25" maxlength="30" class="editbox1" value="<%=rs("xh")%>"></td>
          </tr>
          <tr>
            <td width="57" height="25" align="center">姓名</td>
            <td width="16" height="25">　</td>
            <td width="225" height="25">
              <input name="user" size="25" maxlength="40" class="editbox1" value="<%=rs("user")%>">
            </td>
          </tr>
          <tr>
            <td width="57" height="25" align="center">课程</td>
            <td width="16" height="25">　</td>
            <td width="225" height="25">
              <input type="text" name="kc" size="25" class="editbox1" value="<%=rs("kc")%>">
            </td>
          </tr>
          <tr>
            <td width="57" height="25" align="center">成绩</td>
            <td width="16" height="25">&nbsp;</td>
            <td width="225" height="25">
              <input name="cj" size="25" maxlength="100" class="editbox1" value="<%=rs("cj")%>">
            </td>
          </tr>
          <tr>
            <td width="57" height="25" align="center">学期</td>
            <td width="16" height="25">&nbsp;</td>
            <td width="225" height="25">
                <select name="xq" class="editbox1">
                  <option<%if rs("xq")="第一学期" then response.write(" selected")%>>第一学期</option>
                  <option<%if rs("xq")="第二学期" then response.write(" selected")%>>第二学期</option>
                  <option<%if rs("xq")="第三学期" then response.write(" selected")%>>第三学期</option>
                  <option<%if rs("xq")="第四学期" then response.write(" selected")%>>第四学期</option>
                  <option<%if rs("xq")="第五学期" then response.write(" selected")%>>第五学期</option>
                  <option<%if rs("xq")="第六学期" then response.write(" selected")%>>第六学期</option>
                  <option<%if rs("xq")="第七学期" then response.write(" selected")%>>第七学期</option>
                  <option<%if rs("xq")="第八学期" then response.write(" selected")%>>第八学期</option>
                </select>
            </td>
          </tr>
          <tr>
            <td width="57" height="25" align="center">类型</td>
            <td width="16" height="25">&nbsp;</td>
            <td width="225" height="25">
            <select name="lx" type="lx">
               <option<%if rs("lx")="必修课" then response.write(" selected")%>>必修课</option>
               <option<%if rs("lx")="选修课" then response.write(" selected")%>>选修课</option>
               <option<%if rs("lx")="限修课" then response.write(" selected")%>>限修课</option>
            </select>

            </td>
          </tr>
          <tr>
            <td height="25" colspan="3">　　　　　　　　
                <div align="center">
                  <input class=bottom name=B12 type=submit value="修改记录">
                  <input class=bottom name=B22 type=reset value="重新添写">
                  <input type="hidden" name="id" value="<%=rs("id")%>">
                  <input type="hidden" name="kind" value="2">
              </div></td>
          </tr>
        </table>
</form>
</td>
  </tr>
</table>
<%end if%>

<%if request("kind")="bj" then%>

<%
    id=trim(Request("id"))
    sqlcmd = ("select  * from bjb where id="&id)          '查询id(ID号)这条记录
    rs.Open sqlcmd,newconn,1,1
%>
<table width="752" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td><form method="POST" action="modify.asp">
        <table width="300" border="0" cellspacing="0" cellpadding="0" align="center">
          <tr>
            <td height="25" align="center">&nbsp;</td>
            <td height="25">&nbsp;</td>
            <td height="25">&nbsp;</td>
          </tr>
          <tr>
            <td width="57" height="25" align="center">班级</td>
            <td width="16" height="25">　</td>
            <td width="225" height="25">
              <input name="bj" size="25" maxlength="30"  class="editbox1" value="<%=rs("bj")%>">
            </td>
          </tr>
          <tr>
            <td height="25" align="center">学号代码</td>
            <td width="16" height="25">&nbsp;</td>
            <td width="225" height="25">
              <input name="xhf" type="text" size="25" maxlength="30" class="editbox1" value="<%=rs("xhf")%>"></td>
          </tr>

          <tr>
            <td height="25" colspan="3">　　　　　　　　
                <div align="center">
                  <input class=bottom name=B12 type=submit value="修改记录">
                  <input class=bottom name=B22 type=reset value="重新填写">
                  <input type="hidden" name="kind" value="3">
                  <input type="hidden" name="id" value="<%=rs("id")%>">
              </div></td>
          </tr>
        </table>
</form>
</td>
  </tr>
</table>

<%end if%>








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