checklogin.asp

教师工资管理系统 管理员功能: 1.添加单个成绩 2.批量添加成绩 3.通过搜索并修改与删除 4.直接修改 5.可以批量删除 6.可以直接GO到达你想到达的页 7.清空

<!-- #include file="inc/top.asp" -->
<!-- #include file="inc/stumenu.asp"-->
<table width="768"  border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#666699">
  <tr>
    <td valign='top'> <p>  <img src="images/111.jpg" width="767" height="200"><br>
        <span style="color: #666699"></span><br>
    </p>    </td>
  </tr>
</table>
<%
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 conn = Server.CreateObject("ADODB.Connection")
conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("#25175class_cj.asp")
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

%>
<%define="1"%>
<table width="768" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td>
    <form action="stulook.asp" method="post" name="form1" >
  <table border="0" cellpadding="0" cellspacing="0">
    <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">&nbsp;</td>
  </tr>
</table>


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