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

📄 exitpwd.asp

📁 视频点播系统
💻 ASP
字号:
<!--#include file="articleconn.asp"-->
<!--#include file="head.asp"-->
<!--#include file="MD5/md5.asp"-->
<%
function makePassword(byVal maxLen)

Dim strNewPass
Dim whatsNext, upper, lower, intCounter
Randomize

For intCounter = 1 To maxLen
whatsNext = Int((1 - 0 + 1) * Rnd + 0)
If whatsNext = 0 Then
'“character
upper = 90
lower = 65
Else
upper = 57
lower = 48
End If
strNewPass = strNewPass & Chr(Int((upper - lower + 1) * Rnd + lower))
Next
makePassword = strNewPass

end function
dim  radpass
radpass=makePassword(6)
%> 
<HTML><HEAD><TITLE>取回密码</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312"><LINK 
href="css/STYLE.css" type=text/css rel=stylesheet>
<SCRIPT>
function formnamecheck(){
 if (formname.myuserid.value=="")
 {
   alert('请输入用户名。');
   formname.myuserid.focus();
   return false;
 }
 return true;
}
</SCRIPT>

  <TBODY>
  <TR>
    <TD class=mix align=middle>
      <SCRIPT src="images/jsmenu.htm"></SCRIPT>
    </TD></TR></TBODY></TABLE>
<TABLE cellSpacing=0 cellPadding=0 width=778 align=center border=0>
  <TBODY>
  <TR>
    <TD>
      <TABLE cellSpacing=0 cellPadding=0 width="100%" 
      background=images/inchelp-04.gif border=0>
        <TBODY>
        <TR>
          <TD width=35><IMG height=29 src="images/inchelp-05.gif" 
          width=27></TD>
          <TD>
            <MARQUEE class=behavior=scoll onmouseover=this.stop(); 
            onmouseout=this.start(); scrollAmount=1 scrollDelay=2 width=409>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <script src="jstopgd.asp"&nbsp; ></script></MARQUEE></TD>
          <TD width=17><IMG height=29 src="images/inchelp-01.gif" 
          width=18></TD>
          <TD align=middle width=55 background=images/inchelp-06.gif><A 
            class=left href="playhelp.asp">播放帮助</A></TD>
          <TD width=27><IMG height=29 src="images/inchelp-02.gif" 
          width=27></TD>
          <TD align=middle width=55 background=images/inchelp-06.gif><A 
            class=left href="downhelp.asp">下载帮助</A></TD>
          <TD width=27><IMG height=29 src="images/inchelp-02.gif" 
          width=27></TD>
          <TD align=middle width=55 background=images/inchelp-06.gif>
          <a class="left" target="_blank" href="http://bbs.cn-mayi.com">本站论坛</a></TD>
          <TD width=27><IMG height=29 src="images/inchelp-02.gif" 
          width=27></TD>
          <TD align=middle width=55 background=images/inchelp-06.gif><A 
 class=left href="reguser.asp">注册会员</A></TD>
          <TD width=14><IMG height=29 src="images/inchelp-03.gif" 
          width=14></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE>
<TABLE cellSpacing=0 cellPadding=0 width=778 align=center border=0>
  <TBODY>
  <TR>
    <TD background=images/fufeibg.gif>
      <P> </P>
      <TABLE cellSpacing=0 cellPadding=0 width=562 align=center border=0>
        <TBODY>
        <TR>
          <TD width=550 height=25><IMG height=51 src="images/exitpwd.gif" 
            width=562></TD></TR>
        <TR>
          <TD align=middle background=images/fufeiconbg.gif 
            height=300><font size="2" color="#FF0000">如果你忘记了自己的密码,请在如下表单里输入你的密码提示信息!</font><BR><BR>
            <FORM id=formname name=formname 
            onsubmit="if (!formnamecheck()) return false;" action=exitpwd.asp 
            method=post>
                  <table border="0" cellpadding="4" cellspacing="0" style="border-collapse: collapse" width="330" id="AutoNumber1">
                    <% if request("myuserid")="" then %>
                    <tr> 
                      <td width="96" bordercolor="#FFFFFF"><font size="2">你注册用户名:</font></td>
                      <td width="196" bordercolor="#FFFFFF">
                      <INPUT class=button2 name=myuserid size="20"> 
                      </td>
                    </tr>
                    <tr> 
                      <td width="96" bordercolor="#FFFFFF"><font size="2">密码提示问题:</font></td>
                      <td width="196" bordercolor="#FFFFFF">
                      <INPUT class=button2 name=ask size="20"></td>
                    </tr>
                    <tr> 
                      <td width="96" bordercolor="#FFFFFF"><font size="2">密友提示答案:</font></td>
                      <td width="196" bordercolor="#FFFFFF">
                      <INPUT class=button2 name=answer size="20"></td>
                    </tr>
                    <tr> 
                      <td width="292" colspan="2" bordercolor="#FFFFFF"> <p align="center">
                          <INPUT class=button1 type=submit value=提交 name=b1> 
<INPUT class=button1 type=reset value=重置 name=b2>
                      </td>
                    </tr>
                    <%else
            set rs=server.createobject("adodb.recordset")
            sql="select password from users where userid='"&replace(trim(request("myuserid")),"'","")&"'and city='"&request("ask")&"'and adress='"&replace(trim(request("answer")),"'","")&"'"
            rs.open sql,conn,1,3
            if rs.eof and rs.bof then%>

                    <tr> 
                      <td width="292" colspan="2" height="40" bordercolor="#FFFFFF"><font size="2">没有找到相应记录 
                        </font></td>
                    </tr>
                    <%
          
else


RS("PassWord")=md5(radpass)
RS.update
%>
                    <tr> 
                      <td width="292" colspan="2" height="40" bordercolor="#FFFFFF"><font size="2">你的密码是:<span style="background-color: #ffffff"><%=radpass%></span><br>
                        <br>
                        <font color="#FF0000">要保存好喔,下次不要弄丢了。</font></font></td>
                    </tr>
                    <%
            end if
            rs.close
            set rs=nothing
           end if
            %>
                  </table>
                  </FORM><BR></P></TD></TR>
        <TR>
          <TD bgColor=#94c50a height=6><IMG height=1 
            src="images/spacer.gif" width=1></TD></TR></TBODY></TABLE>
      <P> </P></TD>
    <TD vAlign=top align=middle width=156 bgColor=#c3ef26>
      <TABLE cellSpacing=0 cellPadding=0 width=156 align=center border=0>
        <TBODY>
        <TR>
          <TD align=middle><IMG height=25 src="images/service-001.gif" 
            width=156></TD></TR>
        <TR>
          <TD align=middle background=images/service-002.gif>
            <TABLE width="80%" border=0>
              <TBODY>
              <tr>
        <%
sql="select articleid,domurl,title,content from learning where firstbest=1 order by articleid desc"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
b=0
row_count=1
                    %> <%
          do while not rs.eof
          b=b+1%>  
          <td align="center"><span lang="zh-cn">
                            <a href="movie.asp?id=<%=rs("articleid")%>" target="_blank">
                            <img border="0" height="131" src="<%if rs("domurl")="" then%>IMAGES/nopic.gif<%else%><%=rs("domurl")%><%end if%>" width="111"></a></span></td>
        </tr>
        <tr>
         <% if row_count mod 1 =0 then%>
          <td align="center">
                      </td>
        </tr>
        <tr>
                      <td align="center"><a href="movie.asp?id=<%=rs("articleid")%>" target="_blank" class="left">
                            <%content=rs("title")
                          if len(content)>8 then content=left(content,8)&"…"
                          response.write content
                            %></a></td>
                            <%end if%>
                  <%row_count=row_count+1
	      if b>=1 then exit do
	      rs.movenext
	      loop
	      rs.close
		  set rs=nothing

		              %> 
		                             </tr>
              </TBODY></TABLE></TD></TR>
        <TR>
          <TD align=middle><IMG height=50 src="images/service-003.gif" 
            width=156></TD></TR>
        <TR>
          <TD align=middle background=images/service-002.gif>
            <TABLE width="100%" border=0>
              <TBODY>
              <tr>
          <td align="center" height="15">
          <img src="images/tel.gif"><font color="#a17711">客服联系:</font></td>
              </tr>
              <tr>
          <td align="center" height="4">
          </td>
              </tr>
              <tr>
          <td align="center" height="1">
          </td>
              </tr>
              </TBODY></TABLE><IMG height=19 
            src="images/service-005.gif" width=156></TD></TR>
        <TR>
          <TD align=middle bgColor=#c3ef26 height=10><IMG height=1 
            src="images/spacer.gif" width=1></TD></TR></TBODY></TABLE></TD>
    <TD> </TD></TR></TBODY></TABLE>

</BODY></HTML>
<!--#include file="end.asp"-->

⌨️ 快捷键说明

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