checklogin.asp

来自「学生成绩管理系统」· ASP 代码 · 共 131 行

<!-- #include file="inc/conn.asp" -->
<%
response.buffer=true
Response.Expires=0
if session("pwd")<>"" then
mm=session("pwd")
else
mm=request("mm")
end if
if session("user")<>"" then
xh=session("user")
else
xh=request("xh")
end if
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select id from user where xh='"&xh&"' and mm='"&mm&"'"
rs.open sql,conn,3,3

if rs.eof then
response.write("<table width=300 border=0 cellspacing=0 cellpadding=0 align=center>")
response.write("<script language=JavaScript>" & chr(13) & "alert('无效的学号或密码，请重新确认');" & "history.back()" & "</script>")
response.write("</table>")
response.end
else 
session("pwd")=mm
session("user")=xh

%>
<!-- #include file="inc/top.asp" -->
<%define="1"%>


<table><!-- #include file="inc/stumenu.asp"--></table><br/>
<table width="1019" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td colspan="5" align="center">
    <form action="stulook.asp" method="post" name="form0" >
  <table  cellpadding="0" cellspacing="0" border="1" bordercolor="#e0e0e0">
    <tr> 
            <td height="25" nowrap>
              <div align="center">查询您的全部成绩：</div>        
            </td>
            <td width="200" height="25"> 
              <input type="hidden" name="xh" value="<%=request("xh")%>">
              <input name="submit" type="submit" value="确定">
              <input name="al" type=hidden value="1"></td>
    </tr>
  </table>
    </form>  </td>
  </tr>
<tr><td align="center"><table width="100%"  border="0" cellspacing="0" cellpadding="0">
<tr><td height="30" colspan="4" align="center"><strong>分类查询</strong></td>
</tr>
  <tr>
  <td>
<form action="stulook.asp" method="post" name="form1" >
  <table border="1" cellpadding="0" cellspacing="0" bordercolor="#e0e0e0">
   <tr bgcolor="#CCCCCC"><td height="25" colspan="2" align="center">按姓名查询</td>
   </tr>
   <tr><td width="50" height="25" align="center">姓名：</td><td width="150" height="25">
       <input type=text name="xm" value="张" size="15">
       </td></tr>
   <tr><td height="25" colspan="2" align="center"><input type="hidden" name="xh" value="<%=request("xh")%>"><input name="submit" type="submit" value="提交"></td></tr>
  </table>
</form>
</td>
    <td>
<form action="stulook.asp" method="post" name="form1" >
  <table border="1" cellpadding="0" cellspacing="0" bordercolor="#e0e0e0">
   <tr bgcolor="#EEEEEE"><td height="25" colspan="2" align="center">按课程查询</td>
   </tr>
   <tr><td width="50" height="25" align="center">课程：</td><td width="150" height="25">
       <input type=text name="kc" size="15">
       </td></tr>
   <tr><td height="25" colspan="2" align="center"><input type="hidden" name="xh" value="<%=request("xh")%>"><input name="submit" type="submit" value="提交"></td></tr>
  </table>
</form>
</td>
    <td>
<form action="stulook.asp" method="post" name="form1" >
  <table border="1" cellpadding="0" cellspacing="0" bordercolor="#e0e0e0">
   <tr bgcolor="#CCCCCC"><td height="25" colspan="2" align="center">按成绩查询</td>
   </tr>
   <tr><td width="50" height="25" align="center">成绩：</td><td width="150" height="25">
       <input type=text name="cj" size="15">
       </td></tr>
   <tr><td height="25" colspan="2" align="center"><input type="hidden" name="xh" value="<%=request("xh")%>"><input name="submit" type="submit" value="提交"></td></tr>
  </table>
</form>
</td>
    <td>
<form action="stulook.asp" method="post" name="form1" >
  <table border="1" cellpadding="0" cellspacing="0" bordercolor="#e0e0e0">
   <tr bgcolor="#EEEEEE"><td height="25" colspan="2" align="center">按学期查询</td>
   </tr>
   <tr><td width="50" height="25" align="center">学期：</td><td width="150" height="25">
        <select name="xq"><option>04-05 下学期</option>
                    <option>05-06 上学期</option>
                    <option>05-06 下学期</option>
                    <option>06-07 上学期</option>
                    <option>06-07 下学期</option>
                    <option>07-08 上学期</option>
                    <option>07-08 下学期</option>
                    <option>08-09 上学期</option></select>
       </td></tr>
   <tr><td height="25" colspan="2" align="center"><input type="hidden" name="xh" value="<%=request("xh")%>"><input name="submit" type="submit" value="提交"></td></tr>
  </table>
</form>
</td>
    <td>
<form action="stulook.asp" method="post" name="form1" >
  <table border="1" cellpadding="0" cellspacing="0" bordercolor="#e0e0e0">
   <tr bgcolor="#CCCCCC"><td height="25" colspan="2" align="center">按类型查询</td>
   </tr>
   <tr><td width="50" height="25" align="center">类型：</td><td width="150" height="25">
       <select name="lx"><option>必修课</option><option>选修课</option><option>限修课</option></select>
       </td></tr>
   <tr><td height="25" colspan="2" align="center"><input type="hidden" name="xh" value="<%=request("xh")%>"><input name="submit" type="submit" value="提交"></td></tr>
  </table>
</form>
</td>
  </tr>
</table></td></tr>
</table>


<!-- #include file=inc/copyr.asp -->
<%
end if
%>