Ir para conteúdo
Fórum Script Brasil
  • 0

Conflito No Global.asa

PhoEniXFirE

Perguntado por PhoEniXFirE,

 Share

Pergunta

PhoEniXFirE

PhoEniXFirE

Postado
Postado

Estou com dois global.asa, o primeiro é de um contador de internautas q estão online o outro é de um chat.

Mas quando junto os dois, tenho um problema, pois rolagem automárica do chat n funciona, apenas funciona para o internauta q abre o chat, o primeiro internauta a entrar no batepapo, o restante fica sem a rolagem automática, mesmo q todos os usuários abandonem o chat e reste apenas um, ou então, entre um depois com o chat vazio, a rolagem n funciona, apenas quando eu mexo no global.asa, q é quando o chat é reiniciado. o 3º code é o global.asa com usuarios + chat.

<script language=VBScript RUNAT=Server>

Sub Application_OnStart

	Application.Lock
	Application("usu_corrente") = 0
	Application.UnLock

End sub

Sub Session_OnStart

	Application.Lock
	Application("usu_corrente") = Application("usu_corrente") + 1
	Application.UnLock

   Application.Lock 
   Application("Contador") = Application("Contador") + 1
   Application.UnLock 
   Session.Timeout = 1

End Sub

Sub Session_OnEnd

	Application.Lock
	Application("usu_corrente") = Application("usu_corrente") - 1
	Application.UnLock

end sub

</SCRIPT>
Global.asa do batepapo: 
<script language=VBScript RUNAT=Server>

Application("titulo") = "Bate-Papo - euclidesdacunha.com"
Application("fundochat") = "fundo.jpg"
Application("tarja_r") = "#F7FFEA"

	If Session("careta") = "não" Then
  strCareta = ""
	else
  strCareta = "<img src=caretas/" & Session("careta") & ".gif>"
	end if

Sub Application_OnStart

   Dim sl01_Usuarios(20)  
   Dim sl01_Mensagens(20)
   Dim sl01_UltimaUsuarios(20)
   Dim sl01_ParaUsuario(20)
   Dim sl01_Exclusiva(20)
   Dim sl01_DeUsuario(20)
    
   sl01_Mensagens(0) = "<center><font color=#003366 size=3 face=arial><b>Bate-papo em fase de teste!</b></font></center>"
   sl01_Exclusiva(0) = 0
   sl01_ParaUsuario(0) = 0
   sl01_DeUsuario(0) = 0
   sl01_Usuarios(0) = "Todos"

   For i=1 To 19
   sl01_Mensagens(i) = ""
   sl01_Exclusiva(i) = 0
   sl01_ParaUsuario(i) = 0
   sl01_DeUsuario(i) = 0
   sl01_Usuarios(i) = ""   
   Next
   Application("sl01_Exclusiva") = sl01_Exclusiva
   Application("sl01_ParaUsuario") = sl01_ParaUsuario
   Application("sl01_DeUsuario") = sl01_DeUsuario
   Application("sl01_UltimaUsuarios") = sl01_UltimaUsuarios
   Application("sl01_Usuarios") = sl01_Usuarios
   Application("sl01_Mensagens") = sl01_Mensagens
   
'end sala01

End sub

Sub Session_OnStart

   Session.Timeout = 1
   Session("rolagem") = "checked"

End Sub

Sub Session_OnEnd

'begin sala01
   If Session("sl01_Usuario") <> 0 Then
   Application.Lock 
   sl01_Usuarios = Application("sl01_Usuarios")
   sl01_Mensagens = Application("sl01_Mensagens")
   sl01_ParaUsuario = Application("sl01_ParaUsuario")
   sl01_Exclusiva = Application("sl01_Exclusiva")
   sl01_DeUsuario = Application("sl01_DeUsuario")

   For i=18 To 0 Step -1
      sl01_Mensagens(i+1) = sl01_Mensagens(i) 
      sl01_Exclusiva(i+1) = sl01_Exclusiva(i)
   sl01_ParaUsuario(i+1) = sl01_ParaUsuario(i)
   sl01_DeUsuario(i+1) = sl01_DeUsuario(i)
   Next

   sl01_StrNovaMensagem = "<table width=100% border=0 cellspacing=0 cellpadding=0><tr><td><font size=1 face=arial>("+formatdatetime(now,vblongtime)+")</font>" & strCareta & "<font size=2 face=arial color=" & Session("cor") & "><B> " & sl01_Usuarios(Session("sl01_Usuario")) & ": </b></font><font color=#FF0000 size=2 face=arial><b> sai da sala...</font></td></tr></table>"
   sl01_StrNovaMensagem = sl01_StrNovaMensagem 
   sl01_Mensagens(0) = sl01_StrNovaMensagem 
   sl01_ParaUsuario(0) = 0
   sl01_DeUsuario(0) = Session("sl01_Usuario")
   sl01_Exclusiva(0) = 0
   sl01_Usuarios(Session("sl01_Usuario")) = ""

   'Retorna a matriz
   Application("sl01_Mensagens") = sl01_Mensagens
   Application("sl01_Exclusiva") = sl01_Exclusiva
   Application("sl01_ParaUsuario") = sl01_ParaUsuario
   Application("sl01_DeUsuario") = sl01_DeUsuario
   Application("sl01_Usuarios") = sl01_Usuarios
   Application.UnLock 
   End if
'end sala01

end sub


</SCRIPT>
Global.asa com usuarios online + chat: 
<script language=VBScript RUNAT=Server>

' ========Batepapo==============
Application("titulo") = "Bate-Papo - euclidesdacunha.com"
Application("fundochat") = "fundo.jpg"
Application("tarja_r") = "#F7FFEA"

	If Session("careta") = "não" Then
  strCareta = ""
	else
  strCareta = "<img src=caretas/" & Session("careta") & ".gif>"
	end if
' ========Batepapo-Final=============

Sub Application_OnStart
' ========Usuários==============
	Application.Lock
	Application("usu_corrente") = 0
	Application.UnLock

' ========Batepapo==============
   Dim sl01_Usuarios(20)  
   Dim sl01_Mensagens(20)
   Dim sl01_UltimaUsuarios(20)
   Dim sl01_ParaUsuario(20)
   Dim sl01_Exclusiva(20)
   Dim sl01_DeUsuario(20)
    
   sl01_Mensagens(0) = "<center><font color=#003366 size=3 face=arial><b>Bate-papo em fase de teste!</b></font></center>"
   sl01_Exclusiva(0) = 0
   sl01_ParaUsuario(0) = 0
   sl01_DeUsuario(0) = 0
   sl01_Usuarios(0) = "Todos"

   For i=1 To 19
   sl01_Mensagens(i) = ""
   sl01_Exclusiva(i) = 0
   sl01_ParaUsuario(i) = 0
   sl01_DeUsuario(i) = 0
   sl01_Usuarios(i) = ""   
   Next
   Application("sl01_Exclusiva") = sl01_Exclusiva
   Application("sl01_ParaUsuario") = sl01_ParaUsuario
   Application("sl01_DeUsuario") = sl01_DeUsuario
   Application("sl01_UltimaUsuarios") = sl01_UltimaUsuarios
   Application("sl01_Usuarios") = sl01_Usuarios
   Application("sl01_Mensagens") = sl01_Mensagens
   
'end sala01

End sub
'======================

Sub Session_OnStart
' ========Usuários==============
	Application.Lock
	Application("usu_corrente") = Application("usu_corrente") + 1
	Application.UnLock

   Application.Lock 
   Application("Contador") = Application("Contador") + 1
   Application.UnLock 
   Session.Timeout = 1

' ========Batepapo==============
   Session.Timeout = 1
   Session("rolagem") = "checked"

End Sub

Sub Session_OnEnd
' ========Usuários==============
	Application.Lock
	Application("usu_corrente") = Application("usu_corrente") - 1
	Application.UnLock

' ========Batepapo==============
'begin sala01
   If Session("sl01_Usuario") <> 0 Then
   Application.Lock 
   sl01_Usuarios = Application("sl01_Usuarios")
   sl01_Mensagens = Application("sl01_Mensagens")
   sl01_ParaUsuario = Application("sl01_ParaUsuario")
   sl01_Exclusiva = Application("sl01_Exclusiva")
   sl01_DeUsuario = Application("sl01_DeUsuario")

   For i=18 To 0 Step -1
      sl01_Mensagens(i+1) = sl01_Mensagens(i) 
      sl01_Exclusiva(i+1) = sl01_Exclusiva(i)
   sl01_ParaUsuario(i+1) = sl01_ParaUsuario(i)
   sl01_DeUsuario(i+1) = sl01_DeUsuario(i)
   Next

   sl01_StrNovaMensagem = "<table width=100% border=0 cellspacing=0 cellpadding=0><tr><td><font size=1 face=arial>("+formatdatetime(now,vblongtime)+")</font>" & strCareta & "<font size=2 face=arial color=" & Session("cor") & "><B> " & sl01_Usuarios(Session("sl01_Usuario")) & ": </b></font><font color=#FF0000 size=2 face=arial><b> sai da sala...</font></td></tr></table>"
   sl01_StrNovaMensagem = sl01_StrNovaMensagem 
   sl01_Mensagens(0) = sl01_StrNovaMensagem 
   sl01_ParaUsuario(0) = 0
   sl01_DeUsuario(0) = Session("sl01_Usuario")
   sl01_Exclusiva(0) = 0
   sl01_Usuarios(Session("sl01_Usuario")) = ""

   'Retorna a matriz
   Application("sl01_Mensagens") = sl01_Mensagens
   Application("sl01_Exclusiva") = sl01_Exclusiva
   Application("sl01_ParaUsuario") = sl01_ParaUsuario
   Application("sl01_DeUsuario") = sl01_DeUsuario
   Application("sl01_Usuarios") = sl01_Usuarios
   Application.UnLock 
   End if
'end sala01

end sub


</SCRIPT>

Como posso fazer para n ter mais este problema?

Link para o comentário
Compartilhar em outros sites

6 respostass a esta questão

Posts Recomendados

  • 0
Guest Alexvp

Guest Alexvp

Postado
Postado (editado)

biggrin.gif Use duas pastas diferentes para cada global.asa que você tiver , tenta isso abaixo comigo resolveu.

Clique com o botão direito em cima da pasta onde está os arquivos e o global.asa, clique em Propriedades e depois em Compartilhamento da Web, clique em compartilhar pasta (o PWS tem q estar rodando), e digite um nome sem acentos e sem espaços no campo aliases, no caso usaremos "teste". Clique em OK e Ok novamente. vá no IE e digite http://server/teste

Isso se chama, pasta virtual, q facilita bem mais o trabalho!!!

Asp Mais Scripts traduzidos em ASP

Asp Mais

Editado por dark0
Link para o comentário
Compartilhar em outros sites
  • 0
dark0

dark0

Postado
Postado

Manos..

Entendo pouquíssimo de Global.asa

Mas, até onde eu sei, para ele funcionar direito, é preciso deixar ele no RAIZ da pasta onde o site está hospedado.

Senao, não funciona não..

Como está ae phoenixfire ..?

Ainda está com problemas?

Desculpa não ter respondido antes.. mas eu tava com uma falta de tempo incrivel.. (ainda tou). e por isso respondia só os 'topicos faceis', hehe

Abraços

Link para o comentário
Compartilhar em outros sites
  • 0
bareta

bareta

Postado
Postado
Manos..

Entendo pouquíssimo de Global.asa

Mas, até onde eu sei, para ele funcionar direito, é preciso deixar ele no RAIZ da pasta onde o site está hospedado.

Senao, não funciona não..

Como está ae phoenixfire ..?

Ainda está com problemas?

Desculpa não ter respondido antes.. mas eu tava com uma falta de tempo incrivel.. (ainda tou). e por isso respondia só os 'topicos faceis', hehe

Abraços

mais o global.asa no iis não precisa ficar no raiz.....

Link para o comentário
Compartilhar em outros sites
  • 0
Guest Alexvp

Guest Alexvp

Postado
Postado

Cara é o seguinte não seu se você já resolveu seu problema , mas é só você usar duas pastas diferentes para cada global.asa , desculpe , mas isso só funciona no iis , desculpa ter colocado pws.

Asp mais Scripts em asp Traduzidos !!!!

Asp mais

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.

×
 Share
Ir para lista de Perguntas


  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,3k
×
×
  • Criar Novo...