qqcf_getpass_pre_2.asp

二、功 能： 1.系统做免费

<%
' 乘风电影 Access版
' 制　作：乘　风
' 开发网站：乘风原创程序
' 网站网址：http://www.qqcf.com
' 程序演示：http://www.qqcf.com/?action=try
' 最新版本下载：http://www.qqcf.com/?action=down

' 功　能：
' 1.系统做免费或收费的电影网站都可以，支持免费，点数，包月等方式观看和下载电影
' 2.支持全站生成htm静态页面，生成速度极快，全自动生成
' 3.支持防盗链，可完全整合Helix和Servu服务器，完善的防盗链机制
' 4.在后台可以自由管理网站上的广告
' 5.支持网站上的注册用户在线支付购买电影点数，也可升级包月等方式
' 6.可以完全整合原有网站上的注册用户使用，无需在电影系统重新注册直接登陆即可
%>
<%
Action=Request("Action")
%>

<%if Action="" then%>
<%If RsSet("RegType")=1 Then%>
          
<table width="300" align="center" class=tba>
  <form name="form1" method="post" action="?action=pwdget">
    <tr> 
      <td colspan="2"><div align="center"><%=Rsset("Title")%></div></td>
    </tr>
    <tr class="tba_tr_1"> 
      <td colspan="2"><div align="center"><strong><font color="#000000">找回忘记的密码</font></strong></div></td>
    </tr>
    <tr> 
      <td colspan="2"><div align="left">请输入你的用户名，系统会自动发送一封修改密码邮件到你的管理资料中的E-Mail地址内,如果还没有收到请和超级管理员联系! 
        </div></td>
    </tr>
    <tr> 
      <td width="111"><div align="left">你的用户名： </div></td>
      <td width="174"><input name="UserName" type="text" id="UserName" size="15"></td>
    </tr>
    <tr> 
      <td colspan="2"><div align="center"> 
          <input type="submit" name="Submit" value="取回密码">
        </div></td>
    </tr>
  </form>
</table>
<%Else%>
<table width="300" align="center" class=tba>
<form target="_blank" action="<%=RsSet("LoginUrl")%>"><tr align="center"> 
            <td align="left" bordercolor="#33CCCC"><div align="center">
                <input type="submit" name="Submit3" value="请到网站上找回密码">
              </div></td>
          </tr>
		  </form>
        </table>
<%End If%> 
<%End if%>

<%If Action="pwdget" Then%>  
<%
UserName=GoBack(ChkStr(Trim(request("UserName")),1),"请输入用户名")

 Set rs = Server.CreateObject("ADODB.Recordset")
 sql="select * from CFFilm_User where UserName='"&UserName&"'"
 rs.open sql,conn,1,1
 if rs.eof and rs.bof then  Call AlertBack("没有此用户名!",1)
 Pwd=Md5(Rs("Pwd")&GetMySet("SysCode"),1)
%>

            <table width="300" align="center" class=tba>
              <tr> 
                <td width="767" colspan="2"  class="tba_tr_1"><div align="center"><%=Rsset("Title")%></div></td>
              </tr>
              <tr> 
                <td colspan="2"><div align="center"><strong>密码已经成功发送到你的<font color="#33CC00"><font color="#ff0000"><%=rs("Email")%></font></font>,请查收,如果没有收到邮件请联系推广系统管理员解决！</strong></div></td>
              </tr>
              <tr> 
                <td colspan="2"> <div align="center"> 
                    <input type="submit" name="Submit523" value="返回" onClick="javascript:history.go(-2)">
                  </div></td>
              </tr>
            </table>

<%
EmailTo=Rs("email")
EmailFrom=RsSet("JmailUser")
EmailFromName=RsSet("Title")
EmailSubj=RsSet("Title")
EmailBody1=RsSet("Title")&"发送的修改电影的密码的链接,发送时间"&Now()&"<br>打开下面链接修改你的密码<br>"
EmailBody2=HttpPath(2)&"GetPass.asp?Action=pwdmodify&UserName="&UserName&"&Pwd="&Pwd
EmailBody=Emailbody1+Emailbody2

If RsSet("EmailSendType")=1 Then
 Set objMail = Server.CreateObject("CDONTS.Newmail")
 objMail.To = Emailto
 objMail.From = Emailfrom
 objMail.Subject = Emailsubj
 objMail.Body = Emailbody
 objMail.Send
 Set objMail = Nothing
ElseIf RsSet("EmailSendType")=2 Then

 Set msg = Server.CreateObject("JMail.Message")
 msg.silent = true
 msg.Logging = true
 msg.Charset = "gb2312"
 msg.MailServerUserName = RsSet("JmailUser")
 msg.MailServerPassword = RsSet("JmailPassword")
 msg.From = EmailFrom
 msg.FromName = EmailFromName
 msg.AddRecipient EmailTo
 msg.Subject = EmailSubj
 msg.Body = EmailBody 
 msg.Send (RsSet("JmailAddress"))
 set msg = nothing

End if
%>

<%end if%>
  
<%If Action="pwdmodify" Then%>
<%
UserName=ChkStr(Request("UserName"),1)
Pwd=ChkStr(Request("Pwd"),1)
%>
<table width="300" align="center" class=tba>
          <form name="form1" method="post" action="CF.aspx?Action=pwdmodifysave&UserName=<%=UserName%>&Pwd_Old=<%=Pwd%>">
            <tr> 
              <td colspan="2" class="tba_tr_1"><div align="center"><strong>修改密码</strong></div></td>
            </tr>
            <tr> 
              <td width="100">新密码：</td>
              <td> <input name="Pwd" type="password" id="Pwd"> 
              </td>
            </tr>
            <tr> 
              <td>新密码确认：</td>
              <td><input name="Pwd2" type="password" id="Pwd2"></td>
            </tr>
            <tr> 
              <td>&nbsp;</td>
              <td><input type="submit" name="Submit2" value="修改密码"> 
              </td>
            </tr>
          </form>
        </table>

  <%End If%>