|
Início
- <% @ Language = "VBScript" %>
- <%
- Option Explicit
- Response . buffer = verdadeiro
- Response . Expira = - 1000
- Dim cenÃ
- Dim vChatName , vPassword , vNewName , vUserPassword , vRoomPassword
- Dim vUserArray , vMoodArray , vUserCount
- Dim vRoomNo , vNewRoomNo , vCheckOp
- Dim vINIFile , x
- cenà = Request . QueryString ( "ação" )
- vChatName = "" & Session ( "chatname" )
- %> <- # include file = "inifiles.asp" -> <%
- Se cenà = "getUser" Então
- Se vChatName <> "" Em seguida,
- Response . Escrever "username =" & Servidor . URLEncode ( vChatName ) & "& Resultado = OK"
- Outro
- Response . Escrever "Resultado = NotLoggedIn"
- Fim Se
- Response . Lavar
- Response . Fim
- Fim Se
- %> <- # include file = "chatlib.asp" -> <%
- Aplicação . Bloqueio
- Selecione Caso cenÃ
- Caso "login"
- Se vChatName <> "" Em seguida,
- 'Já logado
- Session.Timeout = 2
- Session ("lastline") = Session ("StartLine")
- Response.Write "Resultado = OK"
- Outro
- vRoomNo = 1
- 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)
- Se vCheckOp = "BadPassword" Então
- Se vPassword = "" Then
- Response.Write "Resultado = Password"
- Outro
- Response.Write "Resultado = BadPassword"
- End If
- Outro
- Se LogUserIn (vNewName, vUserArray, vMoodArray, vUserCount) = True Then
- Session ("Kicked") = "false"
- Se vCheckOp = "OK" Em seguida,
- Session ("Op") = "True"
- Session ("Senha") = vPassword
- Outro
- Session ("Op") = "false"
- Session ("Senha") = ""
- End If
- Session ("chatname") = vNewName
- Session ("RoomNo") = vRoomNo
- Application ("ChatUsers" & vRoomNo) = vUserArray
- Application ("ChatMoods" & vRoomNo) = vMoodArray
- Application ("UserCount" & vRoomNo) = vUserCount
- AddLineToChat vRoomNo, "**" & vNewName & "chegou **"
- Session ("StartLine") = Application ("ChatLineCount" & vRoomNo)
- Session ("lastline") = Application ("ChatLineCount" & vRoomNo)
- Session.Timeout = 2
- Response.Write "Resultado = OK & Usuários =" & Application ("UserCount1")
- Outro
- Response.Write "Resultado = badlogin"
- End If
- End If
- End If
- Caso "Sair"
- vRoomNo = Session ("RoomNo")
- vUserArray = Application ("ChatUsers" & vRoomNo)
- vMoodArray = Application ("ChatMoods" & vRoomNo)
- vUserCount = Application ("UserCount" & vRoomNo)
- Se LogUserOut (vChatName, vUserArray, vMoodArray, vUserCount) Em seguida,
- Se 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
- Se Session ("Kicked") = "True" Então
- x = Instr (vChatName, "[")
- Se x> 1 Então vChatName = Esquerda (vChatName, x - 1)
- AddLineToChat vRoomNo, "**" e vChatName & "deixou (expulso) **"
- Outro
- AddLineToChat vRoomNo, "**" e vChatName & "deixou (sair) **"
- End If
- Response.Write "Resultado = OK"
- Caso "changeroom"
- vINIFile = Application ("inifile")
- vRoomNo = Session ("RoomNo")
- vNewRoomNo = Request.QueryString ("sala")
- vUserPassword = Request.QueryString ("Senha")
- vRoomPassword = INIFileValue (vINIFile, "quartos", "Senha" e vNewRoomNo)
- Se UCase (vRoomPassword) <> "" E UCase (vRoomPassword) <> UCase (vUserPassword) Em seguida,
- Response.Write "Resultado = negado e senha =" & vUserPassword
- Outro
- Se vRoomNo = vNewRoomNo seguida
- Response.Write "Resultado = OK"
- Outro
- vUserArray = Application ("ChatUsers" & vRoomNo)
- vMoodArray = Application ("ChatMoods" & vRoomNo)
- vUserCount = Application ("UserCount" & vRoomNo)
- Se LogUserOut (vChatName, vUserArray, vMoodArray, vUserCount) Em seguida,
- AddLineToChat vRoomNo, "**" e vChatName & "deixou (sair) **"
- Se 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)
- Se LogUserIn (vChatName, vUserArray, vMoodArray, vUserCount) = True Then
- Session ("RoomNo") = vNewRoomNo
- AddLineToChat vNewRoomNo, "**" & vChatName & "chegou **"
- Application ("ChatUsers" & vNewRoomNo) = vUserArray
- Application ("ChatMoods" & vNewRoomNo) = vMoodArray
- Application ("UserCount" & vNewRoomNo) = vUserCount
- Session ("StartLine") = Application ("ChatLineCount" & vNewRoomNo)
- Session ("lastline") = Application ("ChatLineCount" & vNewRoomNo)
- Response.Write "Resultado = OK"
- Outro
- Response.Write "Resultado = badlogin"
- End If
- End If
- End If
- End Select
- Application.Unlock
- Response.Flush
- Response.End
- %>