Mostrar Usuários Logados
#1
Posted 27/04/2003, 18:40
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
#2
Posted 27/04/2003, 19:03
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 %>
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
Posted 27/04/2003, 21:39
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
// Links úteis: Busca || Regras
// Não respondo dúvidas via mensagem privada. Use o fórum para buscar ou perguntar.
#4
Posted 27/04/2003, 21:48
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...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
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:
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
#5
Posted 04/01/2008, 12:36
->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!!
0 user(s) are reading this topic
0 membro(s), 0 visitante(s) e 0 membros anônimo(s)