<% Option Explicit %> <% If Trim(strUsername) = "" OR isNull(strUsername) OR IsEmpty(strUsername) Then Session.Abandon Response.Write(vbCrLf & "alert('No username found!');") Response.Write(vbCrLf & "parent.location=""default.asp"";") Response.End End If If CheckIfBanned(getIP()) Then Response.Write(vbCrLf & "alert('Your IP has been banned!');") Response.Write(vbCrLf & "parent.location=""default.asp"";") Response.End End If Application.Lock 'Get the array If IsArray(Application(ApplicationUsers)) Then saryActiveUsers = Application(ApplicationUsers) blnIsArray = True Else blnIsArray = False ReDim saryActiveUsers(6, 0) End If Dim intArrayPass Dim intArrayPos Dim blnUserFound Dim blnAdmin blnAdmin = CBool(Session("Admin")) intArrayPos = 0 blnUserFound = False For intArrayPass = 1 TO UBound(saryActiveUsers, 2) 'If saryActiveUsers(3, intArrayPass) = getIP() Then If saryActiveUsers(1, intArrayPass) = strUsername Then intArrayPos = intArrayPass blnUserFound = True 'Update the user to let the chatroom know they are still active saryActiveUsers(0, intArrayPass) = CBool(Session("Admin")) saryActiveUsers(1, intArrayPass) = strUsername saryActiveUsers(3, intArrayPass) = getIP() saryActiveUsers(5, intArrayPass) = CDbl(Now()) strAdminCommand = saryActiveUsers(6, intArrayPass) Exit For End If Next 'Array dimension lookup table '0 = Access '1 = Username '2 = Joined Date '3 = IP '4 = Last Post '5 = Last Active '6 = Pending Admin Command If blnUserFound = False Then ReDim Preserve saryActiveUsers(6, (UBound(saryActiveUsers, 2) + 1)) saryActiveUsers(0, UBound(saryActiveUsers, 2)) = 0 saryActiveUsers(1, UBound(saryActiveUsers, 2)) = strUsername saryActiveUsers(2, UBound(saryActiveUsers, 2)) = CDbl(Now()) saryActiveUsers(3, UBound(saryActiveUsers, 2)) = getIP() saryActiveUsers(4, UBound(saryActiveUsers, 2)) = CDbl(Now()) saryActiveUsers(5, UBound(saryActiveUsers, 2)) = CDbl(Now()) saryActiveUsers(6, UBound(saryActiveUsers, 2)) = "" Call PostMessage("", saryActiveUsers(1, intArrayPass) & " Sohbet Odamıza Hoşgeldiniz. Ben Serkan KOCA", 1) End If Select Case strAdminCommand Case "kick" Call LogOut() Response.Write(vbCrLf & "alert('You have been kicked!');") Response.Write(vbCrLf & "parent.location=""default.asp"";") Response.End End Select 'Remove the unactive users Call RemoveUnActive() Application(ApplicationUsers) = saryActiveUsers 'Javascript stuff Response.Write(vbCrLf & "var addUsers = ""Aktif Kullanıcılar: " & UBound(saryActiveUsers, 2) & "
"";") For intArrayPass = 1 TO UBound(saryActiveUsers, 2) Response.Write(vbCrLf & "addUsers += ""

") If saryActiveUsers(0, intArrayPass) = True Then Response.Write("" & saryActiveUsers(1, intArrayPass) & "") Else Response.Write("" & saryActiveUsers(1, intArrayPass) & "") End If If blnAdmin Then Response.Write(" Kick User - Ban IP") Response.Write("

"";") Next Application.UnLock 'Extra javascript stuff Response.Write(vbCrLf & "var usersBoxHTML = document.getElementById(""usersBox"");") Response.Write(vbCrLf & "usersBoxHTML.innerHTML = addUsers;") 'Response.Write(vbCrLf & "toBottom()") %>