config_password.asp

鄂尔多斯建站网全站程序(冬季修正版)

<%
'**********************************
'版本:Host_free 3.0               *
'官方网站:Http://www.850518.com   *
'技术论坛:Http://forum.850518.com *
'QQ:54455245 (欢迎咨询商业版)     *
'MSN: [e-mail]         *
'手机:[phone]              *
'mail:[e-mail]            *
'版权所有，请保留该信息，谢谢合作 *
'**********************************
%>
<%sub password_one%>
<table border="0" cellpadding="0" cellspacing="1" width="100%" bgcolor="#696969">
  <tr>
    <td width="30%" bgcolor="#696969" height="25">
      <p align="center"><font color="#FFFFFF">寻找密码 [ 第一步 ]</font></td>                   
    <td width="70%" bgcolor="#EEEEEE" height="25">
      　</td>                   
  </tr>                  
  <tr>                
    <td width="100%" bgcolor="#FFFFFF" colspan="2">                  
    <form method="post" action="password.asp?action=second">                  
    <table border="0" cellpadding="0" cellspacing="0" width="100%">                 
      <tr>                 
        <td width="37%">　</td>                 
        <td width="63%"></td>                 
      </tr>                 
      <tr>                 
        <td width="37%">                 
          <p align="right">用 户 名：</td>                  
        <td width="63%">&nbsp;<input type="text" name="d_webname" size="20">                  
          <input type="submit" value="确定" name="B1" style="background-color: #FFFFFF"></td>                  
      </tr>                 
    </table>                 
    </form></td>                 
  </tr>                 
</table>                 
<%end sub                
sub password_two               
if request("action")="second" then               
dim d_webname               
d_webname=request("d_webname")              
if d_webname="" then              
response.write("<script>alert('用户名不能为空！');history.go(-1)</script>")              
response.end              
end if               
set rs=server.CreateObject("ADODB.RecordSet")               
rs.Open "Select * from duser where d_webname='"&d_webname&"'",conn               
if rs.eof then               
response.write "<script language=javascript>" & chr(13) & "alert('对不起,没有这个帐号，请重新输入！');" & "history.back()" & "</script>"
response.end               
else                
%>               
<table border="0" cellpadding="0" cellspacing="1" width="100%" bgcolor="#696969">               
  <tr>               
    <td width="30%" bgcolor="#696969" height="25">               
      <p align="center"><font color="#FFFFFF">寻找密码 [ 第二步 ]</font></td>              
    <td width="70%" bgcolor="#EEEEEE" height="25">               
      　</td>              
  </tr>              
  <tr>              
    <td width="100%" bgcolor="#FFFFFF" colspan="2">           
    <form method="post" action="password.asp?action=third&d_webname=<%=request("d_webname")%>">           
    <table border="0" cellpadding="0" cellspacing="0" width="100%">          
      <tr>          
        <td width="31%">　</td>          
        <td width="35%"></td>          
        <td width="34%"></td>          
      </tr>          
      <tr>          
        <td width="31%" align="right" height="20">密码问题：</td>          
        <td width="69%" colspan="2" height="20">&nbsp;<font color="#FF0000"><%=rs("d_question")%></font></td>          
      </tr>          
      <tr>          
        <td width="31%" align="right" height="20">密码答案：</td>          
        <td width="69%" colspan="2" height="20">&nbsp;<input type="text" name="d_answer" size="25">                 
          <input type="submit" value="取得密码" name="B1" style="background-color: #FFFFFF"></td>           
      </tr>          
    </table>          
    </form></td>            
  </tr>            
</table>             
<%            
end if           
end if            
end sub           
sub password_three     
if request("action")="third" then     
dim d_answer     
d_answer=request("d_answer")
d_webname=request("d_webname")     
if d_answer="" then              
response.write("<script>alert('密码问题不能为空！');history.go(-1)</script>")              
response.end              
end if     
rs.Open "Select * from duser where d_webname='"&d_webname&"' and d_answer='"&d_answer&"'",conn               
if rs.eof then               
response.write "<script language=javascript>" & chr(13) & "alert('对不起,您的回答错误，请重新输入！');" & "history.back()" & "</script>"               
else            
%>           
<table border="0" cellpadding="0" cellspacing="1" width="100%" bgcolor="#696969">       
  <tr>       
    <td width="30%" bgcolor="#696969" height="25">       
      <p align="center">　<font color="#FFFFFF">寻找密码 [ 第三步 ]</font></p>       
    </td>      
    <td width="70%" bgcolor="#EEEEEE" height="25">       
      　</td>      
  </tr>      
  <tr>      
    <td width="100%" bgcolor="#FFFFFF" colspan="2">      
    <form method="post" action="save.asp?action=save&d_webname=<%=rs("d_webname")%>">      
    <table border="0" cellpadding="0" cellspacing="0" width="100%">     
      <tr>     
        <td width="100%" colspan="2">&nbsp; </td>     
      </tr>     
      <tr>    
        <td width="31%" align="right">新 密 码：</td>      
        <td width="69%">&nbsp;<input type="password" name="d_pass1" size="20">                 
        </td>     
      </tr>     
      <tr>     
        <td width="31%" align="right">重复密码：</td>     
        <td width="69%">&nbsp;<input type="password" name="d_pass2" size="20">                 
          <input type="submit" value="确定" name="B1" style="background-color: #FFFFFF"></td>      
      </tr>     
    </table>     
    </form></td>     
  </tr>     
</table>       
<%     
end if     
end if  
rs.close  
set rs=nothing     
end sub%>
<%
'**********************************
'版本:Host_free 3.0               *
'官方网站:Http://www.850518.com   *
'技术论坛:Http://forum.850518.com *
'QQ:54455245 (欢迎咨询商业版)     *
'MSN: [e-mail]         *
'手机:[phone]              *
'mail:[e-mail]            *
'版权所有，请保留该信息，谢谢合作 *
'**********************************
%>