Jump to content
Fórum Script Brasil
  • 0

Usuários On-line


«« Luiz Gustavo »»
 Share

Question

3 answers to this question

Recommended Posts

  • 0

Acho que possível é mas tu teria que usar associado a asp ou php ou alguma coisa do tipo, um abraço... :D

Link to comment
Share on other sites

  • 0

Claro que é possivel.

No flash tu coloca 2 layer, uma com o nome de actions e outra de campo.

no frame 1 de actions você coloca a seguinte ação:

loadVariablesNum("active.asp", 0);
no frame 5 de actions, coloque:
if (usuarios == 1) {
    texto = "Usuário Ativo";
} else {
    texto = "Usuários Ativos";
}
e no frame 10 coloque:
stop()
Agora na layer campo em fame 1, você coloca 2 caixas de texto dinamicos, uma com a variavel usuarios e outra com a variavel texto, prolongue este frame ate o frame 10 pressionando o F5. Agora vem o ASP. crie um arquivo com o nome de global.asp com o codigo:
<script LANGUAGE="VBScript" RUNAT="Server">

Sub Application_OnStart
    ' Set our user count to 0 when we start the server
    Application("ActiveUsers") = 0
End Sub

Sub Session_OnStart
    ' Change Session Timeout to 20 minutes (if you need to)
    Session.Timeout = 20
    ' Set a Session Start Time
    ' This is only important to assure we start a session
    Session("Start") = Now
    ' Increase the active visitors count when we start the session
    Application.Lock
  Application("ActiveUsers") = Application("ActiveUsers") + 1
    Application.UnLock
End Sub

Sub Session_OnEnd
    ' Decrease the active visitors count when the session ends.
    Application.Lock
  Application("ActiveUsers") = Application("ActiveUsers") - 1
    Application.UnLock
End Sub

</SCRIPT>
e outro com o nome de active.asp e o codigo:
<%@ Language=VBScript %>
<%Response.write("usuarios="&Application("ActiveUsers"))%>

Para este script funcionar corretamente, você deve colocar o arquivo global.asa no diretório raiz do seu servidor. O arquivo active.asp deve estar no mesmo diretorio que o arquivo usuarios_ativos.swf (pode ser outro nome).

O servidor necessita possuir suporte de arquivos asp.

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

 Share

  • Forum Statistics

    • Total Topics
      149.8k
    • Total Posts
      646.6k
×
×
  • Create New...