Guest Beto Postado Setembro 25, 2003 Denunciar Share Postado Setembro 25, 2003 Preciso de um esquema de usuarios online, e saber se esse contador de acesso funciona direito: <% Application.lock Application("visitante") = application ("visitante") + 1 %> Você é o visitante numero: <% =application("visitante") %>Grato!!! Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Lucky Postado Setembro 25, 2003 Denunciar Share Postado Setembro 25, 2003 Faça uma busca aqui no site por Application.lock que teras varias respostas, escolha (na tela de pesquisa) post de [qualquer data] e divirta-se... Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 PeiXuXaWebSite Postado Setembro 25, 2003 Denunciar Share Postado Setembro 25, 2003 ce você quiser mostrar o número de visitantes ONLINE,isso n vai funcionar.....isso apenas mostrará quantas pessoas já visitaram sua página....para fazer um eskema de usuarios online,um jeito q eu conheço é através do global.asa.......mas eu num tenho a manha de mexe com o global.asa entuam nem vo posta aki o script...flwxx Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Queila Postado Setembro 25, 2003 Denunciar Share Postado Setembro 25, 2003 Você tem que fazer o controle por Sessão, que é própria de cada usuário conectado no seu site, e não por Aplicação, que trata do site inteiro. Este código você coloca no arquivo global.asa que fica na raiz do diretório default do seu site. Se não existir, você pode criar:global.asa<script LANGUAGE=VBScript RUNAT=Server>Sub Application_OnStart Application("users_online") = 0End SubSub Session_OnStart Session.Timeout = 30 Application.Lock Application("users_online") = Application("users_online") + 1 Application.UnlockEnd SubSub Session_OnEnd Application.Lock Application("users_online") = Application("users_online") - 1 Application.UnlockEnd Sub </SCRIPT>e na sua página asp pode colocar algo assim:<font face = "verdana">Há <%=Application("users_online")%> visitantes agora.</font> Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Guest Beto Postado Setembro 25, 2003 Denunciar Share Postado Setembro 25, 2003 pode me dise porque não concigo visualizar:Salvo como:"global.asa"<script language="VBScript" runat="server">Sub Application_onStartApplication.lockApplication("usuariosAtuais") = 0Application("totalUsuarios") = 0Application.unlockEnd subSub session_onStratApplication.lockApplication("usuariosAtuais") = Application("usuariosAtuais") + 1Application("totalUsuarios") = Application("totalUsuarios") + 1If Application ("totalUsuarios") = 500 thenresponse.redirect("beto.asp")End ifApplication.unlockEnd subSub session_onEndApplication.lockApplication("usuariosAtuais") = Application("usuariosAtuais") - 1Application.unlockEnd sub</script> E o asp: salvo como contador de "acesso.asp"<html><head><title>usuarios online</title></head><body>Visitantes atuais <% = Application("usuariosAtuais") %><br>Total de usuarios <% = Application("totalUsuarios") %></body></html>Obrigado Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Queila Postado Setembro 25, 2003 Denunciar Share Postado Setembro 25, 2003 você escreveu sub session_onstart errado.....Eu testei escrevendo certo e funcionou.... Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Guest Beto Postado Setembro 25, 2003 Denunciar Share Postado Setembro 25, 2003 E como é o certo? Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Queila Postado Setembro 25, 2003 Denunciar Share Postado Setembro 25, 2003 Tá difícil....você escreveu "Sub session_onStrat", e o certo é "Sub session_onStart"O "r" está invertido.... Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Guest Beto Postado Setembro 25, 2003 Denunciar Share Postado Setembro 25, 2003 Queila, realmenta tá dificil olha eu arrumei e ainda assim não vejo o resultado.<script language="VBScript" runat="server">Sub Application_onStartApplication.lockApplication("usuariosAtuais") = 0Application("totalUsuarios") = 0Application.unlockEnd subSub session_onStartApplication.lockApplication("usuariosAtuais") = Application("usuariosAtuais") + 1Application("totalUsuarios") = Application("totalUsuarios") + 1If Application ("totalUsuarios") = 500 thenresponse.redirect("beto.asp")End ifApplication.unlockEnd subSub session_onEndApplication.lockApplication("usuariosAtuais") = Application("usuariosAtuais") - 1Application.unlockEnd sub</script><html><head><title>usuarios online</title></head><body>Visitantes atuais <% = Application("usuariosAtuais") %><br>Total de usuarios <% = Application("totalUsuarios") %></body></html>È só isso?porque aqui não da certo? Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Queila Postado Setembro 25, 2003 Denunciar Share Postado Setembro 25, 2003 Olha, eu testei na minha máquina e funcionou perfeitamente.Troca a pasta padrão e cria de novo. Se não funcionar ainda tenta em outra máquina. Pode ser algum bug de configuração. Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Guest Guest Postado Setembro 26, 2003 Denunciar Share Postado Setembro 26, 2003 Ok Queila muito obrigado...há aqui não funcionou Citar Link para o comentário Compartilhar em outros sites More sharing options...
Pergunta
Guest Beto
Preciso de um esquema de usuarios online, e saber se esse contador de acesso funciona direito:
<%
Application.lock
Application("visitante") = application ("visitante") + 1
%>
Você é o visitante numero: <% =application("visitante") %>
Grato!!!
Link para o comentário
Compartilhar em outros sites
10 respostass a esta questão
Posts Recomendados
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.