<%@ Language=VBScript %>
<%if Session("weight")<>5 then 
Response.Redirect "error.asp?cause=4"
 end if
%>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<LINK 
href="css/default.css" rel=stylesheet>
</HEAD>
<BODY bgColor=#FFFBE7>
<object runat=server id=conn1 progid="adodb.connection"></object>
<%application.Lock
conn1.Open Application("p_jyzx")
Application.UnLock
%>
<TABLE cellSpacing=0 cellPadding=0 width=100% align=center border=0>
  <TBODY>
  <TR >
    <TD  align=left > <font size=4  color=#ff9933>E网友情联盟管理 </font></TD>
     <TD  align=left ><font size=4><a href=affiliate_info.asp?user_name=<%=Request("user_name")%> >返回</a></font></TD>
   </TR>
</TBODY>    
 </table>  
<%
set rs=server.CreateObject ("ADODB.recordset")
  sql="select * from affiliate_intro_vip where checked=1 and  user_name='"&Request("user_name")&"'"
    sql=sql&" order by time desc"
   rs.Open sql,conn1,3,2

	rs.PageSize=15

if session("cur_page1")="" then
	session("cur_page1")=1
end if

if Request("move")=1 then
	session("cur_page1")=1
end if
if Request("move")=2 then
	session("cur_page1")=session("cur_page1")-1
end if
if Request("move")=3 then
	session("cur_page1")=session("cur_page1")+1
end if
if Request("move")=4 then
	session("cur_page1")=rs.PageCount
end if
if session("cur_page1")<1 then
session("cur_page1")=1
end if
if session("cur_page1")>rs.PageCount then
session("cur_page1")=rs.PageCount
end if
   


%>
 
    
    
  
  <BR><BR>
 <TABLE cellSpacing=0 cellPadding=0 width=100% align=center border=0>
  <TBODY>
  <TR> 
  
    <TD>
      <P align=center><B><FONT color=#ff9933><%=Request("user_name")%>介绍的VIP用户统计列表&nbsp;共有<%=rs.RecordCount%>条记录</FONT></B></P>
        
      <TABLE cellSpacing=1 width="100%" align=center bgColor=#FFCC33>
        <TBODY> 
        <TR bgcolor="#FFE28C"> 
          <TD align=middle width=30 height=23>编号</TD>
          <TD align=middle height=23><STRONG>被介绍人</STRONG></TD>
          <TD align=middle height=23><STRONG>IP地址</STRONG></TD>
          <TD align=middle height=23><STRONG>访问时间</STRONG></TD>
			<TD align=middle height=23><STRONG>操作</STRONG></TD>
                    <td></td>
          </TR>
  <%	rows=1
if rs.RecordCount<>0 then  
rs.AbsolutePage=session("cur_page1")
end if
	while not rs.EOF and rows<=rs.PageSize 
	
%>
        
        <TR align=middle bgColor=#FFFBE7>
          <TD height=23><%=rows%></TD>
       <TD><A  href="../love/show_user.asp?user_name=<%=rs("introduced_user")%>"
            target=_blank><%=rs("introduced_user")%></A></TD>
         <TD><%=rs("ip")%></TD>
        <TD><%=rs("time")%></TD>
       <TD><a href="affiliate_stat_del_join_vip.asp?id=<%=rs("id")%>&user_name=<%=Request("user_name")%>" >[删除]</a></TD>
         
                    <td></td>
          </TR>
  
    <%
    rows=rows+1
    rs.MoveNext
    wend%> 
    <tr bgColor=#FFFBE7><td colspan=6  align=center>
 <% 'if session("cur_page1")>1then %>
<A href=affiliate_stat_join_vip.asp?move=1&user_name=<%=Request("user_name")%>  >首页</A>　
<a href=affiliate_stat_join_vip.asp?move=2&user_name=<%=Request("user_name")%> >上一页</a>
<%' end if%>
<% 'if session("cur_page1")<rs.PageCount  then %>
<a href=affiliate_stat_join_vip.asp?move=3&user_name=<%=Request("user_name")%> >下一页</a>　
<a href=affiliate_stat_join_vip.asp?move=4&user_name=<%=Request("user_name")%> >末页</a>
 <%' end if %>

</td>
 </tr>
 <tr bgColor=#FFFBE7><td colspan=6  align=center>
 第<%=session("cur_page1")%>页/共<%=rs.PageCount%>页
 </td>
 </tr>
 
        </TBODY></TABLE></TD></TR></TBODY></TABLE>
<HR width="100%" SIZE=1>



</BODY>
</HTML>
