Podem exclarecer essa

[Jorge Henrique 0]

Caros amigos do Fórum

 

Estou com um probleminha aqui cruel, mas estou com medo de arriscar e dar m...

 

 

Pois tenho aqui no meu servidor um chat com necessita de um global.asa, até então tudo certo.

 

Mas estou querendo implementar um outro aplicativo que necessita de global.asa tb, pois a minha dúvida é?

 

Posso fazer a inserção de um script pra dentro de outro global.asa?

 

Ou tem uma forma mais simples pra fazer isso?

 

No Aguardo

Jorge Henrique

 

-------------------------GLOBAL.ASA do Chat

 

<script LANGUAGE=VBScript RUNAT=Server>

 

'========================================

'= Desenvolvido por Jorge Henrique C.S =

'= cananeiamania@cananeiamania.com.br =

'= http://www.cananeiamania.com.br =

'========================================

 

Application("titulo") = "Desenvolvido pela Equipe do CananéiaMania.com.br- http://www.cananeiamania.com.br"

Application("fundochat") = "fundo.gif"

Application("tarja_r") = "#EEEEEE"

 

If Session("careta") = "nao" 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 size=4 face=arial><b>" & Application("titulo") & "</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 = "<font size=1 face=Verdana>("+formatdatetime(now,vblongtime)+")</font>" & strCareta & "<font size=2 face=Verdana><B> " & sl01_Usuarios(Session("sl01_Usuario")) & ": </b></font><font size=1 face=Verdana> sai da sala...</font>"

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 do Contador

 

 

<script LANGUAGE=VBScript RUNAT=Server>

Sub Application_OnStart

Application("visits")

Application("Active") = 0

End Sub

 

Sub Application_OnEnd

 

End Sub

 

Sub Session_OnStart

Session.Timeout = 30

Session("Start") = Now

Application.Lock

Application("visits") = Application("visits") + 1

intTotal_visitors = Application("visits")

Application.Unlock

Session("VisitorID") = intTotal_visitors

 

Application.Lock

Application("Active") = Application("Active") + 1

Application.Unlock

End Sub

 

Sub Session_OnEnd

Application.Lock

Application("Active") = Application("Active") - 1

Application.Unlock

End Sub

 

</SCRIPT>

[JucaMaster 0]

Eae Jorge beleza kra, Tentei te contatar pelo MSN mas acho que tá derrubado. você pode colocar sim outro script mas tome cuidado com o nome da application que você colocar para não dar conflito

[asp.net 0]

Lembre-se que global so pode ter um, você pode sim, colocar qualquer script dentro do global.asa seguindo é claro o que o amigo JucaMaster falou, cuidado com os nomes...... Agora caso você queira eu tenho um Chat se global.asa

[WebASP 0]

Caro amigos o global funciona assimSub Session_onStartAqui e o inicio da session quando um user entra certoentão você pode por diversos comandos pra variados tipos de sistemas, tipo e bom você por comentado para você saber de qual sistema e talz coisa ai você sabera oq alterar quando necessitar

[Jorge Henrique 0]

Com certeza deixa eu ver seu chat?Mas mesmo assim irei continuar tentando!No aguardoMe mandejorgehenriquecs@yahoo.com.br