cf_getpass_pre_2.asp

支持多种播放器RealPlayer,MediaPlayer

<%
'乘风电影程序
'制作：乘　风
'QQ：178575
'E-Mail：[e-mail]
'开发网站：http://www.qqcf.com
'详细简介：http://www.qqcf.com/?action=list&list=cffilm
'上面有程序在线演示，安装演示，使用疑难解答，最新版本下载等内容
'因为这些内容可能时常更新，就没有放在程序里，请自己上网站上查看
'有完整版本的演示，包括如何实际整合Helix,Serv-u完全的实现在线播
'放和下载防盗链等
%>
<table width="980" border="0" cellspacing="1" cellpadding="0">
        <tr> 
          <td width="51%" valign="top"><TABLE align=center border=0 cellPadding=0 cellSpacing=0 
            width="100%">
              <TR> 
                <TD class=td1>&nbsp;</TD>
                <TD class=td2 width="936"></TD>
                <TD class=td3></TD>
              </TR>
            </TABLE>
            <TABLE align=center bgColor=#cccccc cellPadding=0 cellSpacing=1 
            style="WORD-BREAK: break-all" width="100%">
              <TR bgColor=#ffffff> 
                <TD colSpan=2 vAlign=top>
				<%
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 class="tba_tr_1"> 
      <td colspan="2"><div align="center"><strong>找回忘记的密码</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(-1)">
                  </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%>

          </TD>
              </TR>
            </TABLE>
            <TABLE align=center border=0 cellPadding=0 cellSpacing=0 
            width="100%">
              <TR> 
                <TD class=td4></TD>
                <TD class=td5 width="964px"></TD>
                <TD class=td6></TD>
              </TR>
            </TABLE></td>
        </tr>
      </table>