getpass.asp

功 能： 1.系统分别为每个网站注册会员分配了一个推广链接

                网友或网站主 
                <input type="radio" name="assort" value="2">
                广告主</td>
            </tr>
            <tr> 
              <td colspan="2" bgcolor="#FFFFFF"><div align="center"> 
                  <input type="submit" name="Submit" value="取回密码">
                </div></td>
            </tr>
          </form>
        </table>
<%Else%>
<table width="300" border="0" align="center" cellpadding="2" cellspacing="1" bordercolor="D6DFF5" bgcolor="D6DFF5">
<form target="_blank" action="<%=RsSet("LoginUrl")%>"><tr align="center"> 
            <td align="left" bordercolor="#33CCCC" bgcolor="#FFFFFF"><div align="center">
                <input type="submit" name="Submit3" value="请到网站上找回密码">
              </div></td>
          </tr>
		  </form>
        </table>
<%End If%>
<%End if%>

<%If Request("Action")="getpassword" Then%>  
<%
User_Name=GoBack(Trim(request("User_Name")),"请输入用户名")
Assort=Int(Request("Assort"))

If Assort=1 Then
 Set rs = Server.CreateObject("ADODB.Recordset")
 sql="select * from WWW_QQCF_COM_CfWztg_RegUser where User_Name='"&User_Name&"'"
 rs.open sql,conn,1,1
 if rs.eof and rs.bof then  Call AlertBack("没有此用户名!",1)
 Password=Md5(Rs("Password")&SysCode,1)
End If

If Assort=2 Then
 Set rs = Server.CreateObject("ADODB.Recordset")
 sql="select * from WWW_QQCF_COM_CfWztg_AdUser where AdUser_Name='"&User_Name&"'"
 rs.open sql,conn,1,1
 if rs.eof and rs.bof then  Call AlertBack("没有此用户名!",1)
 Password=Md5(Rs("Password")&SysCode,1)
End If
%>

            <table width="300" border="0" align="center" cellpadding="3" cellspacing="1" bordercolor="D6DFF5" bgcolor="D6DFF5">
              <tr bgcolor="#FF9933"> 
                <td width="767" colspan="2" bgcolor="D6DFF5"><div align="center"><%=Rsset("Title")%></div></td>
              </tr>
              <tr> 
                <td colspan="2" bgcolor="#FFFFFF"><div align="center"><strong>密码已经成功发送到你的<font color="#33CC00"><font color="#ff0000"><%=rs("email")%></font></font>,请查收,如果没有收到邮件请联系推广系统管理员解决！</strong></div></td>
              </tr>
              <tr> 
                <td colspan="2" bgcolor="#FFFFFF"> <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=modifypassword&Assort="&Assort&"&User_Name="&User_Name&"&Password="&Password
EmailBody=Emailbody1+Emailbody2

If RsSet("EamilSendType")=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("EamilSendType")=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 Request("Action")="modifypassword" Then%>
<%
Assort=Request("Assort")
User_Name=Request("User_Name")
Password=Request("Password")
%>
<table width="300" border="0" align="center" cellpadding="2" cellspacing="1" bordercolor="D6DFF5" bgcolor="D6DFF5">
          <form name="form1" method="post" action="?Action=modifypasswordsave&Assort=<%=Assort%>&User_Name=<%=User_Name%>&Password_Old=<%=Password%>">
            <tr bgcolor="D6DFF5"> 
              <td colspan="2"><div align="center"><strong>修改密码</strong></div></td>
            </tr>
            <tr> 
              <td width="100" bgcolor="#FFFFFF">新密码：</td>
              <td bgcolor="#FFFFFF"> <input name="password" type="password" id="password"> 
              </td>
            </tr>
            <tr> 
              <td bgcolor="#FFFFFF">新密码确认：</td>
              <td bgcolor="#FFFFFF"><input name="password2" type="password" id="password2"></td>
            </tr>
            <tr> 
              <td bgcolor="#FFFFFF">&nbsp;</td>
              <td bgcolor="#FFFFFF"><input type="submit" name="Submit2" value="修改密码"> 
              </td>
            </tr>
          </form>
        </table>
<%End If%>

		
		</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=780 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 cellSpacing=0 cellPadding=0 width=780 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=200 bgColor=#ce3000><IMG height=1 
      src="QQCF_Pic\spacer.gif" 
      width=1></TD>
    <TD width=41><IMG height=14 src="QQCF_Pic/ok3-3_r15_c12.gif" 
      width=41></TD>
    <TD vAlign=top width=373>
      <P align=center></P></TD>
    <TD vAlign=top width=133>
      <P align=center> </P></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 cellSpacing=0 cellPadding=0 width=780 align=center border=0>
  <TBODY>
  <TR>
    <TD width=1 bgColor=#000000 rowSpan=2><IMG height=1 
      src="QQCF_Pic\spacer.gif" 
      width=1></TD>
    <TD bgColor=#ce3300 height=5><IMG height=1 
      src="QQCF_Pic\spacer.gif" 
      width=1></TD>
    <TD width=1 bgColor=#000000 rowSpan=2><IMG height=1 
      src="QQCF_Pic\spacer.gif" 
      width=1></TD></TR>
  <TR>
    <TD bgColor=#ce3300 height=5>
      <P align=center> <A href="http://www.qqcf.com" target=_blank><FONT 
      color=#ffffff>乘风原创程序开发 [&nbsp;<%=RsSet("Title")%>&nbsp;]提供推广服务</FONT></A></FONT></A></P>
	  
	  </TD></TR>
    <TD bgColor=#000000 colSpan=3><IMG height=1 
      src="QQCF_Pic/spacer.gif" width=1></TD></TR></TBODY></TABLE>

</BODY></HTML>

<%Call ConnClose()%>