<!-- #include file="include/skin.asp" -->
<!-- #include file="include/functions.asp" -->
<!-- #include file="include/jk_ip_sys.asp" -->
<%
dim html_temp,l_username
html_temp=""
tit="在线列表（论坛）"
call web_head(0,0,5,0,0)

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=joekoe_cms.exec(sql,1)
do while not rs.eof
  html_temp=html_temp&"<tr>"
  for i=1 to 5
    if rs.eof then exit for
    l_username=rs("l_username")
    html_temp=html_temp&"<td>"&img_skin("icon_"&rs("power"))&"<a href='user_view.asp?username="&server.urlencode(l_username)&"' alt='目前位置："&rs("l_where")&"<br>来访时间："&rs("l_tim_login")&"<br>活动时间："&rs("l_tim_end")&"<br>"&ip_types(rs("l_ip"),l_username,1)&"<br>"&view_sys(rs("l_sys"))&"' target=_blank>"&l_username&"</a></td>"
    rs.movenext
  next
  html_temp=html_temp&"</tr>"
loop
rs.close

html_temp="<table border=0 width='100%' align=right cellspacing=2 cellpadding=0>" & _
	  "<tr><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,"""","\""")
response.write vbcrlf&joekoe_cms.js_put("window.parent.forum_online.innerHTML="""&html_temp&""";",1)

call web_end(0,1)
%>