getpass.asp

一对一校友录多班级而且非常漂亮http://free.cnyys.com/my/yhe/DEFAULT.ASP

<!--#include file="head.asp"-->
<TABLE style="BORDER-RIGHT: #cccccc 1px solid; BORDER-LEFT: #cccccc 1px solid" 
cellSpacing=0 cellPadding=0 width=778 align=center bgColor=#ffffff>
  <TBODY>
  <TR vAlign=top>
    <TD bgColor=#cccccc><IMG height=1 alt="" src="image/stu.htm" width=1 
      name=""></TD>
    <TD>
      <TABLE cellSpacing=0 cellPadding=0 width="100%" align=center 
      bgColor=#ffffff border=0>
        <TBODY>
        <TR>
          <TD height=8 bgColor=#f4f4f4></TD></TR>
          <TD>
 <TABLE id=AutoNumber3 style="BORDER-COLLAPSE: collapse" 
            cellSpacing=0 cellPadding=0 width="100%" border=0>
              <TBODY>
              <TR>
                <TD vAlign=top height=52>
                  <TABLE id=AutoNumber5 style="BORDER-COLLAPSE: collapse" 
                  borderColor=#111111 cellSpacing=0 cellPadding=3 width="100%" 
                  border=0>
                    <TBODY>
                    <TR>
                      <TD class=6 width=495 background=image/type_bg.gif 
                      height=30><IMG height=12 src="image/type01.gif" width=12 
                        align=absMiddle><span style="color: #CC3300"> 当前位置:</span> <A 
            href="index.asp">网站首页</A> -<span style="color: #FF6699"> 取回密码</span></TD>
                      <TD width=100 background=image/type_bg.gif>
                        <DIV align=center><IMG 
                        src="image/more.gif" 
                    border=0></DIV></TD></TR><TR>
                      <TD colSpan=2>
                        <DIV align=center>
<%If session("wzname")<>"" Then%><br>
<font color=red>真纳闷，你瞎搞什么啊，你忘记了密码，那你是怎么登录的？</font>
<%else
dim username,sql,type2,pass,ques
username=request.form("username")
pass=request.form("pass")
ques=request.form("ques")
type2=Request.QueryString("type2")
Select Case type2
		Case "show":
		Call show
	Case "getq":
		 call getq
	Case Else:
		 call show
End Select 
End If
sub show
%> 
                          <table width="100%"  cellspacing="0">
                            <form name="form1" method="post" action="?type2=getq"><tr>
                              <td width="22%" valign="top">　　如果你还提示问题都忘记了，那请与管理员联系，我将帮你取回，就算你因为帐号密码忘记而又申请一帐号，那请将不要的帐号告诉我，我将将其删除。</td>
                              <td width="78%">用　户名：
                                <input name="username" type="text" id="username" size="20">
                                <br>
                                <br>
                                提示问题：
                                <input name="ques" type="text" id="ques">
                                <br>
                                <br>
                                问题答案：
                                <input name="pass" type="text" id="pass"></td>
                            </tr>
                            <tr>
                              <td colspan="2"> 　　　　　　　　　　　　　　　　                                        
                                <input type="submit" name="Submit" value="提交">
                                    　　
                                      <input type="reset" name="Submit" value="重置">
                              </td>
                            </tr></form>
                          </table>
<%
end sub
sub getq
set rs=Server.CreateObject("Adodb.Recordset")
rs.open "select * from user where username='"&username&"'",conn,1,3
	if rs.eof then
		Response.Write("对不起，没有这个帐号!")
		Response.Write("<br>")
Response.Write("<a href='javascript:history.go(-1)'><font color=red size=2>返回</font></a>")
	else
		if rs("userquestion")=ques then
		if rs("useranswer")=pass then
Response.Write("你的密码为：<font color=red>"&rs("userpassword")&"</font>,请记住你的密码，别再忘记了")
		Response.Write("<br>")
Response.Write("<a href='index.asp'><font color=red size=2>返回首页</font></a>")
		else
Response.Write("哎，你的问题答案不正确啊")
		Response.Write("<br>")
Response.Write("<a href='javascript:history.go(-1)'><font color=red size=2>返回</font></a>")
		end if
		else
Response.Write("哎，你是不是想盗人家的号啊？")
		Response.Write("<br>")
Response.Write("<a href='javascript:history.go(-1)'><font color=red size=2>返回</font></a>")
		end if
		end if
	rs.close
set rs=nothing
end sub
%></DIV>
                     </TD></TR></TBODY>
                  </TABLE>
                 </TD></TR></TBODY></TABLE></TD></TR></TABLE></TD></TR></TBODY></TABLE>
<!--#include file="bottom.asp"--></BODY></HTML>