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
Bokinha
-
- Usuários
-
- 11 posts
Novato no fórum
- Sexo:Não informado
Posted 26/04/2003, 21:40
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 !!!
Alguem pode me mandar isso !? eu jah tentei aqui... mas num consigo fazer certo !!
Valeu !!!
#2
<% developer %>
-
- Usuários
-
- 1029 posts
Só observando...
- Sexo:Não informado
- Localidade:Manaus - AM
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
Bokinha
-
- Usuários
-
- 11 posts
Novato no fórum
- Sexo:Não informado
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
<% developer %>
-
- Usuários
-
- 1029 posts
Só observando...
- Sexo:Não informado
- Localidade:Manaus - AM
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
¥¥Endler¥¥
-
- Usuários
-
- 635 posts
Garra Soluções Web!
- Sexo:Masculino
- Localidade:Mafra S.C
- Interesses:Voltando a ATIVA...
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)
