password.asp

这个论坛也不错．适合做毕业设计的

<!--#INCLUDE FILE="config.asp" -->
<!--#INCLUDE FILE="top.asp" -->
<table width=<%=TableWidth%> border =0 align="center" class="sft"><tr><td><a href="index.asp">论坛首页</a> > 找回密码</td></tr></table>
<%
set my_conn= Server.CreateObject("ADODB.Connection")
my_Conn.Open ConnString
if Request.Form("restr")<>""  and Request.Form("user")<>"" then
  strsql = "select m_return, m_password from members where m_name = '" & Request.Form("user") &"'"
  set rs = my_conn.Execute (strSQL)
  if Request.Form("restr") = rs("m_return") then
    Response.Write "<br><br><br><center>您的密码是:<big><big><b>" & rs("m_password") & "</b></big></big><br><br>不要再忘记哦~</center>"
  else
    Response.Write "<br><br><br><center>回答错误!</center>"
  end if
  Response.End
end if

if Request.Form("user")<>"" then
set my_conn= Server.CreateObject("ADODB.Connection")
my_Conn.Open ConnString
strsql = "select m_question, m_return from members where m_name = '" & Request.Form("user") & "'"
set rs = my_conn.Execute (strSQL)
if rs.Bof or rs.Eof then
  Response.Write "<br><br><br><center>该用户不存在!</center>"
  Response.End
end if
if rtrim(rs("m_question"))<>"" and rtrim(rs("m_return"))<>"" then
%>
<form action="password.asp?login=yes" method=post>
<input name="user" type="hidden" value="<%=Request.Form("user") %>"> 
<input type=hidden name="topic_id" value="<%=Request.QueryString("topic_id") %>">
<table align="center"  bgcolor=<%=TableColor%> border="0" width=400 cellspacing="1" cellpadding="3" class="sft">
<tr><td bgcolor="<% =HeadColor %>" class="sfh" colspan=2 align="center">回答问题</td></tr>                
<TR><TD bgcolor="<% =CellColor1 %>" width="30%" align="right">问题:</td>
<TD bgcolor="<% =CellColor1 %>" width="70%"><%=rs("m_question")%></td></tr>
<TR><TD bgcolor="<% =CellColor1 %>" align="right">回答:</td>
<TD bgcolor="<% =CellColor1 %>"><input type=text name="restr" size=20 class="box"></td></tr>
<TR><TD bgcolor="<% =CellColor1 %>" colspan=2 align=center><Input type=submit value="确 定" class="btn"></td></TR>
</form></TABLE>
<%
else
  Response.Write "<br><br><br><center>很遗憾,由于过去您没有正确设置找回密码的问题和答案,因此无法使用本功能找回密码.</center>"
  Response.End
end if

else
%>
<form action="password.asp" method=post>
<input type=hidden name="topic_id" value="<%=Request.QueryString("topic_id") %>">
<table align="center"  bgcolor=<%=TableColor%> border="0" width=400 cellspacing="1" cellpadding="3" class="sft">
<tr><td bgcolor="<% =HeadColor %>" colspan=2 class="sfh" align="center">找回密码</td></tr>                
<TR><TD bgcolor="<% =CellColor1 %>" width="40%" align="right">您的用户名:</td>
<TD  width="60%" bgcolor="<% =CellColor1 %>"><input type=text name="user" size=20 class="box"></td></tr>
<TR><TD bgcolor="<% =CellColor1 %>" colspan=2 align=center><Input type=submit value="确 定" class="btn"></td></TR>
</form></TABLE>
<%
Response.Write "<br><br><br><center>如果过去您在个人档案中设置了找回密码的问题和答案,就可以使用本功能找回密码.</center>"
end if
my_conn.Close
set my_Conn = nothing
set rs = nothing
%>
</body></html>