<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="UserSession.asp" -->
<!--#include file="UserConn.asp" -->
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>下线查询</title>
<style type="text/css">
<!--
body,td,th {
	font-size: 12px;
	color:#333333;
}
#lltt{ padding-left:10px;}
-->
</style>
<script src="UserDate.Js"></script>
</head>

<body>
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#F1F4F6" style="border:1px #Ffffff solid">
  <tr>
    <td height="25" colspan="2" bgcolor="#F1F4F6" id="lltt" style="color:#FF0000; font-weight:bold">今天是：<script language="javascript">CAL();</script> 我的帐号:<%=UserName%></td>
  </tr>
  <tr>
    <td width="79%" height="22" bgcolor="#FFFFFF"  id="lltt">下线用户</td>
    <td width="21%" bgcolor="#FFFFFF" align="center">推广时间</td>
  </tr>
  <%
  page=QvodCms_CLng(Request.QueryString("page")):If page<=0 or page="" Then page=1'初始化分页参数
  pagelink="?"'分页路径
  Set rs = Server.CreateObject("adodb.recordset")
  rs.open"select jtime,jfidd From qvodcms_user_jf Where jfuid="&Uid&"",Conn,1,1
  If Not(rs.Eof and rs.bof) Then
    rs.pagesize=12'每页数据
	rs.AbsolutePage=page
	m=rs.recordcount     '总记录
	n=rs.PageCount       '总页数
	z=rs.pagesize        '每页数量
	i=0
	Do While Not rs.eof and i<rs.pagesize
	i=i+1
  %>
  <tr>
    <td height="22" bgcolor="#FFFFFF"  id="lltt"><%Call NextName(rs("jfidd"))%></td>
    <td bgcolor="#FFFFFF" id="lltt"><%=rs("jtime")%></td>
  </tr>
  <%
  Rs.Movenext:loop
  %>
  <tr>
    <td height="28" colspan="2" bgcolor="#FFFFFF"  id="lltt"><%=ShowPage(pagelink&Product,m, z, page, True, True, "个", False)%></td>
  </tr>
  <%
  Else
  Response.Write "<tr><td height='28' colspan='2' bgcolor='#FFFFFF' style='color:#FF0000; font-weight:bold; text-align:center'>努力哦，你还没有下线！</td></tr>"
  End If 
  rs.Close
  Call CloseConn()
  %>
</table>
</body>
</html>

<%
Function NextName(Str)
  Set urs=Conn.Execute("Select ulc From qvodcms_user Where uid="&Clng(Str)&"")
  If not(urs.eof and urs.bof) then
   Response.Write(urs("ulc"))
   urs.Close
   Set urs=Nothing
  End If 
End Function
%>