register.asp

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

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

<%
const homepage="checklogin.asp"
session("return")="checklogin.asp"
if request("xh")="" then
%>
<!-- #include file="top.asp"-->

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

<div align="center"><table width="768" border="1" cellspacing="0" cellpadding="0" bordercolor="#aaaaaa">
  <tr>
    <td align="center"><table width="70%" border="0" cellpadding="0" cellspacing="0">
      <tr>
        <td align="center"><form name="form1" method="post" action="addu.asp"><table width="300"  border="1" cellspacing="0" cellpadding="0" bordercolor="#CCCCCC">
          <tr align="center">
            <td height="29" colspan="2"> 学生信息注册</td>
            </tr>

          <tr>
            <td align="center">学号</td>
            <td><input name="xh" type="text" size="30"></td>
          </tr>
          <tr>
            <td align="center">班级 </td>
            <td><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 selected size="10"<%if rs("bj")=request("bj") then response.write(" selected")%>><%=rs("bj")%></option>
<%
rs.movenext
loop
rs.Close
set rs=nothing
set conn=nothing
%>
            </select></td>
          </tr>
          <tr>
            <td width="28%" align="center">姓名 </td>
            <td width="72%"><input name="user" type="text" size="30"></td>
          </tr>
          <tr>
            <td align="center">密码 </td>
            <td><input name="mm" type="password" size="30"></td>
          </tr>
          <tr>
            <td align="center">验证密码 </td>
            <td><input name="mm1" type="password" 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 align="center">
            <td colspan="2">

            <table cellspacing="0" cellpadding="0">
            <tr valign=top><td width="15%" align=center>说明</td><td>1.如果您未输入密码，系统将以您的学号作为密码。</td></tr>
            <tr><td width="15%" align=center>&nbsp;</td><td>2.如果发现有任何错误，请与系统管理员联系。</td></tr>
            </table>

            </td>
            </tr>
        </table></form></td>
      </tr>
    </table></td>
  </tr>
</table>
</div>
<!-- #include file="copyr.asp" -->
<%
else
if session("goback")="" then session("goback")=homepage
response.Redirect session("goback")
end if
%>