<!--#include file="Inc.asp"-->
<!--#include file="ydzq1.asp"-->
<%'============================================================
' Copyright 2007-09 燃点真情. All Rights Reserved.
' Last Update: 2008-3-22  13:28
' ADD:wap.nowtx.cn
' E-Mail: xivn@163.com  QQ:531233814
'============================================================
%>
<card title='找回密码'><p>
<%call head()
dim p
p=trim(request.querystring("p"))
if p<>"" then
dim name,mail,userid,pass,sjhm
sjhm=usb(request("sjhm"))
mail=usb(request("mail"))

set rs=Server.CreateObject("ADODB.Recordset")
rs.open"select [ID],[name],[email],[mm],[sjhm] from [users] where [sjhm]='"& sjhm &"' and [email]='"&mail&"' order by [id] desc",conn,1,1
	if rs.eof then
  Call Error("手机号或邮箱错误！")
end if
 sjhm=rs("sjhm")
 pass=rs("mm")
 userid=rs("ID")
rs.close
set rs=nothing
response.Write "您的手机号和密码已成功发送到邮箱！<br/>"
else
Response.Write "你的手机号：<br/><input name=""sjhm"" maxlength=""11""/><br/>"
Response.Write "你的邮箱：<br/><input name=""mail"" maxlength=""50"" value=""@""/><br/>"
Response.Write "<anchor>找回密码"
Response.Write "<go href=""getpass.asp?p=1"" method=""post"" accept-charset=""utf-8"">"
Response.Write "<postfield name=""sjhm"" value=""$(sjhm)""/>"
Response.Write "<postfield name=""mail"" value=""$(mail)""/>"
Response.Write "</go></anchor><br/>"
end if
Response.Write "---------<br/><a href='login.asp?saytk="&saytk&"&amp;sid="&sid&"'>返回登录</a>"& chr(13)
conn.close
set conn=nothing
%><!--#include file="fanhui.asp"-->
</p></card>
</wml>