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

📄 unactiveml.asp

📁 中文bux点击站源码。配合其他站点用
💻 ASP
字号:
🔍 
<%@ LANGUAGE = VBScript %>
<!--#include file="conn.asp"-->

<!--#include file="checklogin.asp"-->

<%
  DateLimit = Request ("DateLimit")
  If DateLimit = "0 Days" Then
     rs.Open "Select * From member Where active = False order by ID",Conn
  Else If DateLimit = "7 Days" Then
          rs.Open "Select * From member Where active = False And date() - SignupTime > 7 order by ID",Conn
       Else If DateLimit = "14 Days" Then
               rs.Open "Select * From member Where active = False And date() - SignupTime > 14 order by ID",Conn
            End If
       End If
  End If  
%>

<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link REL="StyleSheet" HREF="../tjscripts.css" TYPE="text/css" MEDIA="screen">
<title><%= SiteTitle %>后台管理系统</title>
</head>

<body topmargin="0" leftmargin="0">

<div align="center">
  <table border="1" cellspacing="1" width="760" bordercolor="#0033CC">
    <tr>
      <td width="100%" height="31" bgcolor="#FFCC00"><b>未激活会员列表</b></td>
    </tr>
    <tr>
      <td width="100%">
        <div align="center">
          <table border="1" cellspacing="1" width="100%" bordercolor="#A50F18">
            <tr>  
              <td width="25%" height="30" align="center">编号</td>  
              <td width="25%" height="30" align="center">电子邮件地址</td>  
              <td width="25%" height="30" align="center">介绍人</td>  
              <td width="25%" height="30" align="center">注册时间</td>  
            </tr>
            <%
              While Not rs.EOF
              ID = rs ("ID")
              Email = rs ("Email")
              Referral = rs ("Referral")
              SignupTime = rs ("SignupTime")
            %>
            <tr>  
              <td width="25%" height="30" align="center"><%= ID %></td>  
              <td width="25%" height="30" align="center"><%= Email %></td>  
              <td width="25%" height="30" align="center"><%= Referral %></td>  
              <td width="25%" height="30" align="center"><%= SignupTime %></td>  
            </tr>
            <%
              rs.MoveNext
              Wend
              rs.Close
              Set rs = nothing
              Conn.Close
              Set Conn = nothing
            %>
          </table>
        </div>
      </td>  
    </tr>
    <tr>
      <td width="100%" align="center">
      <form method="POST" action="sendcm.asp">
        <input type="submit" value="发送注册确认信" name="Button">
      </form>
      </td>
    </tr>
    <tr>
      <td width="100%" align="center"><a href="javascript:history.back();"><b>返回</b></a></td>
    </tr> 
  </table>  
</div>

</body>

</html>

⌨️ 快捷键说明

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