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

<HTML>
<HEAD>
<TITLE></TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312"><LINK 
href="css.css" type=text/css rel=stylesheet>

<SCRIPT src="esung_glayer.js"></SCRIPT>

</HEAD>
<BODY  leftMargin=0 topMargin=0>
<SCRIPT language=JavaScript>

SL_open (500, 95)

</SCRIPT><%conn.execute("delete*from online where ltime<now-0.015") 
set tongji=server.createobject("adodb.recordset")      
sqlstr="select * from online"      
tongji.open sqlstr,conn,1,1      
 
%> 
<table width="500" height="95" border="0" align="center" cellpadding="5" cellspacing="0" bgcolor="#FFFFFF">
  <tr> 
<%i=1 
while not tongji.eof 
name=tongji("name")
 if name=""  or isnull(name)then 
 name="ÓÎ¿Í"
 end if  %>

    <td valign="top"> 
      <%if name="ÓÎ¿Í" then%>
      <img src=images/messages1.gif><%=name%> 
      <%else%>
      <%set rs1=conn.execute("select * from member where username='"&tongji("name")&"' ")
if rs1.eof and rs1.bof then%>
      <img src=images/messages1.gif> 
      <%else%>
      <% if rs1("manbid")=20000 then%>
      <img src=images/messages4.gif> 
      <%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%>
      <a href=Userlist_data.asp?username=<%=name%> title=<%=tongji("ip")%> target=top><%=name%></a> 
      <%end if%>
    </td>
    <%if i mod 5 = 0 then %>  
</tr><%   
			end if
 
tongji.MoveNext
i=i+1
wend
%> 

</table>
<SCRIPT language=JavaScript>

SL_close ()

</SCRIPT>
</BODY></HTML>
