📄 view.asp
字号:
<!--#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>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -