Queria ter no meu site esse mesmo esquema daki do forum, quando a pessoa entra no site, se ela for cadastrada aparece o nick dela como ONLINE E CADASTRADO, se não aparece na lista como DESCADASTRADO...
Alguem pode me mandar isso !? eu jah tentei aqui... mas num consigo fazer certo !!
Valeu !!!
Logado Como:
Started By Bokinha, 26/04/2003, 21:40
4 replies to this topic
#1
Posted 26/04/2003, 21:40
#2
Posted 26/04/2003, 22:02
arquivo login.htm
arquivo login.asp
arquivo pagina1.asp
<html><body> <form action="login.asp" method="post"> Nome: <input type="text" name="nome"><br> Senha: <input type="password" name="senha"><br> <input type="submit" value="enviar"> </form> </body></html>
arquivo login.asp
<% nome = Request.Form("nome") senha = Request.Form("senha") 'faça o código que verifique se o nome de usuário e senha são válidos Session("usuario") = nome Response.Redirect "pagina1.asp" %>
arquivo pagina1.asp
<% if Session("usuario") = "" then Response.Write "Olá Visitante" else Response.Write "Olá" & Session("usuario") end if %>
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
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 26/04/2003, 22:19
Mas como q eu faço pra aparecer as pessoas que estão logadas no site? Em uma lista, por exemplo:
Usuarios online:
AAA
BBB
CCC
DDD
EEE
Valeu !
Usuarios online:
AAA
BBB
CCC
DDD
EEE
Valeu !
#4
Posted 26/04/2003, 22:49
arquivo login.asp
arquivo pagina1.asp
<% nome = Replace(Request.Form("nome"),"'","''") senha = Replace(Request.Form("senha"),"'","''") Set conexao = Server.CreateObject("ADODB.Connection") conexao.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("banco.mdb") SQL = "Select * From tabela where nome = '" & nome & "' and senha = '" & senha & "' " Set RS = conexao.Execute(SQL) if Rs.Eof then response.redirect "login.htm" else Session("usuario") = nome end if SQL = "Update tabela Set online = 'online' where nome = '" & nome & "' " Set RS = conexao.Execute(SQL) Response.Redirect "pagina1.asp" %>
arquivo pagina1.asp
<% if Session("usuario") = "" then Response.Write "Olá Visitante" else Response.Write "Olá" & Session("usuario") end if Set conexao = Server.CreateObject("ADODB.Connection") conexao.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("banco.mdb") SQL = "Select status From tabela where online = 'online' " Set RS = conexao.Execute SQL Response.Write "<BR>Usuários online: " do while not RS.Eof Response.Write Rs.Fields("status") "| " rs.MoveNext loop %>
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
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 27/04/2003, 08:04
eu iria fazer a mesma pergunta no forum...........
me ajudou muito.......
brigadão aí developer
me ajudou muito.......
brigadão aí developer
1 user(s) are reading this topic
0 membro(s), 1 visitante(s) e 0 membros anônimo(s)