<% Option Explicit %>
<%
'
' $Id: admin.display.asp,v 1.1.1.1 2003/03/09 22:45:57 peter Exp $
'
'
'
' @author Peter Theill peter@theill.com
'
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
%>
<%= APPLICATION_NAME %>
<%= getMsg("admin.login", APPLICATION_NAME) %>
" class=btn>
Id
Username
Actions
<%
Function printUsers()
Dim userId, user
For Each userId In conquerChatUsers
Set user = getUser(userId)
Response.Write("
")
Response.Write("
" & user.id & "
")
Response.Write("
" & user.name & "
")
Response.Write("
")
Response.Write("
")
Next
End Function
printUsers()
%>
Id
Name
<%
Function printRooms()
Dim roomId, room
For Each roomId In conquerChatRooms
Set room = getRoom(roomId)
Response.Write("
