<%
dim founderr,errmsg
stats="密码遗忘"
call nav()
call headline()
call main()
call endline()
sub main()
if request("action")="getpass" then
dim email
dim rs,sql
if request("email")="" then
Errmsg=Errmsg+" "+"
请确认输入邮件地址。"
founderr=true
else
email=request("email")
set rs=server.createobject("adodb.recordset")
sql="select username,userpassword,useremail from [user] where useremail='"&email&"'"
rs.open sql,conn,1,1
if rs.eof and rs.bof then
Errmsg=Errmsg+" "+"
论坛中并无使用该邮件地址用户，请确认输入是否正确。"
founderr=true
else
'on error resume next
topic="您在"&ForumName&"的注册资料"
mailbody="您在"&ForumName&"的用户名是："&rs("username")&" 密码是："&rs("userpassword")&" 请注意保管好您的密码，以防再次丢失，多谢您对动网先锋的支持！"
if EmailFlag=0 then
errmsg=errmsg+" "+"
本论坛不支持发送邮件。
"
founderr=true
call error()
elseif EmailFlag=1 then
call jmail(email)
call success()
elseif EmailFlag=2 then
call Cdonts(email)
call success()
elseif EmailFlag=3 then
call aspemail(email)
call success()
end if
end if
end if
if founderr then
call error()
end if
else
%>
<%
end if
end sub
sub success()
%>