<!--#include file="../Inc/Cls_DB.asp" -->
<!--#include file="../Inc/Const.asp" -->
<%
Dim DBC,Conn
Set DBC = New DataBaseClass
Set Conn = DBC.OpenConnection()
Set DBC = Nothing
%>
<html>
<head>
<link href="../CSS/css.css" rel="stylesheet" type="text/css">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>找回密码</title>
</head>
<body>
<table width="80%" border="0" align="center" cellpadding="5" cellspacing="1" bgcolor="#B4B4B4">
  <tr> 
    <td height="25" bgcolor="#DFDFDF">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;用户找回密码>>第二步:回答密码提示问题</td>
  </tr>
</table>
<%
set RsMemObj = Server.CreateObject ("ADODB.RecordSet")
RsMemObj.Source="select * from Members where MemName='"& Replace(Trim(Request.Form("MemName")),"'","''") &"'"
RsMemObj.Open RsMemObj.Source,Conn,1,1
if Not RsMemObj.eof then
Call main()
else
Call Nonerecode()
end if
sub main()
%> 
      <form name="form1" method="post" action="UserForGet2.asp">
        <div align="center">
          <table width="80%" border="0" align="center" cellpadding="5" cellspacing="1" bordercolor="e6e6e6" bgcolor="#B4B4B4">
            <tr bgcolor="#FFFFFF"> 
              <td width="40%"> <div align="right">你得密码问题：</div></td>
              <td width="60%"><input name="MemName" type="hidden" id="MemName" value="<%=RsMemObj("MemName")%>"> 
                <%=RsMemObj("PassQuestion")%></td>
            </tr>
            <tr bgcolor="#FFFFFF"> 
              <td> <div align="right">请输入你的密码答案：</div></td>
              <td><input name="PassAnswer" type="text" id="PassAnswer"></td>
            </tr>
            <tr bgcolor="#FFFFFF">
              <td><div align="right">你的电子邮件：</div></td>
              <td><input name="email" type="text" id="PassAnswer3"></td>
            </tr>
            <tr bgcolor="#FFFFFF"> 
              <td colspan="2"><div align="center">
                <input name="Submit" type="submit" class="Anbut1" value="下一步">
              </div></td>
            </tr>
            <tr bgcolor="#FFFFFF">
              <td colspan="2">&nbsp;</td>
            </tr>
            <tr bgcolor="#DFDFDF">
              <td colspan="2"><div align="center"> 
            <%
		Dim Rsconfig
		set Rsconfig=conn.execute("select * from config")
		Response.Write(""&Rsconfig("Copyright")&"")
		Rsconfig.close
		set Rsconfig=nothing
		%>
          </div></td>
            </tr>
          </table>
        </div>
      </form>
	  <%end sub%>
	  <%sub Nonerecode()%>
	  <table width="80%" border="0" align="center" cellpadding="5" cellspacing="1" bordercolor="e6e6e6" bgcolor="e6e6e6">
	    <tr><td bgcolor="#FFFFFF">
	  <%response.Write("未查询到此用户")%>
</td></tr></table>
	  <%end sub%>
</body>
</html>

