<% ' ' $Id: admin.display.asp,v 1.1.1.1 2003/03/09 22:45:57 peter Exp $ ' ' ' ' @author Peter Theill peter@theill.com ' Option Explicit Response.Buffer = True %> <% If (Session("com.theill.conquerchat.administrator") <> "True") Then Response.Write("Not validated") Response.End End If If (Request("action") = "kick") Then logoutUser(Request("userId")) ElseIf (Request("action") = "init") Then ' initialise chat in order to fix users hanging in the chat or to apply ' room changes conquerChatUsers.RemoveAll conquerChatRooms.RemoveAll conquerChatMessages.RemoveAll ElseIf (Request("action") = "room.remove") Then removeRoom(Request("roomId")) End If %>

<%= getMsg("admin.login", APPLICATION_NAME) %>

" class="btn"> <% Function printUsers() Dim userId, user For Each userId In conquerChatUsers Set user = getUser(userId) Response.Write("") & vbCrLf Response.Write(" ") & vbCrLf Response.Write(" ") & vbCrLf Response.Write(" ") & vbCrLf Response.Write(" ") & vbCrLf Response.Write("") & vbCrLf Next End Function printUsers() %> <%= gettext("Id") %> <%= gettext("Username") %> <%= gettext("IP Address") %> <%= gettext("Actions") %> " & user.id & " " & user.name & " " & user.ipAddress & " <% Function printRooms() Dim roomId, room For Each roomId In conquerChatRooms Set room = getRoom(roomId) Response.Write("") Response.Write(" ") Response.Write(" ") ' Response.Write(" ") Response.Write("") Next End Function printRooms() %> <%= gettext("Id") %> <%= gettext("Name") %> " & room.id & " " & room.name & "