lostpass.asp

此文件为一个电子同学录

<!--#include file="conn.asp"-->
<!-- #include file="inc/const.asp" -->
<!--#include file="inc/email.asp"-->
<!--#include file="md5.asp"-->
<%
dim topic,mailbody

if founduser then
  	errmsg=errmsg+"<br>"+"<li>您已经登录，不能使用此功能，请退出登录后进入！</a>。"
	founderr=true
end if

call head()
if founderr then
	call head_var("错误信息",Request.ServerVariables("HTTP_REFERER"))
	call txl_error()
else
		call header()
	if request("action")="step1" then
		stats="第二步：回答问题"
		call head_var("取回密码","lostpass.asp")
		call step1()
	elseif request("action")="step2" then
		stats="第三步：修改密码 "
		call head_var("取回密码","lostpass.asp")
		call step2()
	elseif request("action")="step3" then
		stats="第四步：修改成功"
		call head_var("取回密码","lostpass.asp")
		call step3()
	else
		stats="第一步：用户名"
		call head_var("取回密码","lostpass.asp")
		call main()
	end if
		call footer()
	if founderr then call txl_error()
end if
call foot()

sub step1()
if request("realname")="" then
	Founderr=true
	Errmsg=Errmsg+"<br>"+"<li>请输入您的用户名。"
	exit sub
else
	realname=replace(request("realname"),"'","")
end if

set rs=conn.execute("Select Question,Answer,realname,Usergroupid,username from [user] where realname='"&realname&"'")
if rs.eof and rs.bof then
	Founderr=true
	errmsg=Errmsg+"<br>"+"<li>您输入的用户名并不存在，请重新输入。"
elseif rs(3) < 3 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 width=<%=txl_body(19)%>>
<tr>
<th valign=middle colspan=2 align=center height=25>取回密码（第二步：回答问题）</th></tr>
<tr>
<td valign=middle class=tablebody1><b>问