lostpass.asp

功能强大的一个b/s工作站

<!--#include file="conn.asp"-->
<!-- #include file="inc/const.asp" -->
<!--#include file="inc/email.asp"-->
<!--#include file="md5.asp"-->
<%
dim topic,mailbody,sendmsg,SendMail,useremail
dim username,password,repassword
dim answer
stats="密码遗忘"
call nav()
call head_var(2,0,"","")
if founderr then
	call dvbbs_error()
else
	if request("action")="step1" then
		call step1()
	elseif request("action")="step2" then
		call step2()
	elseif request("action")="step3" then
		call step3()
	else
		call main()
	end if
	if founderr then call dvbbs_error()
end if
call footer()

sub step1()
if request("username")="" then
	Founderr=true
	Errmsg=Errmsg+"<br>"+"<li>请输入您的用户名。"
	exit sub
else
	username=replace(request("username"),"'","")
end if
if Forum_Setting(2)>0 then
	set rs=conn.execute("Select Quesion,Answer,Username,Usergroupid from [user] where username='"&username&"'")
else
	set rs=conn.execute("Select Quesion,Answer,Username,Usergroupid from [user] where username='"&username&"' and UserGroupID>3")
end if
if rs.eof and rs.bof then
	Founderr=true
	errmsg=Errmsg+"<br>"+"<li>您输入的用户名并不存在，请重新输入。<li>或者由于该系统不支持邮件发送，而您的等级为版主以上级别，只能通过联系管理员获得密码。"
elseif rs(3) < 4 then
	Founderr=true
	errmsg=Errmsg+"<br>"+"<li>您是管理员或者是版主，只能通过联系管理员获得密码。"
else
	if rs(0)="" or isnull(rs(0)) then
		Founderr=true
		Errmsg=Errmsg+"<br>"+"<li>该用户没有填写密码问题及答案，只有填写的用户方能继续。"
	else
%>
<form action="lostpass.asp?action=step2" method="post"> 
<table cellpadding=1 cellspacing=1 align=center class=tableborder1>
    <tr>
    <th valign=middle colspan=2 align=center height=25>取回密码（第二步：回答问题）</th></tr>
    <tr>
    <td valign=middle class=tablebody1><b>问