Session = Logado

[mkboy]

Estou tentando criar uma session assim que for logar, para que o usuario só possa acessar determinadas páginas logado, senão da erro.

To fazendo assim: Esse é meu formulário de login e senha

<form action="loga_admin.asp" method="post">

Login: <nput name="p_login" type="text" id="p_login">

Senha: <input name="p_senha" type="text" id="p_senha">

             

<input type="submit" value="Entrar"></td>

</form>

loga_admin.asp (verifico se o login e senha ta no banco

<%

p_login = Request.form("p_login")

p_senha = Request.form("p_senha")

%>

<%

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

conStr ="DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("db/geral.MDB")

Conn.Open ConStr

Set RS = Server.CreateObject("ADODB.Recordset")

%>

<%

thesql = "SELECT * FROM adm WHERE login = '"&p_login&"' AND senha = '"&p_senha&"'"

Set RS = conn.execute(theSQL)

    session("logado") = 1

    session("log_ID") = p_senha

if not rs.eof then

response.redirect("verifica_login.asp")

end if

%>

<%

response.redirect "negado.asp"

%>

Verifica Login.asp

<%

    if session("logado") <> 1 or session("log_ID") = "" then response.redirect "area.asp"

%>

<%

response.redirect "negado.asp"

%>

Eu não consigo logar.

O que faço para logar e gravar na session o login, onde errei no codigo acima?

[dark0]

hum..

deixa ver.. olhe aqui:

To fazendo assim: Esse é meu formulário de login e senha

<form action="loga_admin.asp" method="post">

Login: <nput name="p_login" type="text" id="p_login">

Senha: <input name="p_senha" type="text" id="p_senha">

             

<input type="submit" value="Entrar"></td>

</form>

ali onde tá vermelho, seria INPUT?

fora isso não vi erro nenhum... estranho

mas corrija e teste novamente

abraços

[mkboy]

Ai ta certo, é que excluir as tabelas para ficar mais limpinho para os amigos olharem e acabei apagando o I

Tipo eu entro com login e senha e ao invés de ir para area.asp ele vai para negado.asp

[bolomaster]

<%

p_login = Request.form("p_login")

p_senha = Request.form("p_senha")

%>

<%

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

conStr ="DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("db/geral.MDB")

Conn.Open ConStr

Set RS = Server.CreateObject("ADODB.Recordset")

%>

<%

thesql = "SELECT * FROM adm WHERE login = '"&p_login&"' AND senha = '"&p_senha&"'"

Set RS = conn.execute(theSQL)

    session("logado") = 1

    session("log_ID") = p_senha

if not rs.eof then

response.redirect ("verifica_login.asp")

else

response.redirect ("negado.asp")

end if

%>

Ai meu tenta isso para nos vermos

Abraços

[Victor]

Você pode fazer por cookies também..Pode ser??

[]'s

Victor

[mkboy]

Antecipo agradecimento as ajudas.

Eu só irei testar a noite quando chegar em casa.

Neste caso eu não quero fazer cookies, pois será login de admin somente e quando ele sair da page quero que seja quebrado o login.

Aproveitando, mais uma dúvida sobre session:

Tenho um formulário, e se o cara não preencher algo ele volta para pagina anterior, portando tenho a session para o cara não ter que preencher tudo de novo.

Mas eu queria que ao ser enviado o formulário, que essa session fosse expirada!

Qual código devo colocar na pagina que processa o form?

[bolomaster]

session.expires -1

[mkboy]

Criei o arquivo verifica_login.asp e coloquei assim:

<%

if session("logado") = 1 then

  response.redirect "area.asp"

else

  response.redirect "negado.asp"

end if

%>

Coloquei um include file nas paginas que quero restringir, só que no primeiro teste funcionou, agora quando clico ou tento logar, ou via url, ele fica processando e não abre a página!!!!

[dark0]

ué..

ele deveria abrir o link negado.asp

você tem essa pagina?

[mkboy]

Tipo:

Reiniciei a máquina.

Acessei duas páginas que coloquei o include.

area.asp e ad_01.asp

Pronto, redirecionou direto para negado.asp

Ae, até aqui beleza!

Se entro com login ou senha errado ele não passa, mas se entro com valores OK ele fica processando e não entra!

O que será?

[mkboy]

Veja:

http://www.pescaki.com.br/v2/area.asp

Essa ta com o include!

Agora tente logar pro 6 ver como fica:

http://www.pescaki.com.br/v2/admin.asp

Login: script

Senha: brasil

Ele fica processando a loga_admin.asp na barra de status, vide codigo:

<%

p_login = Request.form("p_login")

p_senha = Request.form("p_senha")

%>

<%

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

conStr ="DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("db/geral.MDB")

Conn.Open ConStr

Set RS = Server.CreateObject("ADODB.Recordset")

%>

<%

thesql = "SELECT * FROM adm WHERE login = '"&p_login&"' AND senha = '"&p_senha&"'"

Set RS = conn.execute(theSQL)

    session("logado") = 1

    session("log_ID") = p_senha

if not rs.eof then

response.redirect("verifica_login.asp")

end if

%>

<%

response.redirect "negado.asp"

%>

[dark0]

vamos ver:

<%

'recupera valores.. ta ok

p_login = Request.form("p_login")

p_senha = Request.form("p_senha")

'conecta ao banco, ok

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

conStr ="DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("db/geral.MDB")

Conn.Open ConStr

Set RS = Server.CreateObject("ADODB.Recordset")

'cria o select, ok

thesql = "SELECT * FROM adm WHERE login = '"&p_login&"' AND senha = '"&p_senha&"'"

'executa o sql..ok

Set RS = conn.execute(theSQL)

if not rs.eof then

'se encontrar alguma coisa, cria as sessions

  session("logado") = 1

  session("log_ID") = p_senha

  response.redirect("verifica_login.asp")

else

'se não encontrar nada no banco.. redireciona para negado!

  response.redirect "negado.asp"

end if%>

da uma olhada no que eu alterei..

eu só coloquei as sessões dentro do IF..

que é o correto

fora isso não vi erro nenhum.. estranho..

t+

[dark0]

ah..

da uma lida nesse tutorial que eu postei:

http://scriptbrasil.com.br/forum/index.php...ndpost&p=106059

porque eu fiz login no seu site com aquele esquema ali

hauhauhau

falow

[Victor]

Dê uma olhada nisso:

http://www.aspbrasil.com.br/TUTORIAIS/deta...odConteudo=1128

Se precisar mais de alguma coisa to ai!!!

[]'s

Victor