📄 askpassword.asp

📁 直接解压即可都是asp源码超经典的啊
💻 ASP
字号:
<!--#include file="conn.asp"-->
<!--#include file="top.asp"-->
<title></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="style.css" rel="stylesheet" type="text/css">
<body leftmargin="0" topmargin="0">

	  <% 
if request.querystring("cmd")="login" then
login_name=server.htmlencode(request.form("login_name"))
email=server.htmlencode(request.form("email"))
if login_name="" or email ="" then
response.write"<div align=center class=f1>请检查您输入的账号和EMAIL地址是否正确！</div>"
else
 Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from userpersreg where login_name='"&login_name&"' and email='"&email&"'"
rs.open sql,conn,3,3
if not rs.eof then
password=rs("password")
response.Redirect("inc/aspsend1.asp?password="&password&"&username="&login_name&"&email="&email&"")
else
 Set rs1 = Server.CreateObject("ADODB.Recordset")
sql1="select * from userentreg where login_name='"&login_name&"' and email='"&email&"'"
rs1.open sql1,conn,3,3
if rs1.eof then
response.write"<div align=center class=f1>请检查您输入的账号和EMAIL地址是否正确！</div>"
else
password=rs1("password")
response.Redirect("inc/aspsend1.asp?password="&password&"&username="&login_name&"&email="&email&"")
end if
end if
end if 
end if
%>
<% if request.querystring("cmd")="" then %>
<div align="center">
  <center>
    
      <TABLE border=1 cellPadding=0 cellSpacing=0 width=760 style="border-collapse: collapse" bordercolor="#6687BA" height="317">
 
       
            <TD vAlign=top height="317">
              <FORM action=askpassword.asp?cmd=login method=post name=formusername>
                               <div align="center">
                                 <center>
                               <TABLE border=0 cellPadding=0 cellSpacing=0 width=543 height="276" style="border-collapse: collapse" bordercolor="#111111">
                  <TBODY>
                    <TR> 
                      
                  <TD align="center" height="125"><img src="images/passwdsea.gif" width="501" height="125"></TD>
                    </TR>
                    <TR> 
                      <TD height="105"><BR>
                        <BR> <TABLE align=center border=0 cellPadding=0 cellSpacing=0 height=69 
            width=200>
                          <INPUT name=module type=hidden value=getpwd>
                          <INPUT name=submitusername type=hidden value=确定>
                          <TBODY>
                            <TR> 
                              <TD>用户名: 
                                <INPUT maxLength=32 name=login_name size=18> </TD>
                            </TR>
                            <TR> 
                              <TD>E-MAIL: 
                                <INPUT maxLength=60 name=email size=18> </TD>
                            </TR>
                          </TBODY>
                        </TABLE>
                        <BR></TD>
                    </TR>
                    <TR> 
                      <TD height="46">
                    <div align="center"> 
                      <input name=img1 type=image 
            src="images/passwdsea2.gif" align="middle" border=0 cache>
                    </div>
                  </TD>
                                   </TABLE>
              
               
              
                                 </center>
                               </div>
              
               
              
              </FORM>
              </TD>
     
      </TABLE>	  </center>
</div>
<% end if
	  %>
	  <!--#include file="foot.asp"-->
</body>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -