<%Response.Buffer=true response.expires=0 application.lock call get_guests call get_maxuser application.unlock set rsparam=conn.execute("select * from param") set rs=conn.execute("select id,room_name,room_owner from room")%>

<%do while not (rs.bof or rs.eof) count=0 for i=0 to MaxUser if guests(i,0)<>"" and guests(i,5)=rs("ID") and guests(i,4)<>rsparam("superlevel") then count=count+1 next%> <%=rs("room_name")%>[在线<%=count%>人] <%rs.movenext loop%>