📄 qqcf_getpass.asp

📁 1.40种记数器图片样式自由选择
💻 ASP
📖 第 1 页 / 共 2 页
字号:
12 下一页
<%
'==================================
' 乘风多用户计数器v3.4
' 制　作：乘　风
' 网　站：http://www.qqcf.com
' 系统演示：http://www.qqcf.com/?action=try
' 最新版本下载：http://www.qqcf.com/?action=down
' 声 明:	
' 本软件系免费程序,提供给个人免费使用,但不提供服务和升级。
' 付费版提供升级服务和技术支持。
' 未经作者许可禁止用于任何商业用途。
' 乘风其它作品：乘风多用户计数器MsSql版、乘风多用户记数器php版、乘风免费电影程序、
'　　　　　　　 乘风网站推广系统、乘风网址程序，乘风广告管理、系统乘风论坛等。
' 此段版权注释不会影响网页打开速度，请勿删除!
'　　　　　　　　　　　2005年11月27日									
'===================================
%>
<!--#include file="qqcf_conn.asp"-->
<!--#include file="qqcf_chkStr.asp"-->
<!--#include file="qqcf_myfunction.asp"-->
<!--#include file="qqcf_md5.asp"-->

<%If Request("Action")="modifypasswordsave" Then%>
<%
Password=GoBack(Trim(Request("Password")),"请输入密码!")
Password2=GoBack(Trim(Request("Password2")),"请输入重复密码!")
EmailCode=GoBack(Trim(Request("EmailCode")),"请输入较验码!")

If Password<>Password2 Then Call AlertBack("两次输入的密码不一致！")

Set Rs=Server.CreateObject("Adodb.RecordSet")
Sql="Select * From WWW_QQCF_COM_CfCount_RegUser Where EmailCode='" &EmailCode& "'"
Rs.Open Sql,Conn,1,1


If Rs.Eof And Rs.Bof Then Call AlertBack("较验码不存在!",1)

 Sql="Update WWW_QQCF_COM_CfCount_RegUser Set Password='"&Md5(Password)&"',EmailCode='-' Where EmailCode='"&EmailCode&"'"
 Conn.ExeCute Sql'修改密码并替换一个新的EmailCookie

Call AlertUrl("修改成功，请牢记你的新密码","QQCF_Index.Asp")
End If


%>

<HTML><HEAD><TITLE><%=RsSet("Title")%></TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<LINK href="QQCF_Pic/ok3.css" type=text/css rel=stylesheet>
<META content="MSHTML 6.00.2800.1400" name=GENERATOR>
</HEAD>
<BODY leftMargin=0 topMargin=0 marginheight="0" marginwidth="0">
<TABLE cellSpacing=0 cellPadding=0 width=760 align=center border=0>
  <TBODY>
  <TR>
    <TD bgColor=#000000 colSpan=3><IMG height=1 
      src="QQCF_Pic/spacer.gif" width=1></TD></TR>
  <TR>
    <TD width=1 bgColor=#000000><IMG height=1 
      src="QQCF_Pic\spacer(1).gif" 
      width=1></TD>
    <TD bgColor=#ce3300 height=10><IMG height=1 
      src="QQCF_Pic\spacer(1).gif" 
      width=1></TD>
    <TD width=1 bgColor=#000000><IMG height=1 
      src="QQCF_Pic\spacer(1).gif" 
      width=1></TD></TR></TBODY></TABLE>
<TABLE cellSpacing=0 cellPadding=0 width=760 align=center bgColor=#ffffff 
border=0>
  <TBODY>
  <TR>
    <TD width=1 bgColor=#000000 height=12><IMG height=1 
      src="QQCF_Pic\spacer(1).gif" 
      width=1></TD>
    <TD width=10 bgColor=#ce3000><IMG height=1 
      src="QQCF_Pic\spacer(1).gif" 
      width=1></TD>
    <TD><IMG height=1 
      src="QQCF_Pic\spacer(1).gif" 
      width=1></TD>
    <TD width=40><IMG height=12 src="QQCF_Pic/ok3-3_r2_c15.gif" 
      width=40></TD>
    <TD width=200 bgColor=#ce3000><IMG height=1 
      src="QQCF_Pic\spacer(1).gif" 
      width=1></TD>
    <TD width=1 bgColor=#000000><IMG height=1 
      src="QQCF_Pic\spacer(1).gif" 
      width=1></TD></TR></TBODY></TABLE>
<TABLE cellSpacing=0 cellPadding=0 width=760 align=center bgColor=#ffffff 
border=0>
  <TBODY>
    <TR> 
      <TD width=1 bgColor=#000000><IMG height=1 
      src="QQCF_Pic\spacer(1).gif" 
      width=1></TD>
      <TD width=10 bgColor=#ce3000><IMG height=1 
      src="QQCF_Pic\spacer(1).gif" 
      width=1></TD>
      <TD width=14><IMG height=1 
      src="QQCF_Pic\spacer(1).gif" 
      width=1></TD>
      <TD><a href="http://www.qqcf.com" target="_blank"><IMG src="<%=RsSet("LogoUrl")%>" width="480" height="60" border="0"></a></TD>
      <TD width=10 bgColor=#ce3000><IMG height=1 
      src="QQCF_Pic\spacer(1).gif" 
      width=1></TD>
      <TD width=1 bgColor=#000000><IMG height=1 
      src="QQCF_Pic\spacer(1).gif" 
      width=1></TD>
    </TR>
  </TBODY>
</TABLE>
<TABLE height=6 cellSpacing=0 cellPadding=0 width=760 align=center 
bgColor=#ffffff border=0>
  <TBODY>
  <TR>
    <TD width=1 bgColor=#000000><IMG height=1 
      src="QQCF_Pic\spacer(1).gif" 
      width=1></TD>
    <TD width=10 bgColor=#ce3000><IMG height=1 
      src="QQCF_Pic\spacer(1).gif" 
      width=1></TD>
    <TD><IMG height=1 
      src="QQCF_Pic\spacer(1).gif" 
      width=1></TD>
    <TD width=10 bgColor=#ce3000><IMG height=1 
      src="QQCF_Pic\spacer(1).gif" 
      width=1></TD>
    <TD width=1 bgColor=#000000><IMG height=1 
      src="QQCF_Pic\spacer(1).gif" 
      width=1></TD></TR></TBODY></TABLE>
<TABLE height=28 cellSpacing=0 cellPadding=0 width=760 align=center border=0>
  <TBODY>
  <TR>
    <TD width=1 bgColor=#000000 height=12><IMG height=1 
      src="QQCF_Pic\spacer(1).gif" 
      width=1></TD>
    <TD width=10 bgColor=#ce3000><IMG height=1 
      src="QQCF_Pic\spacer(1).gif" 
      width=1></TD>
      <TD background=QQCF_Pic/ok3-1_r7_c2.jpg>&nbsp; </TD>
    <TD width=10 bgColor=#ce3000><IMG height=1 
      src="QQCF_Pic\spacer(1).gif" 
      width=1></TD>
    <TD width=1 bgColor=#000000><IMG height=1 
      src="QQCF_Pic\spacer(1).gif" 
      width=1></TD></TR></TBODY></TABLE>
<TABLE height=12 cellSpacing=0 cellPadding=0 width=760 align=center 
bgColor=#ffffff border=0>
  <TBODY>
  <TR>
    <TD width=1 bgColor=#000000><IMG height=1 
      src="QQCF_Pic\spacer(1).gif" 
      width=1></TD>
    <TD width=10 bgColor=#ce3000><IMG height=1 
      src="QQCF_Pic\spacer(1).gif" 
      width=1></TD>
    <TD><IMG height=1 
      src="QQCF_Pic\spacer(1).gif" 
      width=1>
        
<%if request("action")="" then%>

          <table width="300" border="0" align="center" cellpadding="3" cellspacing="1" bordercolor="D6DFF5" bgcolor="D6DFF5">
          <form name="form1" method="post" action="?action=getpassword">
            <tr bgcolor="#FF9933"> 
              <td colspan="2" bgcolor="D6DFF5"><div align="center"><%=Rsset("Title")%></div></td>
            </tr>
            <tr> 
              <td colspan="2" bgcolor="#FFFFFF"><div align="center"><strong><font color="#000000">找回忘记的密码</font></strong></div></td>
            </tr>
            <tr> 
              <td colspan="2" bgcolor="#FFFFFF"><div align="left">请输入你的用户名，系统会自动发送一封修改密码邮件到你的管理资料中的E-Mail地址内,如果还没有收到请和超级管理员联系! 
                </div></td>
            </tr>
            <tr> 
              <td width="111" bgcolor="#FFFFFF"><div align="left">你的用户名： 
                  
                </div></td>
              <td width="174" bgcolor="#FFFFFF"><input name="User_Name" type="text" id="User_Name" size="15"></td>
            </tr>
            <tr> 
              <td bgcolor="#FFFFFF">取回方式： </td>
              <td bgcolor="#FFFFFF"><input name="assort" type="radio" value="1" checked>
                根据提示问题 
                <input type="radio" name="assort" value="2">
                发送到Email</td>
            </tr>
            <tr> 
              <td colspan="2" bgcolor="#FFFFFF"><div align="center"> 
                  <input type="submit" name="Submit" value="取回密码">
                </div></td>
            </tr>
          </form>
        </table> 
<%End if%>
<%If Request("Action")="getpassword" And Int(Request("Assort"))=1 Then%>
<%
User_Name=GoBack(Trim(request("User_Name")),"请输入用户名")
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from WWW_QQCF_COM_CfCount_RegUser where User_Name='"&User_Name&"'"
rs.open sql,conn,1,1
if rs.eof and rs.bof then  Call AlertBack("没有此用户名!",1)
if Rs("PassWordAsk")="-" Then Call AlertBack("你以前没有填写密码保护资料!",1)
%>
        <table width="300" border="0" align="center" cellpadding="3" cellspacing="1" bordercolor="D6DFF5" bgcolor="D6DFF5">
          <form name="form1" method="post" action="?action=answermodifypassword&User_Name=<%=User_Name%>">
            <tr bgcolor="#FF9933"> 
              <td colspan="2" bgcolor="D6DFF5"><div align="center"><%=Rsset("Title")%></div></td>
            </tr>
            <tr> 
              <td colspan="2" bgcolor="#FFFFFF"><div align="center"><strong><font color="#000000">请回复你的答案</font></strong></div></td>
            </tr>
            <tr> 
              <td width="95" bgcolor="#FFFFFF"> <div align="left">密码提示问题： </div></td>
              <td width="190" bgcolor="#FFFFFF"><%=rs("passwordask")%></td>
            </tr>
            <tr> 
              <td bgcolor="#FFFFFF">密码提示答案： </td>
              <td bgcolor="#FFFFFF"><input name="passwordanswer" type="text" size="20"></td>
            </tr>
            <tr>
12 下一页
💿 文件大小 412 K
👤 上传用户 woainijiajia123
📂 所属分类其他数据库
🏷️ 相关标签

#1.40 #记数 #自由选择
⌨️ 快捷键说明

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