O Chat Em Flash Para Download

[Guest - Mauzix -]

Pessoal no link https://www.scriptbrasil.com.br/?class=2.3&...goria=Bate-Papo é um dowload do chat em flash ...

esta occorrendo um problema ...

quando o usuario vai no "menu" depois em "sair" ele sai normal!!!

mas se ele fecha a janela do explorer direto o nome fica nele até o dia seguinte .. o que eu faço??

grato ...

[Guest Guest]

o erro esta aqui?

<%@Language = "VBScript"%>

<%

Option Explicit

Response.Buffer = True

Response.Expires = -1000

Dim vChatUsers, vChatMoods, vUser, vUserCount, vResult, vThisUser

Dim vRoomNo, vMyName, vDisplayedUserCount

vRoomNo = Session("RoomNo")

vMyName = Session("ChatName")

vUserCount = Application("UserCount" & vRoomNo)

If vUserCount > 0 Then

vChatUsers = Application("ChatUsers" & vRoomNo)

vChatMoods = Application("ChatMoods" & vRoomNo)

For vUser = 0 To vUserCount - 1

vThisUser = vChatUsers(vUser)

If vThisUser = vMyName & "[kicked]" Then

Session("Kicked") = "True"

Session("ChatName") = vMyName & "[kicked]"

Response.Write "Result=Kicked"

Response.Flush

Response.End

ElseIf vThisUser = vMyName & "[banned]" Then

Session("Kicked") = "True"

Session("ChatName") = vMyName & "[banned]"

Response.Cookies("BannedFromChat") = "True"

Response.Cookies("BannedFromChat").Expires = "January 1, 2030"

Response.Write "Result=Kicked"

Response.Flush

Response.End

Else

If Instr(vThisUser,"[kicked]") = 0 And Instr(vThisUser,"[banned]") = 0 Then

vDisplayedUserCount = vDisplayedUserCount + 1

vResult = vResult & "User" & vDisplayedUserCount & "=" & vThisUser & "&"

vResult = vResult & "Mood" & vDisplayedUserCount & "=" & vChatMoods(vUser) & "&"

End If

End If

Next

vResult = vResult & "UserCount=" & vDisplayedUserCount

Else

vResult = "UserCount=0"

End If

Response.Write vResult & "&Me=" & Session("ChatName") & "&Result=OK&Room=" & Session("RoomNo")

Response.Flush

Response.End

%>

acho que ele esta armazenando Cookies??

[Guest Guest]

estqe é o global ... sera que esta aqui???

<script LANGUAGE=VBScript RUNAT=Server>

Sub Session_OnEnd

Dim vChatName, vChatUsers, vChatMoods, vUserCount

Dim vRoomNo

Dim m, n

vRoomNo = Session("RoomNo")

vChatName = "" & Session("ChatName")

If vChatName <> "" Then

Application.Lock

vUserCount = CLng(Application("UserCount" & vRoomNo))

If vUserCount < 2 Then

vChatUsers = ""

vChatMoods = ""

vUserCount = 0

Else

vChatUsers = Application("ChatUsers" & vRoomNo)

vChatMoods = Application("ChatMoods" & vRoomNo)

For n = 0 To vUserCount - 1

If vChatUsers(n) = vChatName Then

For m = n To vUserCount - 2

vChatUsers(m) = vChatUsers(m+1)

vChatMoods(m) = vChatMoods(m+1)

Next

vUserCount = vUserCount - 1

Redim Preserve vChatUsers(vUserCount)

Redim Preserve vChatMoods(vUserCount)

Exit For

End If

Next

End If

Application("ChatUsers" & vRoomNo) = vChatUsers

Application("ChatMoods" & vRoomNo) = vChatMoods

Application("UserCount" & vRoomNo) = vUserCount

AddLineToChat vRoomNo, "**" & vChatName & " has left (timed out)**"

Session("ChatName") = ""

If vUserCount = 0 Then

Application("ChatLines" & vRoomNo) = ""

Application("ChatLineCount" & vRoomNo) = 0

Application("ChatMaxLines" & vRoomNo) = 0

End If

Application.Unlock

End If

End Sub

Sub AddLineToChat (ByVal vRoomNo, ByVal vNewLine)

Dim vCurrentLine, vChatLines, vMaxLines

vCurrentLine = Application("ChatLineCount" & vRoomNo)

vChatLines = Application("ChatLines" & vRoomNo)

vMaxLines = Application("ChatMaxLines" & vRoomNo)

vCurrentLine = vCurrentLine + 1

If vCurrentLine > vMaxLines Then

vMaxLines = vMaxLines + 500

If vCurrentLine = 1 Then

Redim vChatLines(vMaxLines)

Else

Redim Preserve vChatLines(vMaxLines)

End If

Application("ChatMaxLines" & vRoomNo) = vMaxLines

End If

vChatLines(vCurrentLine - 1) = vNewLine

Application("ChatLines" & vRoomNo) = vChatLines

Application("ChatLineCount" & vRoomNo) = vCurrentLine

End Sub

</SCRIPT>