<%
function WebMenu()
If session("MemName")="" Or session("GroupID")="" Or session("MemLogin")<>"Succeed" Then
response.write "注册会员"
Else
response.write "修改注册资料"
response.write "我的留言"
response.write "我的订单"
response.write "我的应聘"
response.write "退出登录"
End If
end function
function WebLocation()
WebLocation=" 当前位置：首页 - 会员中心 - 密码找回"&VbCrLf
end Function
function MemGroup(GroupID)
dim rs,sql
set rs = server.createobject("adodb.recordset")
sql="select * from Qianbo_MemGroup where GroupID='"&GroupID&"'"
rs.open sql,conn,1,1
MemGroup=rs("GroupName")
rs.close
set rs=nothing
end function
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 Qianbo_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
%>
<%
elseif request.QueryString("Step")="EnterAnswer" Then
If trim(request("Answer"))="" Then
WriteMsg("请填写密码保护答案！")
exit function
End If
set rs = server.createobject("adodb.recordset")
sql="select * from Qianbo_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
Response.Write ""
exit function
end if
end function
%>
<%=WebLocation()%>