Mostrar Usuários Logados

#1 farejador

Novato no fórum

Usuários
19 posts

Sexo:Não informado

Posted 27/04/2003, 18:40

OLá Amigos!

Tenho um site com muitos usuários, o www.amorajato.com.br , e gostaria de saber alguém sabe como devo proceder para mostrar eles logados no site....
entenderam?

Quando eles logarem gostaria que aparecesse o APELIDO e o LINK para ver o perfil dele
me ajudem

FAREJADOR.COM

#2 <% developer %>

Só observando...

Usuários
1029 posts

Sexo:Não informado
Localidade:Manaus - AM

Posted 27/04/2003, 19:03

entendi sim... olha o código ai..

default.asp

<%@language="vbscript"%>
<% if Session("apelido")="" then %>
<html><body>
<form action="logar.asp" method="post">
Apelido: <input type="text" name="apelido"><br>
Senha: <input type="password" name="senha"><br>
<input type="submit" value="enviar">
</form>
</body></html>
<% else %>
<% Response.Redirect("usuarios.asp") %>
<% end if %>

arquivo logar.asp

<%@language="vbscript"%>
<%
if Session("apelido") = "" then
Response.Redirect("default.asp")
end if

apelido = Request.Form("apelido")
senha = Request.Form("senha")

SQL = " Select apelido, senha from tabela where apelido = '" & apelido & "' and senha = '" & senha & "' "

Set conexao = Server.CreateObject("ADODB.Connection")

conexao.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("banco.mdb")

Set RS = conexao.Execute(SQL)

if rs.Eof then
Response.Redirect("default.asp?erro=Usuario nao cadastrado")
else
SQL = "Update tabela Set logado = '" & sim & "' where apelido = '" & apelido & "' "
Set RS2 = conexao.Execute(SQL)

Session("apelido") = RS("apelido")
Response.Redirect("usuarios.asp")
end if

RS.close
RS2.close
conexao.close
Set RS = Nothing
Set RS2 = Nothing
Set conexao = Nothing
%>

arquivo usuarios.asp

<%@language="vbscript"%>
<% if Session("apelido") = "" then
Response.Redirect("default.asp")
end if

SQL = "Select apelido from tabela where logado = '" & sim & "' "

Set conexao = Server.CreateObject("ADODB.Connection")

conexao.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("banco.mdb")

Set RS = conexao.Execute(SQL)
%>
<html><body>
Usuários Logados: 
<% do while not RS.Eof
Response.Write ">" & RS("apelido") & " "
RS.MoveNext
loop
%>
</body></html>
<%
RS.close
conexao.close
Set RS = Nothing
Set conexao = Nothing
%>

Você é de Manaus?

Quer fazer cursos de webdesign, com professor,
1 computador por aluno? E de graça?

Confira em Fundação Paulo Feitoza

Links Legais:

Jogar Dominó Online

Jogar Xadrez Online

Códigos ASP para download

#3 Nicholas Pufal

Impossível: só existe até alguém duvidar e provar o contrário.

Usuários
1655 posts

Sexo:Masculino
Localidade:Porto Alegre

Posted 27/04/2003, 21:39

Faz tempo que não mexo com ASP mas se interpretei bem o código notei que quando o usuário fechar o browser o valor "SIM" continuará no database, fazendo com que o apelido dele continue aparecendo como sendo um usuário cadastrado on-line.

Como faço para que o sistema (caso o usuario nao clicar em LOGOUT e sim simplesmente fechar a janela do browser) detecte q ele saiu sem fazer logout e apague o "sim" dele da tabela?

Abraços

BLOG Touché Criação - Vamos trocar idéias? -> http://blog.touchecriacao.com.br/
// Links úteis: Busca || Regras
// Não respondo dúvidas via mensagem privada. Use o fórum para buscar ou perguntar.

#4 <% developer %>

Só observando...

Usuários
1029 posts

Sexo:Não informado
Localidade:Manaus - AM

Posted 27/04/2003, 21:48

Faz tempo que não mexo com ASP mas se interpretei bem o código notei que quando o usuário fechar o browser o valor "SIM" continuará no database, fazendo com que o apelido dele continue aparecendo como sendo um usuário cadastrado on-line.

Como faço para que o sistema (caso o usuario nao clicar em LOGOUT e sim simplesmente fechar a janela do browser) detecte q ele saiu sem fazer logout e apague o "sim" dele da tabela?

Abraços

pois é... tinha me esquecido dessa parte do código... então vamos lá... como nós não podemos utilizar nenhuma função do VBS ou JS para qdo o usuário fechar o browser chamar o código ASP (estaríamos dizendo que server side e client side são a mesma coisa)... então resolvi utilizar o nosso querido amigo Session atrelado ao IF...

pagina usuarios.asp

<%@language="vbscript"%>
<% if Session("apelido") = "" then
Response.Redirect("default.asp")
end if

SQL = "Select apelido from tabela where logado = '" & sim & "' "

Set conexao = Server.CreateObject("ADODB.Connection")

conexao.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("banco.mdb")

Set RS = conexao.Execute(SQL)
%>
<html><body>
Usuários Logados: 
<% do while not RS.Eof
if Session(RS("apelido")) = RS("apelido") then
Response.Write ">" & RS("apelido") & " "
else
SQL = "Update tabela Set logado = '" & nao & "' where apelido = '" & RS("apelido") & "' "
Set RS2 = conexao.Execute(SQL) 
end if
RS.MoveNext
loop
%>
</body></html>
<%
RS.close
RS2.close
conexao.close
Set RS = Nothing
Set RS2 = Nothing
Set conexao = Nothing
%>

agora sim nós já tiramos o problema...

muito obrigado amigo firehalk :ok: :lol:

#5 luc_hcore

12 Horas

Usuários
125 posts

Sexo:Não informado
Localidade:Fortaleza-CE

Posted 04/01/2008, 12:36

Galera, desculpa tá desenterrando esse tópico, mas é que estou com uma dúvida aqui.. :rolleyes:

->Foi criada uma Session("apelido") na página logar.asp, que armaeza, logicamente, o apelido do usuário.
->A minha dúvida está na linha 17 da página usuarios.asp, que teve uma correção na última resposta do developer.
Linha 17:

if Session(RS("apelido")) = RS("apelido") then

Do jeito que está, não rolou aqui. Tentei mudar para:

if Session("apelido") = RS("apelido") then

Mas assim, só é listado o primeiro usuário que logou.

Dá uma forcinha aí galera, já fucei que só aqui no fórum e não consegui!!

A vida é a soma de suas escolhas.

#1 farejador

#2 <% developer %>

#3 Nicholas Pufal

#4 <% developer %>

#5 luc_hcore

0 user(s) are reading this topic

Entrar