⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 getpass.asp

📁 物流管理系统
💻 ASP
📖 第 1 页 / 共 2 页
字号:
🔍
12 
<%
'==================================
' 乘风多用户计数器v3.8
' 制　作：乘　风
' 开发网站：http://www.qqcf.com
' 程序演示：http://www.qqcf.com/?action=try
' 最新版本下载：http://www.qqcf.com/?action=down
' 声 明:	
' 本软件系免费程序,提供给个人免费使用,除保留版权外无其它任何限制。
' 我们为付费版用户提供升级服务和技术支持。
' 在程序首页保留乘风原创程序版权和链接的免费用户我们也提供一些的升级服务和技术支持。
' 未经作者许可禁止用于任何商业用途。
' 乘风多用户计数器特有的功能：
' 1.计数器数字图片和统计图标两种机制共存，众多设置可调。
' 2.Script脚本和Img非脚本两种方式调用计数器，Img非脚本方式计数器可以在任何能插入图片的地方使用。
' 3.独有的错误自动修复机制，能在计数器发生错误后自动修复。
' 4.完全杜绝并发线程容易对数据库造成的损坏，在流量大的网站上使用表现很稳定。
' 5.缓存机制，在缓存中保存数据，操作常见动作，大量减少对数据库的增加，删除频繁的操作。
' 6.稳定性、安全性、速度上表现都很优秀，功能齐全，代码集成程度高、完全公开，专业制作，完全免费。
' 乘风其它作品：乘风多用户计数器MsSql版、乘风多用户记数器php版、乘风电影程序、
'　　　　　　　 乘风网站推广系统、乘风网址程序，乘风广告管理系统、乘风论坛等。
' 此段版权注释不会影响网页打开速度，请勿删除!
'　　　　　　　　　　　2006年7月19日									
'===================================
%>
<!--#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("修改成功，请牢记你的新密码","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.gif" 
      width=1></TD>
    <TD bgColor=#ce3300 height=10><IMG height=1 
      src="QQCF_Pic\spacer.gif" 
      width=1></TD>
    <TD width=1 bgColor=#000000><IMG height=1 
      src="QQCF_Pic\spacer.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.gif" 
      width=1></TD>
    <TD width=10 bgColor=#ce3000><IMG height=1 
      src="QQCF_Pic\spacer.gif" 
      width=1></TD>
    <TD><IMG height=1 
      src="QQCF_Pic\spacer.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.gif" 
      width=1></TD>
    <TD width=1 bgColor=#000000><IMG height=1 
      src="QQCF_Pic\spacer.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.gif" 
      width=1></TD>
      <TD width=10 bgColor=#ce3000><IMG height=1 
      src="QQCF_Pic\spacer.gif" 
      width=1></TD>
      <TD width=14><IMG height=1 
      src="QQCF_Pic\spacer.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.gif" 
      width=1></TD>
      <TD width=1 bgColor=#000000><IMG height=1 
      src="QQCF_Pic\spacer.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.gif" 
      width=1></TD>
    <TD width=10 bgColor=#ce3000><IMG height=1 
      src="QQCF_Pic\spacer.gif" 
      width=1></TD>
    <TD><IMG height=1 
      src="QQCF_Pic\spacer.gif" 
      width=1></TD>
    <TD width=10 bgColor=#ce3000><IMG height=1 
      src="QQCF_Pic\spacer.gif" 
      width=1></TD>
    <TD width=1 bgColor=#000000><IMG height=1 
      src="QQCF_Pic\spacer.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.gif" 
      width=1></TD>
    <TD width=10 bgColor=#ce3000><IMG height=1 
      src="QQCF_Pic\spacer.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.gif" 
      width=1></TD>
    <TD width=1 bgColor=#000000><IMG height=1 
      src="QQCF_Pic\spacer.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.gif" 
      width=1></TD>
    <TD width=10 bgColor=#ce3000><IMG height=1 
      src="QQCF_Pic\spacer.gif" 
      width=1></TD>
    <TD><IMG height=1 
      src="QQCF_Pic\spacer.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>
12

⌨️ 快捷键说明

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