<%Response.Buffer=true
response.expires=0
myid=Session("myid")
myname=Session("myname")
if myid="" or myname="" then response.end
application.lock
call get_guests
call get_maxuser
set rsparam=conn.execute("select * from param")
if myname<>guests(myid,0) or Session("mytemp")<>guests(myid,1) then response.end
my_level=guests(myid,4)
if my_level<(-1*guests(myid,9)) then my_level=-1*guests(myid,9)
if IsNumeric(request("room")) and request("room")<>"" then
room_id=cint(request("room"))
else
room_id=guests(myid,5)
end if
set rs=conn.execute("select * from room")
if IsNumeric(request("ID")) then
ID=cint(request("ID"))
if ID<0 or ID>MaxUser then ID=0
else
ID=0
end if
ip_protect=true
room_name=""
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
count_all=count_all+1
end if
next
op_str=op_str+""
rs.movenext
loop
%>
<%count=0
for j=ID to MaxUser
if count>49 then
exit for
end if
if guests(j,0)<>"" and guests(j,5)=room_id and guests(j,4)<>rsparam("superlevel") then
ip=""
count=count+1
if my_level-rsparam("lseelevel")>=0 and guests(myid,4)-guests(j,4)>-1 then
l=guests(j,4)
over_l=my_level-rsparam("lseeip")+4
if over_l>3 then
if ip_protect then
over_l=3
else
ip=guests(j,2)
end if
end if
if ip="" then
location=instr(guests(j,2),".")
for k=2 to over_l
location=instr(location+1,guests(j,2),".")
next
ip=mid(guests(j,2),1,location)
end if
else
l=" "
ip=" "
end if
%>
<%end if
next%>