view.asp

来自「中文bux点击站源码。配合其他站点用」· ASP 代码 · 共 77 行

<!--#include file="top.asp"-->
<!--#include file="chklogin.asp"-->

<%
  ReferralLevel = Request ("ReferralLevel")
%>

<div id="contentwrapper">
<div id="maincolumn1">
<div class="text">
<h2><strong>查看下线</strong></h2><br />
<!--#include file="menu.asp"-->
<hr class="clear-contentunit" />
  <div align="center">
    <table border="0" cellpadding="0" cellspacing="0" width="100%">
      <tr>
        <td align="center">用户名</td>
        <td align="center">QQ号/MSN</td>
        <td align="center">注册邮箱</td>
        <td align="center">注册时间</td>
        <td align="center">当前状态</td>
        <td align="center">点击广告</td>
        <td align="center">介绍人</td>
      </tr>
      <%
        rs.open "Select * From member Where " & ReferralLevel & " = '" & UserName & "' order by ID",Conn
        While not rs.eof
           UserName = rs ("UserName")
           QQMSN = rs ("QQMSN")
           Email = rs ("Email")
           SignupTime = rs ("SignupTime")
           Referral = rs ("Referral")
           LoginTime = rs ("LoginTime")
           TotalClick= rs ("TotalClicked")
           Active = rs ("Active")
           Vacation = rs ("Vacation")
           Valid = rs ("Valid")
           Estate = "活动会员"
           If Active = False Then
              Estate = "未激活"
           End If
           If Vacation = True Then
              Estate = "假期模式"
           End If
           If Valid = False Then
              Estate = "无效会员"
           End If
           If DateDiff("d", LoginTime, Date()) > 30 Then
              Estate = "不活动"
           End If
      %>
      <tr>
        <td align="center"><% = UserName %></td>
        <td align="center"><% = QQMSN %></td>
        <td align="center"><% = Email %></td>
        <td align="center"><% = SignupTime %></td>
        <td align="center"><% = Estate %></td>
        <td align="center"><% = TotalClick %></td>
        <td align="center"><% = Referral %></td>
      </tr>
      <%
        rs.movenext
        wend
        rs.close
        Set rs = nothing
        Conn.Close
        Set Conn = nothing
      %>
    </table>
  </div>
<p align="center"><!--#include file="ad.asp"--><br />
<hr/>
</div></div></div>
<!--#include file="footer.asp"-->
</div>
</body>
</html>