Ho inserito nel mio sito una chat in asp.Visto che la chat si apre in una pop up vorrei che una volta terminato il logout la pagina si chiudesse automaticamente.Vi posto il codice ASP del file per il logout sperando che qualcuno possa darmi una mano....Grazie mille!!!
<%@Language = "VBScript"%>
<%
Option Explicit
Response.Buffer = True
Response.Expires = -1000
Dim vAction
Dim vChatName, vPassword, vNewName, vUserPassword, vRoomPassword
Dim vUserArray, vMoodArray, vUserCount
Dim vRoomNo, vNewRoomNo, vCheckOp
Dim vRedirectTo, vSound
Dim vINIFile, x
vAction = Request.QueryString("action")
vChatName = "" & Session("ChatName")
%><%
If vAction = "getuser" Then
If vChatName <> "" Then
Response.Write "UserName=" & Server.URLEncode(vChatName) & "&Result=OK"
Else
Response.Write "Result=NotLoggedIn"
End If
Response.Flush
Response.End
End If
%><%
Application.Lock
Select Case vAction
Case "login"
If vChatName <> "" Then
'already logged in
Session.Timeout = 2
Session("LastLine") = Session("StartLine")
Response.Write "Result=OK"
Else
vRoomNo = "" & Session("RoomNo")
If vRoomNo = "" Then vRoomNo = 1 Else
vUserArray = Application("ChatUsers" & vRoomNo)
vMoodArray = Application("ChatMoods" & vRoomNo)
vUserCount = Application("UserCount" & vRoomNo)
vNewName = Trim(Request.Form("txtUserName"))
vPassword = Request.Form("txtPassword")
vCheckOp = CheckOp(vNewName, vPassword)
If vCheckOp = "BadPassword" Then
If vPassword = "" Then
Response.Write "Result=Password"
Else
Response.Write "Result=BadPassword"
End If
Else
If LogUserIn(vNewName, vUserArray, vMoodArray, vUserCount) = True Then
Session("Kicked") = "False"
If vCheckOp = "OK" Then
Session("Op") = "True"
Session("Password") = vPassword
Else
Session("Op") ="False"
Session("Password") = ""
End If
Session("ChatName") = vNewName
Session("RoomNo") = vRoomNo
Application("ChatUsers" & vRoomNo) = vUserArray
Application("ChatMoods" & vRoomNo) = vMoodArray
Application("UserCount" & vRoomNo) = vUserCount
AddLineToChat vRoomNo, "**" & vNewName & " has arrived**"
Session("StartLine") = Application("ChatLineCount" & vRoomNo)
Session("LastLine") = Application("ChatLineCount" & vRoomNo)
vINIFile = Application("INIFile")
vSound = Trim(INIFileValue(vINIFile, "Sound", "Sound"))
If vSound = "" Then vSound = "1"
Session.Timeout = 2
Response.Write "Result=OK&Users=" & Application("UserCount1") & "&Sound=" & vSound
Else
Response.Write "Result=BadLogin"
End If
End If
End If
Case "logout"
vRoomNo = Session("RoomNo")
vUserArray = Application("ChatUsers" & vRoomNo)
vMoodArray = Application("ChatMoods" & vRoomNo)
vUserCount = Application("UserCount" & vRoomNo)
If LogUserOut(vChatName, vUserArray, vMoodArray, vUserCount) Then
If vUserCount = 0 Then
Application("ChatLines" & vRoomNo) = ""
Application("ChatLineCount" & vRoomNo) = 0
Application("ChatMaxLines" & vRoomNo) = 0
End If
Application("ChatUsers" & vRoomNo) = vUserArray
Application("ChatMoods" & vRoomNo) = vMoodArray
Application("UserCount" & vRoomNo) = vUserCount
End If
Session("ChatName") = ""
Session.Timeout = 20
If Session("Kicked") = "True" Then
x = Instr(vChatName,"[")
If x > 1 Then vChatName = Left(vChatName, x - 1)
AddLineToChat vRoomNo, "**" & vChatName & " has left (kicked)**"
Else
AddLineToChat vRoomNo, "**" & vChatName & " has left (quit)**"
End If
vINIFile = Application("INIFile")
vRedirectTo = Trim(INIFileValue(vINIFile, "Logout", "redirect"))
If vRedirectTo <> "" Then
Response.Write "Redirect=" & Server.URLEncode(vRedirectTo) & "&Result=OK"
Else
Response.Write "Result=OK"
End If
Case "changeroom"
vINIFile = Application("INIFile")
vRoomNo = Session("RoomNo")
vNewRoomNo = Request.QueryString("room")
vUserPassword = Request.QueryString("Password")
vRoomPassword = INIFileValue(vINIFile, "Rooms", "Password" & vNewRoomNo)
If UCase(vRoomPassword) <> "" And UCase(vRoomPassword) <> UCase(vUserPassword) Then
Response.Write "Result=Denied&Password=" & vUserPassword
Else
If vRoomNo = vNewRoomNo Then
Response.Write "Result=OK"
Else
vUserArray = Application("ChatUsers" & vRoomNo)
vMoodArray = Application("ChatMoods" & vRoomNo)
vUserCount = Application("UserCount" & vRoomNo)
If LogUserOut(vChatName, vUserArray, vMoodArray, vUserCount) Then
AddLineToChat vRoomNo, "**" & vChatName & " has left (quit)**"
If vUserCount = 0 Then
Application("ChatLines" & vRoomNo) = ""
Application("ChatLineCount" & vRoomNo) = 0
Application("ChatMaxLines" & vRoomNo) = 0
End If
Application("ChatUsers" & vRoomNo) = vUserArray
Application("ChatMoods" & vRoomNo) = vMoodArray
Application("UserCount" & vRoomNo) = vUserCount
End If
vUserArray = Application("ChatUsers" & vNewRoomNo)
vMoodArray = Application("ChatMoods" & vNewRoomNo)
vUserCount = Application("UserCount" & vNewRoomNo)
If LogUserIn(vChatName, vUserArray, vMoodArray, vUserCount) = True Then
Session("RoomNo") = vNewRoomNo
AddLineToChat vNewRoomNo, "**" & vChatName & " has arrived**"
Application("ChatUsers" & vNewRoomNo) = vUserArray
Application("ChatMoods" & vNewRoomNo) = vMoodArray
Application("UserCount" & vNewRoomNo) = vUserCount
Session("StartLine") = Application("ChatLineCount" & vNewRoomNo)
Session("LastLine") = Application("ChatLineCount" & vNewRoomNo)
Response.Write "Result=OK"
Else
Response.Write "Result=BadLogin"
End If
End If
End If
End Select
Application.Unlock
Response.Flush
Response.End
%>
Rispondi quotando
