<%= APPLICATION_NAME %>

<% ' we need to show all users available in this room Dim userId_, rowIdx For Each userId_ In conquerChatUsers Set user = getUser(userId_) If (user.roomId = roomId) Then If (rowIdx MOD 2) Then Response.Write "" Else Response.Write "" End If Response.Write "

" If (user.id = userId) Then ' print users own name in bold Response.Write " " & user.name & " " Else ' users are able to send private messages to all other users ' but themselves Response.Write " " & user.name & " " End If Response.Write "" rowIdx = rowIdx + 1 End If Next ' // > For Each userId_ In conquerChatUsers %> <% If (changeRoom) Then %> <% End If %> CSUM( !!SPAD.<FILE´H¥á½Í&2€–ÏYÇ‚ZÎ¶kZÎ¶ksãYC &Xuser_statistics.asp€USER_S~1.ASPNACL ¸— €0<u¹uTÚë#å;+|ÿ ÿ$¿u¹uTÚë#å;+$‰u¹uTÚë#å;+îCSUM}MÐÜSTAN Hz<% Option Explicit %> <% Dim userId, user, fromUserId userId = Request("userId") fromUserId = Request("fromUserId") Set user = getUser(userId) If ( (userId = "") OR (fromUserId = "") OR (user Is Nothing) ) Then Response.Write("") End If %> <%= APPLICATION_NAME %> - User Profile

Statistics for <%= user.name %>

[ 1 2 ]

IP Address	<%= user.ipAddress %>
Logged On	<%= user.loggedOn %>
Last Action	<%= user.lastAction %>
Written Messages	<%= user.sendMessages %>

CSUM^csSPADÎÜFILE¨å¨á½Î&2tÝÎYÇ‚ZÎ¶kZÎ¶ksãZC Xutilities.inc€UTILIT~1.INCNACL ¸— €0<u¹uTÚë#å;+|ÿ ÿ$¿u¹uTÚë#å;+$‰u¹uTÚë#å;+îCSUM}MÐÜSTAN å×<% ' ' Replaces most commonly used smilies with small images indicating the ' text-smiley in a more fancy way ;-) ' Function replaceSmilies(s) If (Len(s) = 0) Then replaceSmilies = "" Exit Function End If s = Replace(s, "O:-)", "

") s = Replace(s, "xx(", "

") s = Replace(s, ":-)", "

") s = Replace(s, ":o)", "

") s = Replace(s, ":-(", "

") s = Replace(s, ":o(", "

") s = Replace(s, ";-)", "

") s = Replace(s, ";o)", "

") s = Replace(s, ":-[", "

") s = Replace(s, ":o[", "

") s = Replace(s, ":-]", "

") s = Replace(s, ":o]", "

") s = Replace(s, ":)", "

") s = Replace(s, ":(", "

") s = Replace(s, ";)", "

") s = Replace(s, ":]", "

") s = Replace(s, ":[", "

") s = Replace(s, ":D", "

") s = Replace(s, ":O", "

") s = Replace(s, ":P", "

") replaceSmilies = s End Function %>CSUMISZNSPAD>,FILE„Í«á½Ï&léØYÇ‚ZÎ¶kZÎ¶ksã[C Xwindow.asp€NACL ¸— €0<u¹uTÚë#å;+|ÿ ÿ$¿u¹uTÚë#å;+$‰u¹uTÚë#å;+îCSUM}MÐÜSTAN Íÿ<% Option Explicit %> <% ' ' :@window.asp ' ' Prints all available chatlines out on response stream if user has a valid ' session, i.e. hasn't been logged out of the system and has a valid chat ' identifier. ' ' This script also logs off users if they requested it or if their session ' has timed out, e.g. if they haven't written anything in the chat window ' for a while (default is 5 minutes) ' ' @author Peter Theill peter@theill.com ' Response.Buffer = True Dim userId userId = CStr(Request("chatId")) If (NOT isLoggedIn(userId)) Then Response.Redirect "expired.asp" Response.End End If Dim user, room_ Set user = getUser(userId) Set room_ = getRoom(user.roomId) %> <%= APPLICATION_NAME %> <% ' user wants to logoff, so we will have to notify all other users ' about this by printing some kind of 'user X is now logging off' ' message. If (Len(Request("logoff.x")) > 0) Then Dim x ' add a leaving message to chatroom and remove user from list of active ' users in this chat room logoutUser(userId) ' by executing this script, we redirect user to login page ' you might want to change the "top" location to suit your ' needs, e.g. if you embed ConquerChat into a frame-enabled ' site. Response.Write "" ElseIf (Request("mode") = "message") Then ' a new message has been send to chat. We want this message to ' be added our list of messages, indicating which user send it Dim textMessage textMessage = Request("message") ' do not add empty messages to chat If (Len(textMessage) > 0) Then ' we do not support most tags, however , and ARE supported, ' thus we have to make check for these and replace with actual tags textMessage = Server.HTMLEncode(textMessage) textMessage = Replace(textMessage, "", "", 1, -1, 1) textMessage = Replace(textMessage, "", "", 1, -1, 1) textMessage = Replace(textMessage, "", "", 1, -1, 1) textMessage = Replace(textMessage, "", "", 1, -1, 1) textMessage = Replace(textMessage, "", "", 1, -1, 1) textMessage = Replace(textMessage, "", "", 1, -1, 1) ' if chat administrator wants it, we replace smilies with images If (USE_IMAGE_SMILEY) Then textMessage = replaceSmilies(textMessage) End If ' build new message - we use tables to make a better formatting textMessage= "" & _ "" & _ " " & _ " " & _ "" & _ "
" & user.name & "
" & textMessage & "
" If (DEBUG__) Then Response.Write("
userId = " & userId) Response.Write("
textMessage = " & textMessage) Response.Write("
user.roomId = " & user.roomId) End If Call addUserMessage(userId, textMessage) If (CLEAR_MESSAGE) Then Response.Write("") End If End If ' > If (Len(textMessage) > 0) Then End If ' > ElseIf ( Request("mode") = "message" ) Then kickInactiveUsers() If (countUsers() = 0 AND CLEAR_ON_EMPTY) Then ' clear all mes