register.asp

成绩查询管理系统

<!-- #include file="inc/top.asp"-->
<!-- #include file="inc/stumenu.asp"-->
<!-- #include file="inc/conn.asp" -->

<div align="center"><table width="752" border="1" cellspacing="0" cellpadding="0" bordercolor="#aaaaaa">
  <tr>
    <td align="center">
    <br><table width="70%" border="0" cellpadding="0" cellspacing="0">
      <tr>
        <td align="center">
<%
  if request.querystring("action")="reg" then
%>
            <form name="form1" method="post" action="addu.asp">
        <table width="70%"  border="1" cellspacing="0" cellpadding="0" bordercolor="#CCCCCC">
          <tr align="center">
            <td height="29" colspan="3"> 学生信息注册</td>
            </tr>

          <tr>
            <td align="center">班级</td>
            <td><select name="bj" id="xh">
                <!-- #include file="inc/selectbj.asp" -->
            </td>
          </tr>
          <tr>
            <td align="center">学号</td>
            <td>
                <input name="xh" type="text" size="30">
            </td>
          </tr>
          <tr>
            <td width="34%" align="center">姓名</td>
            <td width="66%"><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>
                <input type=radio name=sex value=男 checked>男
                <input type=radio name=sex value=女>女
            </td>
          </tr>
          <tr>
            <td height="25" align="center">取回密码提问</td>
            <td height="25"><input name="question" size="30" maxlength="20" class="editbox1">
            </td>
          </tr>
          <tr>
            <td height="25" align="center">取回密码答案</td>
            <td height="25"><input name="answer" size="30" maxlength="20" class="editbox1">
            </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></td><td>2.如果发现有任何错误，请与系统管理员联系。</td></tr>
            </table>

            </td>
            </tr>
        </table></form>
<%end if%>
<%if Request.Querystring("action")="getpass" and Request.form("next")="" then%>
        <form name="form2" method="post" action="register.asp?action=getpass">
        <table width="70%"  border="1" cellspacing="0" cellpadding="0" bordercolor="#CCCCCC">
          <tr align="center">
            <td height="29" colspan="3">取回密码&nbsp;&nbsp;[<font color=red>第一步</font>:请输入您的学号]</td>
            </tr>
            <tr>
                <td width="30%" align=center>学号：</td><td><input name=xh size=30 maxlength=12 value=""></td>
            </tr>
            <tr>
                <td colspan=2 align=center><input type=submit value=下一步></td>
            </tr><input type=hidden name=next value="second">
        </table></form>
<%end if%>
<%if Request.Form("next")="second" and Request.Querystring("action")="getpass" then
    sql="select xh,question,answer,mm from user where xh = '"&trim(Replace(Request.Form("xh"),"'",""))&"'"
      set rs = conn.execute(sql)
        if rs.eof and rs.bof then
            response.write "<script language=JavaScript>" & chr(13) & "alert('您所输入的学号不存在，请确认！');" & "history.back()" & "</script>"
            Response.End
        else
            xh=rs(0)
            question=trim(rs(1))
            session("answer")=rs(2)
            session("mm1")=rs(3)
            set rs=nothing
            set conn=nothing
        end if
%>
        <form name="form3" method="post" action="register.asp?action=getpass">
        <table width="70%"  border="1" cellspacing="0" cellpadding="0" bordercolor="#CCCCCC">
          <tr align="center">
            <td height="29" colspan="3">取回密码&nbsp;&nbsp;[<font color=red>第二步</font>:请输入您的答案]</td>
            </tr>
            <tr>
                <td width="30%" align=center>取回密码问题：</td><td>&nbsp;<%=question%></td>
            </tr>
            <tr>
                <td width="30%" align=center>取回密码答案：</td><td><input name=answer size=40 maxlength=20></td>
            </tr>
            <tr>
                <td colspan=2 align=center><input type=submit value=下一步></td>
            </tr><input type=hidden name=next value="third">
        </table></form>
<%end if%>
<%if Request.Querystring("action")="getpass" and Request.form("next")="third" then
    if Request.Form("answer")<>session("answer") then
            response.write "<script language=JavaScript>" & chr(13) & "alert('您所输入的答案不正确，请确认！');" & "window.location.href = 'index.asp'" & "</script>"
            Response.End
    end if
%>
        <table width="70%"  border="1" cellspacing="0" cellpadding="0" bordercolor="#CCCCCC">
          <tr align="center">
            <td height="29" colspan="3">取回密码&nbsp;&nbsp;[<font color=red>第三步</font>:恭喜你，答案正确！]</td>
            </tr>
            <tr>
                <td width="30%" align=center>您的密码：</td><td align=center><<< <%=session("mm1")%> >>></td>
            </tr>
        </table><br>
<%end if%>
    </td>
      </tr>
    </table></td>
  </tr>
</table>
</div>
<!-- #include file="inc/copyr.asp" -->