<% Option Explicit %>
<!--#include file="../../Inc/Const.asp" -->
<!--#include file="../../Inc/Cls_DB.asp" -->
<!--#include file="../Inc/Cls_Admin.asp" -->
<!--#include file="../../Inc/Md5.asp" -->
<%
Dim DBC,Conn
Set DBC = New DataBaseClass
Set Conn = DBC.OpenConnection()
Set DBC = Nothing
%>
<!--#include file="../../Inc/Session.asp" -->
<!--#include file="../../Inc/CheckPopedom.asp" -->
<%
if Not JudgePopedomTF(Session("Name"),"P0805") then Call ReturnError()
Dim AdminID,Result
Result = Request("Result")
AdminID = Replace(Replace(Request("AdminID"),"'",""),"""","")
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>修改管理员密码</title>
</head>
<link href="System.css" rel="stylesheet">
<body>
<div align="center">
  <table width="95%" border="0" cellspacing="0" cellpadding="0">
  <form action="" method="post" name="PassWordForm">
    <tr>
      <td height="15" colspan="2">&nbsp;</td>
      </tr>
    <tr> 
      <td width="23%" height="30"> 
        <div align="left">&nbsp;&nbsp;&nbsp;新 密 码</div></td>
      <td width="77%" height="30"> 
        <div align="left"> 
          <input name="PassWord" type="password" id="PassWord" style="width:100%;">
        </div></td>
    </tr>
    <tr> 
      <td height="30"><div align="left">&nbsp;&nbsp;&nbsp;确认密码</div></td>
      <td height="30"><div align="left"><input name="AffirmPassWord" type="password" id="AffirmPassWord" style="width:100%;">
        </div></td>
    </tr>
    <tr> 
      <td height="50" colspan="2"> 
        <div align="center"> 
                  <input type="submit" name="Submit" value=" 确 定 ">
                    <input name="AdminID" value="<% = AdminID %>" type="hidden" id="AdminID">
                    <input name="Result" type="hidden" id="Result" value="Submit">
                    <input type="button" onClick="window.close();" name="Submit2" value=" 取 消 ">
        </div></td>
    </tr>
 </form>
  </table>
</div>
</body>
</html>
<%
if Result = "Submit" then
	Dim AClass,ReturnCheckInfo
	Set AClass = New AdminClass
	AClass.TForm = Request.Form
	ReturnCheckInfo = AClass.SetPassWord()
	if ReturnCheckInfo <> "" then
%>
<script>alert('<% = ReturnCheckInfo %>');</script>
<%
	end if
%>
<script>dialogArguments.location.reload();window.close();</script>
<%
end if
Set Conn = Nothing
%>