<!-- #include file="include/config.asp" -->
<!-- #include file="include/conn.asp" -->
<%
dim html_temp,l_username
html_temp=""

sql="select user_login.*,user_data.power from user_data inner join user_login on user_login.l_username=user_data.username where user_login.l_type=0 order by user_login.l_id"
set rs=conn.execute(sql)
do while not rs.eof
  html_temp=html_temp&"<tr class=tdbg-dark>"
  for i=1 to 5
    if rs.eof then exit for
    l_username=rs("l_username")
    html_temp=html_temp&"<td>"&img_small("icon_"&rs("power"))&"<a href='user_view.asp?username="&server.urlencode(l_username)&"' title='目前位置："&rs("l_where")&"<br>来访时间："&rs("l_tim_login")&"<br>活动时间："&rs("l_tim_end")&"<br>"&objv7.ip_types(rs("l_ip"),l_username,0)&"<br>"&objv7.view_sys(rs("l_sys"))&"' target=_blank>"&l_username&"</a></td>"
    rs.movenext
  next
  html_temp=html_temp&"</tr>"
loop
rs.close:set rs=nothing
call close_conn()

html_temp="<table border=0 width='99%' align=right cellspacing=2 cellpadding=0>" & _
	  "<tr class=tdbg-dark><td width='20%'></td><td width='20%'></td><td width='20%'></td><td width='20%'></td><td width='20%'></td></tr>" & _
	  html_temp&"</table>"
html_temp=replace(html_temp,"""","\""")
%>
<script language=javascript>
parent.forum_online.innerHTML="<%=html_temp%>";
</script>