Criar Session Para Usuario Logado...

DELPHI-Man32 · Fevereiro 12, 2005

PAINEL DE CONTROLE(nova_secao.asp)

<html>
<head>
<meta http-equiv="Content-Language" content="pt-br">
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<title>Perfil do Associado</title>
</head>
<body>
<script language="JavaScript">
function Mensagens(popupfile,winheight,winwidth)
{
open(popupfile,"PopupWindow","resizable=no,height=" + winheight + ",width=" + winwidth + ",scrollbars=no");
}
</script>
<%
'Desenvolvido por: DELPHI-Man32
'E-mail: design-vagner@bol.com.br
'Data: 07/02/2205 as 00:07
'Variaveis do sistema de login
Dim strUSR_ID
Dim strPWD_ID
Dim strIMG_Erro
Dim strErro
Dim strMSG_TXT
Dim strSQL
Dim IP_USR
Dim membro
Dim ONLINE

'Cria a conecxao com o banco de dados
Set Conectar = Server.CreateObject("ADODB.Connection")
Conectar.open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source ="& Server.MapPath(X)
'Pega os valores difitados no form de login
strUSR_ID = request.form("nick")
strPWD_ID = request.form("codenter")
strErro = "Dados invlidos. Por favor, tente novamente!"
strIMG_Erro = "imagens/erro_login"
IP_USR = Request.ServerVariables("REMOTE_ADDR")
ONLINE = "on"

if strUSR_ID = "" then
Alerta = Alerta + " Digite seu nome de usurio!"
Erro = True
end if
if strPWD_ID = "" then
Alerta = Alerta + " Digite sua senha de acesso!"
Erro = True
end if
if Erro = True then
response.write(" <img src='imagens/erro.gif'>")
response.write(" ")
response.write(" Dados invlidos!")
response.write(" ")
response.write(""&Alerta)
else

Set Contador = Server.CreateObject("ADODB.Recordset")
sql = "select * from acessos"
Contador.open sql, Conectar, 3,3
Contador.AddNew
Contador("nick") = strUSR_ID
Contador("data") = Date
Contador("hora") = Time
Contador("ip") = IP_USR
Contador.update
Set RS = Server.CreateObject("ADODB.Recordset")
sql= "select * from cadastro where nick='"&strUSR_ID&"' and codenter='"&strPWD_ID&"'"
RS.open sql, Conectar, 3,3
Set strMSG_TXT = Server.CreateObject("ADODB.Recordset")
sql = "select * from mensagens where destin='"&strUSR_ID&"'"
strMSG_TXT.open sql, Conectar, 3,3
Set strNova = Server.CreateObject("ADODB.Recordset")
sql = "select TOP 1 DATA, HORA from mensagens where DESTIN='"&strUSR_ID&"' order by DATA Asc"
strNova.open sql, Conectar, 3,3

Set strMeusFavoritos = Server.CreateObject("ADODB.Recordset")
sql = "select * from favoritos where nick='"&strUSR_ID&"'"
strMeusFavoritos.open sql, Conectar, 3,3

Set strTotalAccesso = Server.CreateObject("ADODB.Recordset")
sql = "select * from acessos where nick='"&strUSR_ID&"'"
strTotalAccesso.open sql, Conectar, 3,3

Set strTotalMusicais = Server.CreateObject("ADODB.Recordset")
sql = "select * from musicais where destin='"&strUSR_ID&"'"
strTotalMusicais.open sql, Conectar, 3,3
Set Ativo = Server.CreateObject("ADODB.Recordset")
sql = "select * from Ativos"
Ativo.open sql, Conectar, 3,3
Ativo.addnew
Ativo("nick") = strUSR_ID
Ativo("online") = ONLINE
Ativo("hora") = Time
Ativo.update
'Contadores de registros do Banco de Dados
TotalMSG_TXT = strMSG_TXT.Recordcount
TotalFavoritos = strMeusFavoritos.Recordcount
TotalAcessos = strTotalAccesso.Recordcount
TotalMusicais = strTotalMusicais.Recordcount

if TotalAcessos < 100 then
membro = "membro"
else
membro = "membro2"
end if

if RS.eof then
response.redirect "erro_login.asp"
%>
<table border="1" width="59%" cellspacing="0" cellpadding="0" height="9" bordercolor="#9999FF">
<tr>
<td width="33%" height="20" colspan="3" bordercolor="#FFFFFF" bordercolorlight="#9999FF" bordercolordark="#9999FF" bgcolor="#9999FF">
<a href="encerrar.asp?secao=<%=RS("nick")%>" target="_top">Encerrar</a>
| Painel de
Controle</td>
<td width="32%" height="20" colspan="3" bordercolor="#FFFFFF" bordercolorlight="#9999FF" bordercolordark="#9999FF" bgcolor="#9999FF">
 Seu IP atual : <%=request.ServerVariables("REMOTE_ADDR")%>
</td>
</tr>
<tr>
<td width="24%" rowspan="5" height="120" bordercolor="#FFFFFF" bordercolorlight="#FFFFFF" bordercolordark="#FFFFFF">
<img border="0" src="faces/face1.gif" align="left" alt="Face de <%=RS("nick")%>"></td>
<td width="43%" colspan="3" height="40" bordercolor="#FFFFFF" bordercolorlight="#FFFFFF" bordercolordark="#FFFFFF">
<%=RS("nick")%></td>
<td width="13%" height="40" colspan="2" bordercolor="#FFFFFF" bordercolorlight="#FFFFFF" bordercolordark="#FFFFFF" bgcolor="#99CCFF">
O
que deseja fazer?
</td>
</tr>
<tr>
<td width="43%" align="left" height="20" bordercolor="#FFFFFF" bordercolorlight="#FFFFFF" bordercolordark="#FFFFFF" colspan="3">Idade:
<%=RS("idade")%>
anos</td>
<td width="1%" height="20" align="center" bordercolor="#FFFFFF" bordercolorlight="#FFFFFF" bordercolordark="#FFFFFF"><img border="0" src="../../IMAGENS/seta_link.gif"></td>
<td width="33%" height="20" bordercolor="#FFFFFF" bordercolorlight="#FFFFFF" bordercolordark="#FFFFFF"><a href="atualizar.asp?nick=<%=RS("nick")%>&id=<%=RS("id")%>">Atualizar meus
dados</a></td>
</tr>
<tr>
<td width="43%" align="left" height="20" bordercolor="#FFFFFF" bordercolorlight="#FFFFFF" bordercolordark="#FFFFFF" colspan="3">Estado: <%=RS("estado")%>
Procura: <%=RS("procuro")%>
</td>
<td width="1%" height="20" align="center" bordercolor="#FFFFFF" bordercolorlight="#FFFFFF" bordercolordark="#FFFFFF"><img border="0" src="../../IMAGENS/seta_link.gif"></td>
<td width="33%" height="20" bordercolor="#FFFFFF" bordercolorlight="#FFFFFF" bordercolordark="#FFFFFF"><a href="fazer_etapa2.asp?nick=<%=RS("nick")%>&id=<%=RS("id")%>">Preencher meu par ideal</a></td>
</tr>
<tr>
<td width="43%" align="left" height="20" bordercolor="#FFFFFF" bordercolorlight="#FFFFFF" bordercolordark="#FFFFFF" colspan="3">Objetivo: <%=RS("objetivo")%></td>
<td width="1%" height="20" align="center" bordercolor="#FFFFFF" bordercolorlight="#FFFFFF" bordercolordark="#FFFFFF"><img border="0" src="../../IMAGENS/seta_link.gif"></td>
<td width="33%" height="20" bordercolor="#FFFFFF" bordercolorlight="#FFFFFF" bordercolordark="#FFFFFF"><a href="extrato.asp?nick=<%=RS("nick")%>&id=<%=RS("id")%>">Ver
extrato de conta</a></td>
</tr>
<tr>
<td width="7%" align="left" height="20" bordercolor="#FFFFFF" bordercolorlight="#FFFFFF" bordercolordark="#FFFFFF">Membro:</td>
<td width="38%" height="20" bordercolor="#FFFFFF" bordercolorlight="#FFFFFF" bordercolordark="#FFFFFF" colspan="2">
<img src="imagens/<%=response.write(membro)%>.gif" Alt="Nvel de acessos ao seu Painel de Controle"></td>
<td width="1%" height="20" align="center" bordercolor="#FFFFFF" bordercolorlight="#FFFFFF" bordercolordark="#FFFFFF"><img border="0" src="../../IMAGENS/seta_link.gif"></td>
<td width="33%" height="20" bordercolor="#FFFFFF" bordercolorlight="#FFFFFF" bordercolordark="#FFFFFF"><a href="estatisticas.asp?nick=<%=RS("nick")%>&id=<%=RS("id")%>">Minhas
estatsticas</a></td>
</tr>
<tr>
<td width="60%" height="21" bgcolor="#99CCFF" bordercolor="#FFFFFF" bordercolorlight="#FFFFFF" bordercolordark="#FFFFFF" colspan="4">
Voc
cadastrado
desde: <%=RS("data")%> s <%=RS("hora")%></td>
<td width="1%" height="1" bgcolor="#FFFFFF" align="center" bordercolor="#FFFFFF" bordercolorlight="#FFFFFF" bordercolordark="#FFFFFF">
<img border="0" src="../../IMAGENS/seta_link.gif">
</td>
<td width="33%" height="1" bgcolor="#FFFFFF" bordercolor="#FFFFFF" bordercolorlight="#FFFFFF" bordercolordark="#FFFFFF"><a href="faces.asp?nick=<%=RS("nick")%>">Escolher/Alterar
Face</a></td>
</tr>
<tr>
<td width="65%" height="21" bgcolor="#9999FF" colspan="6">
<table border="0" width="560" id="table1" cellspacing="0" cellpadding="0">
<tr>
<td width="451">
Mensagens de
Texto: <%=response.write(TotalMSG_TXT)%> 
| <a href="javascript:Favoritos()"> Favoritos:</a> <%=response.write(TotalFavoritos)%> |
 <a href="torpedosmusicais?nick=<%=RS("nick")%>&id=<%=RS("id")%>">Torpedos
Musicais:</a> <%=response.write(TotalMusicais)%>
|  <a href="acessos.asp?acessos=<%=RS("nick")%>">Acessos</a>: <%=response.write(TotalAcessos)%>
  |  
</td>
<td width="20">

<a href="javascript:Mensagens('enviar.asp?Remetente=<%=RS("nick")%>',230,320)">
<img border="0" src="imagens/send.gif" width="19" height="13" alt="Clique para enviar uma mensagen!"></a></td>
<td width="83">
 Enviar
MSG
</td>
</tr>
</table>
</td>
</tr>
</table>
 
<% End if%>
<% if strNova.eof then %>
<table border="0" width="75%" cellspacing="0" cellpadding="0">
<tr>
<td width="8%">
<img border="0" src="IMAGENS/msg.jpg" width="30" height="23"></td>
<td width="92%">Nenhuma mensagem!</td>
</tr>
</table>
<%else%>
<table border="0" width="75%" cellspacing="0" cellpadding="0">
<tr>
<td width="8%">
<a href="myinbox.asp?nick=<%=RS("nick")%>"><img border="0" src="IMAGENS/NOVAMSG.GIF" alt="Clique para ver as mensagens"></a></td>
<td width="92%">Mensagem mais recente recebida
em  <%=strNova("DATA")%> s <%=strNova("hora")%> Hs.</td>
</tr>
</table>
<%
end if
End if
%>
<hr width="75%" size="1" align="left" color="#9999FF">
Site
monitorado 24 horas.

2005 - ocupido.com - Todos os direitos reservados
webmaster@ocupido.com
 
</body>
</html>

olá pessoal, beleza...

é o seguinte, estou desenvolvendo um sistema em ASP para um amigo, já tenho todas as diretrizes da aplicação mas algumas aindas não estao prontas... Bem a principal delas e a criação de 'session' para o usuário que fizer o login no sistema!! e entrar no seu painel de controle!

bem quero que ao logar-se, seja criada a seção e os valores digitados no form de login fiquem armazenados na session, assim quando ele precisar voltar ao painel de controle, não precise efetuar novamente o login... tenderam?(não é cookie)

vou deixar o link para vc's entrarem no sistema!

SISTEMA EM ASP by DELPHI-Man32

existem dois usuários cadastrados:

nick: vagner senha: vvv
nick: simone senha: sss

pronto, depois de logar, envie uma mensagem de texto para um dos usuarios e encerre o PAINEL DE CONTROLE, depois faça o login com o outro usuario e veja se a mensagem que você mandou esta lá...

leia a mensagem e volte ao PAINEL DE CONTROLE pelo link que esta na parte inferior da tabela!! volte a caixa de entrade e apague a mensagem e veja o q que quero fazer?

se não entederam postem as duvidas!!!

Editado Fevereiro 12, 2005 por DELPHI-Man32

DELPHI-Man32 · Fevereiro 12, 2005

aceito sugestoes quanto o design e a organização !!!!

fiquem a vontade!!

Fevereiro 12, 2005

Cara não entendi muito bem o que você quer fazer.

você quer que apareça o nome do usuario e a menssagem que a menssagem foi excluida.

esclareça melhor sua duvida.

para podermos te ajudar melhor valeu

DELPHI-Man32 · Fevereiro 12, 2005

você foi ao site?

olha so, quando na caixa d entrada tem mais de uma mensagem tudo dá certo, mas quando você exclui a ultima mensagem e esvazia a caixa, o link "Painel de Controle" deveria levar o usuario de volta ao seu painel de controle sem procisar efetuar o login...

se usar "javascript:history.back() " dá certo até que você não abra outra página...

o cosa ta aí... voltar ao PAINEL DE CONTROLE sem efetuar o login novamente, deve criar a seção e armazenar os dados!!!

tendeu!!!!

Marcelo Guedes · Fevereiro 12, 2005

Qual é o form action e o method do formulario de login você usa algum nivel de acesso.

posta ai o código do painel de controle.

e também qual o nome dos campos do formulário

valeu......

DELPHI-Man32 · Fevereiro 12, 2005

tu entrou lá consegui fazer alguma coisa??

vou postar!!! deixa pegar la no servidor!!!

t+v

não uso niveis de acesso, porque deu algum erro?

mkboy · Fevereiro 12, 2005

Sugestão: Coloca o logo ao lado esquerdo e centra o banner!

dark0 · Fevereiro 13, 2005

Olá.

Vamos falar diretamente em programação.

Não abri seu site.

O que você não está conseguindo montar?

Quando o usuario fizer o Login, você cria uma session, dizendo que ele logou, ex:

Session("login") = "logado"
Session("nome") = request("nome_campo")

Então, depois do login, a session está criada. Se quiser proibir o acesso à quem não fez o login, só coloque:

if session("login") = "" then
response.write "Acesso Negado"
response.end
end if

Entendeu?

Se não era isso, diga aí o que é.

Até mais

DELPHI-Man32 · Fevereiro 13, 2005

ola dark0, obrigado pela sua ajuda, mas veja só!!

meu problema é o seguinte, onde coloco no script acima estas linhas para criar a session?

se você entrar no site e fazer o login normal vera que quando o usuario visitar sua caixa de entrada de mensagens não é possivel voltar ao PAINEL DE CONTROLE sem a necessidade de efetuar o login novamente... tendeu? a seção que quero criar é para que usuario ande por onde quiser dentro do seu Painel de Controle sem a necessidade de efetuar o login novamente, só quando entrar no site!!! tendeu???

se não, posta ai que explica dnovo!!

brigadao pela ajuda!!! ate mais v

VAGNER

dark0 · Fevereiro 13, 2005

Olha só

Quando o usuario fizer o login.

Em algum momento você verifica se o usuario e a senha estão corretos, certo?

Então, é nesse momento que você cria as sessions.

Se o usuario e a senha estiverem corretos, então

cria sessions, e redireciona para a proxima pagina

senao

dá mensagem de erro

fim se

Essa seria a lógica do esquema.

Aí, no começo das paginas, você testa se está logado.

Entendeu?

ViniciusJau · Fevereiro 14, 2005

humm eu fiz uns arquivos de teste aqui...

meu codigo ficou assim ai adicionei as linahs em azul:

<%
'declare as variaveis
Dim login,senha,conexao,constr,rs
login = request.Form("login")
senha = request.Form("senha")
set conexao = createobject("AdoDb.connection")
constr = "Driver={Microsoft Access Driver (*.mdb)};DBQ="& server.MapPath("diahu.mdb")
conexao.open constr
set rs = conexao.execute("SELECT * FROM users WHERE login='"&login&"' AND senha='"&senha&"'")
'digitou a senha errada
if rs.eof then
response.Redirect("login_errado.asp")
else
'senão
Session("login") = "logado"
Session("nome") = request("nome_campo")
'criar um cookie e apelidar ele como "logou" e seu valor vai ser o login do usuario
response.Cookies("logou")=login
'aqui definimos a data em que o cookie irá expirar do computador da pessoa
response.cookies("logou").expires="31/12/2010"'data de expiração do cookie
'aqui redireciono o usuario para a pagina dele que está gravada no banco
response.Redirect ""& rs("url")
end if
%>

legal ele funcionou certinho....

minha duvida é: não tem problema eu usar cookies com session ??

no meu banco de dados eu tenho esse campo URL que está marcado o endereço da pagina que a pessoa que fez o login será redirecionada... como eu faço ao invéz de eu escrever o endereço ele puxar pela session ???

dark0 · Fevereiro 14, 2005

Ué..

Mude de:

response.Redirect ""& rs("url")

Para:

response.Redirect session("url")

Facil né?

Nem precisa daquelas aspas ali, e o &..

Fevereiro 14, 2005

Olá, aproveitando que vocês estão falando de "sessão", como eu faço para que uma página expire quando o usuário clicar no botão voltar ?

Aguardo alguma sugestão,

Obrigado.

cyberalexxx · Fevereiro 14, 2005

Olá, aproveitando que vocês estão falando de "sessão", como eu faço para que uma página expire quando o usuário clicar no botão voltar ?
Aguardo alguma sugestão,
Obrigado.

Da uma olhada se isto te ajuda:

http://scriptbrasil.com.br/forum/index.php...=0entry182219

ViniciusJau · Fevereiro 16, 2005

se eu criar a session não vou ter que usar um global.asa ??

cyberalexxx · Fevereiro 16, 2005

se eu criar a session não vou ter que usar um global.asa ??

não necesseriamente, voce pode usar sessions a vontade sem ter um global.asa.

Voce irá precisar de global.asa caso queira manipular as sessions automaticamente quando a sessão é aberta ou fechada.

ViniciusJau · Fevereiro 17, 2005

eu criei o session no meu sistema de login também.. agora eu queria saber como eu faço para ele dar a msg de boas vindas pro cara...

mais por exemplo o cara faz o login como juan_ca e o nome dele é Juano Carlos

eu tenho essa informação no banco...

eu queria que exibice Bem Vindo Juano Carlos

o duro é que não consegui fazer nem ele falar bem vindo juan_ca

eu fiz o codigo assim:

<%
if session("login") = "" then
response.write "Acesso Negado"
response.end
end if
%>
Olá
<%
session = request.session("logado")
response.Write("Bem-Vindo "&logado)
%>

alguém sabe algum tuto legla que ensine a fazer isso ??

dark0 · Fevereiro 17, 2005

já olhou no tópico de tutoriais?

eu postei uns links lá..

ViniciusJau · Fevereiro 17, 2005

legal dark... vou fazer uma busca por lá...

[]'s

DELPHI-Man32 · Fevereiro 19, 2005

bom pessoal, depois de muito tentar, fiz o seguinte, tirei as linhas que verificavam os dados do usuario e criei um outro arquivo!!!

então quando o usuario fazem o login a aplicação chamao arquivo "validarUSR.asp", se tiver tudo certo então ele entra no painel de controle dele, a pagina de validação manda o nick como variavel para veririfcação no bd e então... funciona ele na tela!!! pronto!!!

beleza!!!

assim que eu fiz seguindo as dicas o]do dark0...

t+v

Entrar

Criar Session Para Usuario Logado...

Pergunta

Link para o comentário

Compartilhar em outros sites

19 respostass a esta questão

Posts Recomendados

Link para o comentário

Compartilhar em outros sites

Guest Marcelo Guedes

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Guest - Lucas -

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Participe da discussão

Estatísticas dos Fóruns