<%=WebContent()%> <% function WebContent() dim rs,sql,NewPassword if request.QueryString("Step")="" then %>

登 录 名：
电子邮箱：

<% elseif request.QueryString("Step")="EnterNameMail" then set rs = server.createobject("adodb.recordset") sql="select * from F_Yang_Members where MemName='"&request.form("MemName")&"' and Email='"&request.form("Email")&"'" rs.open sql,conn,1,1 if rs.eof then WriteMsg("·登录名和电子邮箱不存在或不对应，请返回重新输入。") exit function end if %> " method="post" name="form" id="form">

登 录 名：	<%=rs("MemName")%>
电子邮箱：	<%=rs("Email")%>
密码提示问题：	<%=rs("Question")%>
密码提示答案：

<% elseif request.QueryString("Step")="EnterAnswer" then set rs = server.createobject("adodb.recordset") sql="select * from F_Yang_Members where ID="&request.QueryString("ID") rs.open sql,conn,1,3 if rs.eof then WriteMsg("·数据读取异常错误。") exit function end if if rs("Answer")<>MD5(trim(request("Answer"))) then WriteMsg("·输入的密码提示答案不正确。") exit function end if randomize timer NewPassword=Int(899999*Rnd() +100000) rs("Password")=MD5(NewPassword) rs.update rs.close set rs=nothing WriteMsg("·您的新密码是"&NewPassword&"，请记住密码或登录修改成易记、安全的密码。") exit function end if end function %>