qqcf_getpass.asp

1.40种记数器图片样式自由选择

              <td colspan="2" bgcolor="#FFFFFF"><div align="center"> 
                  <input type="submit" name="Submit3" value="确定">
                </div></td>
            </tr>
          </form>
        </table>
        <%End if%>
<%If Request("Action")="answermodifypassword" Then%>
<%
User_Name=GoBack(Trim(request("User_Name")),"请输入用户名")
PasswordAnswer=GoBack(Trim(request("PasswordAnswer")),"请输入答案")
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("PasswordAnswer")<>Md5(PasswordAnswer) Then Call AlertBack("答案有错误!",1)
Session("User_Name")=User_Name
%>
        <table width="300" border="0" align="center" cellpadding="2" cellspacing="1" bordercolor="D6DFF5" bgcolor="D6DFF5">
          <form name="form1" method="post" action="?Action=answermodifypasswordsave">
            <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="text" id="password"> 
              </td>
            </tr>
            <tr> 
              <td bgcolor="#FFFFFF">新密码确认：</td>
              <td bgcolor="#FFFFFF"><input name="password2" type="text" 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%>
<%
If request("action")="answermodifypasswordsave" Then

password=goback(left(Trim(request("password")),60),"请填入新密码")
password2=goback(left(Trim(request("password2")),60),"请再次填入新密码")


If password<>password2 Then Call AlertBack("填入的密码不一致，请重新输入一遍!",1)

Set Rs= Server.CreateObject("ADODB.Recordset")
Sql="select * from WWW_QQCF_COM_CfCount_RegUser where user_name='"&Session("User_Name")&"'"
Rs.Open Sql,Conn,3,2
 Rs("Password")=Md5(password)
 Rs.update
Call AlertUrl("修改成功,请记牢！","index.asp")

End If
%>
        <%If Request("Action")="getpassword" And Int(Request("Assort"))=2 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)
%>

            <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>

<%
Randomize
Rannum=Int(90000000*rnd)[phone]
EmailCode=User_Name&Rannum&year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)
EmailCode=Md5(EmailCode)

Sql="Update WWW_QQCF_COM_CfCount_RegUser Set EmailCode='"&EmailCode&"' Where User_Name='" &User_Name& "'"
Conn.ExeCute Sql


msgto=Rs("email")
msgfrom="[e-mail]"
msgfromname="乘风原创程序www.qqcf.com"
msgsubj=RsSet("Title")
msgbody1=RsSet("Title")&"发送的修改计数器的密码的链接,发送时间"&Now()&"<br>打开下面链接修改你的计数器密码<br>"
msgbody2=HttpPath(2)&"QQCF_GetPass.Asp?Action=modifypassword&EmailCode="&EmailCode
msgbody=msgbody1+msgbody2

If RsSet("EamilSendType")=1 Then
 Set objMail = Server.CreateObject("CDONTS.Newmail")
 objMail.To = msgto
 objMail.From = msgfrom
 objMail.Subject = msgsubj
 objMail.Body = msgbody
 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 = msgform
 msg.FromName = msgformname
 msg.AddRecipient msgto
 msg.Subject = msgsubj
 msg.Body = msgbody 
 msg.Send (RsSet("JmailAddress"))
 set msg = nothing
End if
%>

<%end if%>
  
<%If Request("Action")="modifypassword" Then%>
<%EmailCode=Request("EmailCode")%>
<table width="300" border="0" align="center" cellpadding="2" cellspacing="1" bordercolor="D6DFF5" bgcolor="D6DFF5">
          <form name="form1" method="post" action="?Action=modifypasswordsave&EmailCode=<%=EmailCode%>">
            <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="text" id="password"> 
              </td>
            </tr>
            <tr> 
              <td bgcolor="#FFFFFF">新密码确认：</td>
              <td bgcolor="#FFFFFF"><input name="password2" type="text" 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(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></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 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=200 bgColor=#ce3000><IMG height=1 
      src="QQCF_Pic\spacer(1).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(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 border=0>
  <TBODY>
  <TR>
    <TD width=1 bgColor=#000000 rowSpan=2><IMG height=1 
      src="QQCF_Pic\spacer(1).gif" 
      width=1></TD>
    <TD bgColor=#ce3300 height=5><IMG height=1 
      src="QQCF_Pic\spacer(1).gif" 
      width=1></TD>
    <TD width=1 bgColor=#000000 rowSpan=2><IMG height=1 
      src="QQCF_Pic\spacer(1).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>