<%@ LANGUAGE=VBScript codepage ="936" %>
<%Response.Expires=0
Response.Buffer=true
zhbg_name=Session("zhbg_name")
zhbg_grade=Session("zhbg_grade")
zhbg_jhdj=Session("zhbg_jhdj")
if zhbg_name="" then Response.Redirect "../../error.asp?id=440"
if zhbg_grade<9  then Response.Redirect "../../error.asp?id=439"
%>
<%response.buffer=true%>
<!-- #include file=include/setup.inc -->
<html>
<head>
<meta HTTP-EQUIV="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" type="text/css" href="html/guest.css">
</head>
<body text=ffffff bgcolor=000000 leftmargin="20">
<%
pass=request("pass")
if pass="" then
%>
   <form method="POST" action="login.asp"><center>管理员登陆
      <table align="center">
        <tr> 
          <td><span class="p9">密码</span></td>
          <td align="center"> 
            <input name="pass" maxlength="200" class=smallinput>
          </td>
        </tr>
        <tr>
        <tr> 
          <td align="right"></td>
          <td colspan="2" align="center">
              <input type="submit" value="  进 入  " class="buttonface">
          </td>
        </tr>
        <tr> 
          <td align="right"></td>
          
      <td  colspan="2" align="center"> [非凡国度]</td>
        </tr>
      </table>
</div>
</form>
<%else%>
   <!-- #include file=database.asp -->
   <%set Rs=server.CreateObject("ADODB.Recordset")
   Rs.open "select top 1 * from manage",con,1,1
   if Rs.eof or Rs.bof then
      response.write "数据库错误,数据库中注管理员已经不存在,请添加记录后再操作!"
      Rs.close
      set Rs=nothing
      con.close
      set con=nothing
      response.end
   end if
   
   if rs("pass")<>pass then
      response.write "密码错误!"
      Rs.close
      set Rs=nothing
      con.close
      set con=nothing
      response.end
   end if
   
   session("pass")=pass
   response.clear
   Rs.close
   set Rs=nothing
   con.close
   set con=nothing
   response.redirect "manage.asp"
end if
%>
   
   
   
