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

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%=bbsinfo("bbsname")%></title>
<LINK 
href="css.css" type=text/css rel=stylesheet>
</head>
<body>
<!--#include file="top.asp"-->
<table width="780" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr> 
    <td width="8" background="images/left.gif">&nbsp;</td>
    <td valign="top" bgcolor="#FFFFFF"><table width="100%" border="0" cellspacing="1" cellpadding="0">
        <tr> 
          <td><table width="100%" border="0" cellspacing="0" cellpadding="0">
              <tr> 
                <td height=6></td>
              </tr>
            </table>
            <table width="754" border="0" align="center" cellpadding="0" cellspacing="0">
              <tr> 
                <td><table width="100%" border="0" cellspacing="0" cellpadding="0">
                    <tr> 
                      <td width=6 height=6><img src="images/index_2.gif" width="6" height="6"></td>
                      <td width="742" background="images/index_3.gif"></td>
                      <td width=6> <div align="right"><img src="images/index_1.gif" width="6" height="6"></div></td>
                    </tr>
                  </table>
                  <table width="100%" border="0" cellspacing="0" cellpadding="0">
                    <tr> 
                      <td width=1 bgcolor="C6C3C4"></td>
                      <td height=6 bgcolor="FFFFFF"> <table width="100%" border="0" cellspacing="0" cellpadding="8">
                          <tr>
                            <td><img src="images/Order_26.gif" width="10" height="10"> 
                              <a href=index.asp><%=bbsinfo("bbsname")%></a>→论坛在线用户</td>                                                         
                            <td>                                                            
 </td>                                                     
                          </tr>                                                        
                        </table></td>                                                                                    
                      <td width=1 bgcolor="C6C3C4"></td>                                                                                    
                    </tr>                                                                                    
                  </table>                                                                                    
                  <table width="100%" border="0" cellspacing="0" cellpadding="0">                                                                                    
                    <tr>                                                                                     
                      <td width=5 height=5><img src="images/left_data_4.gif" width="5" height="5"></td>                                                                                    
                      <td width="742" background="images/left_data_6.gif"></td>                                                                                    
                      <td width=5> <div align="right"><img src="images/left_data_5.gif" width="5" height="5"></div></td>                                                                                    
                    </tr>                                                                                    
                  </table></td>                                                                                    
              </tr>                                                                                    
            </table>                                                                                    
            <br>                                                                                    
            <table width="100%" border="0" cellspacing="0" cellpadding="0">                                                                                   
              <tr>                                                                                    
                <td width="55%"></td>                                                                                     
                <td width="45%">                                           
                                                               
                  <p align="right"> </p>                                                       
                </td>                                                                                     
              </tr>                                                                                     
            </table>    
<%conn.execute("delete*from online where ltime<now-0.015")          
set rs2=server.createobject("adodb.recordset")               
sql="select * from online"               
rs2.open sql,conn,1,1               
          
%>          
                                                                               
            <table width="755" border="0" cellpadding="3" cellspacing="1" bgcolor="494949" class="listcontents3">                                                                                     
              <tr>                                                                                      
                <td width="188">            
                  <p align="center"><font color="#FFFFFF">名单图例</font></td>                                                                                   
                <td width="188">           
                  <p align="center"><font color="#FFFFFF">用户名</font></td>                                                                                   
                <td width="188">          
                  <p align="center"><font color="#FFFFFF">Ip地址</font></td>                                                                                   
                <td width="189">          
                  <p align="center"><font color="#FFFFFF">登陆时间</font></td>                                                                                   
              </tr>                                                                                
                                                                
                                                                    
              <%          
shownum=20                                                                        
totalrecord=rs2.recordcount                                                                        
rs2.pagesize=shownum                                                                        
maxpage=rs2.pagecount                                                                        
                                                                        
requestpage=clng(request.querystring("page"))                                                                        
                                                                        
if requestpage="" or requestpage=0 then                                                                        
   requestpage=1                                                                        
end if                                                                        
if resquestpage>maxpage then                                                                        
    resquestpage=maxpage                                                                        
end if                                                                        
                                                                        
if not requestpage=1 then                                                                        
rs2.move (requestpage-1)*rs2.pagesize                                                                        
end if                                                                    
for i=1 to rs2.pagesize and not rs2.bof       
name=rs2("name")         
 if name=""  or isnull(name)then          
 name="游客"         
 end if  %>       
  <%set rs1=conn.execute("select * from member where username='"&rs2("name")&"' ")   
  %>                                                          
              <tr bgcolor="F3F3F3">                                                                 
                                                                 
                <td width="186">         
                  <p align="center"><%if rs1.eof and rs1.bof then%><img src=images/messages1.gif>   
  <%else%><% if rs1("manbid")=20000 then%><img src=images/messages4.gif width="16" height="15"><%elseif rs1("manbid")=8888 then%><img src=images/messages7.gif><%elseif rs1("manbid")<>0 and rs1("manbid")<7777  then%><img src=images/messages8.gif><%elseif rs1("manbid")=9999 then%>                                
                                            <img src=images/messages0.gif><%else%><img src=images/messages6.gif><%end if%>  <%end if%></p>        
                </td>                                                                                  
                                                                 
                <td width="186">        
                  <p align="center"><% if name="游客" then%><%=name%><%else%><a href=Userlist_data.asp?username=<%=name%>><%=name%></a><%end if%></p>      
                </td>                                                                                 
                                                                
                <td width="186">      
                  <p align="center"><%=rs2("ip")%> 　</p>     
                </td>                                                                                
                                                               
                <td width="185">      
                  <p align="center"><%=rs2("ltime")%></p>     
                </td>                                                                                
              </tr>          
<%rs2.movenext                                                                     
if rs2.eof then exit for                                                                     
next          
rs2.close     
set rs2=nothing%>                                                     
            </table>                                                                              
            <p align="center">                                                                             
            <br> <%                                                                    
if requestpage-1 mod 10=0 then                                                                    
 p=(requestpage-1) \ 10                                                                    
else                                                                    
 p=(requestpage-1) \ 10                                                                    
end if                                                                    
if requestpage=1 then                                                                    
 response.write "<font face=webdings color=""#FF0000"">9</font>"                                                                    
else                                                                    
 response.write "<a href=list_online.asp&page=1&findstr="&findstr&"&good=1 title=首页><font face=webdings>9</font></a>"                                                                    
end if                                                                    
if p*10>0 then response.write "<a href=list_online.asp&page="&p*10&"&findstr="&findstr&"&good=1 title=上十页><font face=webdings>7</font></a>"                                                                    
response.write "<b>"                                                                    
for ii=p*10+1 to P*10+10                                                                    
   if ii=requestpage then                                                                    
  response.write "<font color=""#FF0000"">"&ii&"</font> "                                                                    
 else                                                                    
  response.write "<a href=list_online.asp&page="&ii&"&findstr="&findstr&"&good=1>"&ii&"</a>   "                                                                    
 end if                                                                    
 if ii=maxpage then exit for                                                                    
next                                                                    
response.write "</b>"                                                                    
if ii<maxpage then response.write "<a href=list_online.asp&page="&ii&"&findstr="&findstr&"&good=1 title=下十页><font face=webdings>8</font></a>"                                                                    
if requestpage=maxpage then                                                                    
 response.write "<font face=webdings color=""#FF0000"">:</font>   "                                                                    
else                                                                    
 response.write "<a href=list_online.asp&page="&maxpage&"&findstr="&findstr&"&good=1 title=尾页><font face=webdings>:</font></a>"                                                                    
end if                                                                    
response.write"    总共有"&maxpage&"页   "                                                                     
                                                                   
%>                <table width="754" border="0" align="center" cellpadding="0" cellspacing="0">                                                                              
              <tr>                                                                               
                <td><table width="100%" border="0" cellspacing="0" cellpadding="0">                                                                              
                    <tr>                                                                               
                      <td width=6 height=6><img src="images/index_2.gif" width="6" height="6"></td>                                                                              
                      <td width="742" background="images/index_3.gif"></td>                                                                              
                      <td width=6> <div align="right"><img src="images/index_1.gif" width="6" height="6"></div></td>                                                                              
                    </tr>                                                                              
                  </table>                                                                              
                  <table width="100%" border="0" cellspacing="0" cellpadding="0">                                                                              
                    <tr>                                                                               
                      <td width=1 bgcolor="C6C3C4"></td>                                                                              
                      <td height=6 bgcolor="FFFFFF"> <table width="100%" border="0" cellspacing="0" cellpadding="3">                                                                              
                          <tr>                                                                               
                            <td>&nbsp;</td>                                                                                 
                          </tr>                                                                                 
                          <tr>                                                                                  
                            <td>&nbsp;&nbsp;                                                                  
                            </td>                                                                                 
                          </tr>                                                                               
                        </table></td>                                                                               
                      <td width=1 bgcolor="C6C3C4"></td>                                                                               
                    </tr>                                                                               
                  </table>                                                                               
                  <table width="100%" border="0" cellspacing="0" cellpadding="0">                                                                               
                    <tr>                                                                                
                      <td width=5 height=5><img src="images/left_data_4.gif" width="5" height="5"></td>                                                                               
                      <td width="742" background="images/left_data_6.gif"></td>                                                                               
                      <td width=5> <div align="right"><img src="images/left_data_5.gif" width="5" height="5"></div></td>                                                                               
                    </tr>                                                                               
                  </table></td>                                                                               
              </tr>                                                                               
            </table></td>                                                                               
        </tr>                                                                               
      </table>                                                                                
      <!--#include file="down.asp"-->                                                                               
    </td>                                                                               
    <td width="8" background="images/right.gif">&nbsp;</td>                                                                               
  </tr>                                                                               
</table>                                                                               
</body>                                                                               
</html>                                                                               
