admpost.asp

学生成绩管理系统 :功能: 1.添加单个成绩 2.批量添加成绩 3.通过搜索并修改与删除 4.直接修改 5.可以批量删除 6.可以直接GO到达你想到达的页 7.分页显示 后台

<%
    username=request("username")                                                            '接受管理员用户名
    password=request("password")                                                            '接受管理员密码
    keys=request("keys")
    mm=0
%> 
<!--#include file="inc/conn1.asp"-->
<%
    if username<>"" or password<>"" then
        set rs=newconn.execute("select * from admin where username='"& username & "'")              '判断是否存在该用户
            if not (rs.bof and rs.eof) then                                                 '判断是否有该权限
                if rs("password")=password then
                   session("password")=rs("password")
                   session("username")=rs("username")
                                                            '为真则将该用户的该权限放入SESSION中
                   Response.Redirect "admin_main.htm"                                            '跳转到管理员管理页面
                else
                   mm=1
session("username")=""
session("Password")=""
                end if
            else
                mm=2
session("username")=""
session("Password")=""
            end if
        elseif keys="submit" then
        mm=3
session("username")=""
session("Password")=""
    end if
%>
<!-- #include file="inc/top.asp" -->

<table width="300"  border="0" align="center" cellpadding="0" cellspacing="0" bordercolor="#97C4CA">
      <tr>
        <td valign='top'><div align=center>
            <form action="admpost.asp" method="post" name="form2" id="form2">
              <table width="300" border="0">
                <tr align="center"> </tr>
                <tr>
                  <td colspan="2"><table width="100%"  border="0" cellspacing="0" cellpadding="0">
                    <tr>
                      <td width="15%">&nbsp;</td>
                      <td width="85%"><%
            if mm=1     then 
               Response.Write "对不起，您输入的密码有误！"
            elseif mm=2 then
               Response.Write "您没有登陆的权限！"
            elseif mm=3 then
               Response.Write "请输入完整的用户名和密码！"
            end if
           %></td>
                    </tr>
                  </table>
                  </td>
                </tr>
                <tr>
                  <td width="197" align="right">                  管理员帐号：</td>
                  <td width="205"><input name="keys" type="hidden" value="submit">
                      <input name="username" type="text" class="editbox1" id="username" size="20" maxlength="20"></td>
                </tr>
                <tr>
                  <td align="right">管理员密码：</td>
                  <td><input name="password" type="password" class="editbox1" size="20" maxlength="20"></td>
                </tr>
                <tr align="center">
                  <td colspan="2">
                    <input type="submit" name="Reg2" value="登录" class="bottom">
                    <input type="reset" name="Submit32" value="重填" class="bottom">
                  </td>
                </tr>
              </table>
            </form>
            <p>     
        </div></td>
      </tr>
</table>
<!-- #include file="inc/copyr.asp" -->