<!--#include file="include/conn.asp"-->
<!--#include file="menu.asp"-->
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<meta http-equiv="X-UA-Compatible" content="IE=EmulateIE7" />
<meta http-equiv="X-UA-Compatible" content="IE=7" />
<!---通用配置--->
<title>会员中心_<%=sWeb("WebTitle")%>_<%=sWeb("WebUrl")%>_Powered by www.gaozhen.name QQ_47329193</title>
<meta name="keywords" content="<%=sWeb("WebKeyWord")%>" />
<meta name="description" content="<%=sWeb("WebDescription")%>" />
<meta name="author" content="<%=sWeb("WebAuthor")%>" />
<meta name="copyright" content="<%=sWeb("WebCopyright")%>" />
<meta content="all" name="robots" />
<link rel="shortcut icon" href="/include/favicon/favicon.ico" />
<link rel="icon" href="/include/favicon/favicon.gif" type="image/gif" >
<link type="text/css" href="/include/css/global.css" rel="stylesheet" />
<script type="text/javascript" src="/include/Js/config.js"></script>
<script src="/css/addorder.js" type="text/javascript"></script>
<script src="/css/usr.js" type="text/javascript"></script>
<style>table td{font-size:14px;}</style>
<!---网站配置--->
<link type="text/css" href="/css/style.css" rel="stylesheet" />
</head>
<body>
<%Call TopMenu()%>
<%Call HeadMenu()%>
<div id="maindiv">
<!---主体部分--->
<div id="lstpro">
	<div id="lstleft">
<div id="llfff">
<div class="stitle"><h1>会员中心</h1></div>
<div class="scont">
	<ul>
	<li><a href="/UserCenter.asp?gaozhen=myinfo">基本资料</a></li>
	<li><a href="/UserCenter.asp?gaozhen=myreply">我的评论</a></li>
	<li><a href="/UserCenter.asp?gaozhen=myorder">我的订单</a></li>
	<li><a href="/UserCenter.asp?gaozhen=myfav">收藏夹子</a></li>
	<li><a href="/UserCenter.asp?gaozhen=mymail">系统信件</a></li>
	</ul>
</div>
<div class="stitle"><h1>财务中心</h1></div>
<div class="scont">
	<ul>
	<li><a href="/UserCenter.asp?gaozhen=mymoney">消费记录</a></li>
	<li><a href="/UserCenter.asp?gaozhen=mychong">马上充值</a></li>
	<li><a href="/UserCenter.asp?gaozhen=mymoneychong">充值记录</a></li>
	<li><a href="/UserCenter.asp?gaozhen=backmoney">申请退还</a></li>
	</ul>
</div>
</div>



	</div>
	<div id="lstusr">
	<div id="rrfff">
	<div class="sgohome">您现在的位置：首页 >> 找回密码</div>

	<div class="stitle"><h1>找回密码</h1><a name="reg"></a></div>
	<div class="scont">
<%
select case gaozhen
case "myuser" call myuser()
case "myask" call myask()
case "mypass" call mypass()
End Select
%>
<%sub myuser()%>
<form action="?gaozhen=myask" method="post">
<table border="0" width="724" id="table1" cellpadding="2">
	<tr>
		<td width="126" align="right" height="30">请输入您的用户名：</td>
		<td height="30" width="284"><input name="aaaa" size="31"></td>
		<td width="294" height="30">* 请输入您的用户名</td>
	</tr>
	<tr>
		<td width="126" align="right" height="30">　</td>
		<td height="30" width="284"><input class="anlockblue" name="s" type="submit" value="  下一步  "></td>
		<td width="294" height="30">　</td>
	</tr>
	</table>
</form>
<%end sub%>
<%sub myask()%>
<%Dim aaaa
aaaa = Trim(request("aaaa"))
If aaaa="" Then
	Call alert("用户名不能为空.","-1")
End If
'本页
Set v= oConn.Execute("SELECT top 1 UserAsk from [LstUser] where UsrName ='"&aaaa&"' ")
If v.bof And v.eof Then
	Call alert("用户名不存在.","-1")
End If
%>
<form action="?gaozhen=mypass" method="post">
<table border="0" width="724" id="table1" cellpadding="2">
	<tr>
		<td width="126" align="right" height="30">用户名：</td>
		<td height="30" width="284"><%=aaaa%>
		<input name="aaaa" value="<%=aaaa%>" type="hidden"></td>
		<td width="294" height="30"></td>
	</tr>
	<tr>
		<td width="126" align="right" height="30">问题：</td>
		<td height="30" width="284"><%=v(0)%></td>
		<td width="294" height="30"></td>
	</tr>
	<tr>
		<td width="126" align="right" height="30">答案：</td>
		<td height="30" width="284"><input name="bbbb" value="" size=25></td>
		<td width="294" height="30"></td>
	</tr>
	<tr>
		<td width="126" align="right" height="30">　</td>
		<td height="30" width="284"><input class="anlockblue" name="s" type="submit" value="  下一步  "></td>
		<td width="294" height="30"><%If sMstate=1 Then%> * 未收到邮件，请查阅您的垃圾箱。<%End If%></td>
	</tr>
	</table>
</form>
<%end sub%>
<%sub mypass()%>
<%Dim bbbb,aaaa,MtoMail,nPass
bbbb = Trim(request("bbbb"))
aaaa = Trim(request("aaaa"))
nPass = md5(myzm,32)
If bbbb="" Then
	Call alert("答案不能为空.","-1")
End If
'打开数据表
Set oRs=server.createobject("adodb.recordset")
sSql="select top 1 * from LstUser where UsrName='"&aaaa&"'"
oRs.open sSql,oconn,1,1
'判断密码是否正确
If not oRs.eof then
	If oRs("UserAsw")<>bbbb then
		Call Alert("对不起回答有错误.","-1")
	Else
	MtoMail = oRs("UsrEmail")
	oConn.Execute("UPDATE [LstUser] SET UsrPass ='"&nPass&"'  where UsrName ='"&aaaa&"'")
		If sMstate=1 Then
			Call JmailSend("密码找回","密码找回",true,"亲爱的"&aaaa&"，您的密码已经被初始为："&myzm&".,请您http://"&sWeb("WebUrl")&"/网站进行登录修改。",MtoMail,sMtitle,sMserver,sMename,sMname,sMpass)
			Call Alert("密码已经发送到您的邮箱，请注意查收。","/index.asp#login")
		Else
			Call Alert("亲爱的"&aaaa&"，您的密码已经被初始化为："&myzm&".\n请您登录之后立即修改密码。","/index.asp#login")
		End If
			
	End If
Else
	Call Alert("您的用户名可能不存在.","-1")
End If	
%>
<%end sub%>

	</div>
	</div>
	</div>
</div>
<!---版权部分--->
<div class="clear"></div>
<%Call HelpMenu()%>
<%Call ShowEnd()%>
</div>
</body>
</html>
