Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

rockbilly

Restringindo a página para usuarios!

Por , em ASP Clássico

Recommended Posts

rockbilly    0

rockbilly
Postado

Olá forum

 

preciso da ajuda de vcs, se puderem me ajudar, é o seguinte, criei um sisteminha de login, ate´ai tudo bem, mas quando o usuario cadastra ele navega nos sites onde é permitido o uso atraves do script:

if Session("status") = false then

Response.Redirect "erro.asp"

end if

Mas se o usuario sair (fechar browser) e colocar lá um dos endereço das paginas restritas:
Aparece a página com os dizeres: Cadastro efetuado com sucesso! Pergunto: Isso é normal? Não teria como travar isso com algum outro script, ou algo?

 

Agradeço a qualquer orientação!

Compartilhar este post

Link para o post
Compartilhar em outros sites

ursolouco    0

ursolouco
Postado

Srº!!Esta mensagem esta no corpo da página ("<body>") ? Ou esta sendo escrito pelo método (<% Response.Write("Cadastro efetuado com sucesso!") %> ?Abraços!!!

Compartilhar este post

Link para o post
Compartilhar em outros sites

rOcKLoCo    0

rOcKLoCo
Postado

é normal doido, pois continua no CACHE do cliente!!mas você pode evitar colocando o seguinte:

<%Response.addHeader "pragma", "no-cache"Response.CacheControl = "Private"Response.Expires = 0%>

no topo de todas as suas páginas

Compartilhar este post

Link para o post
Compartilhar em outros sites

rockbilly    0

rockbilly
Postado

Olá rockloco,

 

Obrigado por postar, coloquei como você me disse e está dando o erro:

Objeto Response error 'ASP 0156 : 80004005'

Erro de cabeçalho

/semiarido/logado.asp, line 50

Os cabeçalhos HTTP já estão gravados no navegador cliente. Quaisquer modificações no cabeçalho HTTP devem ser feitas antes de gravar o conteúdo da página.

Olá urso.louco, estou colocando no body! o que precisava fazer?

 

Obrigado a todos!

Compartilhar este post

Link para o post
Compartilhar em outros sites

ursolouco    0

ursolouco
Postado

Brother!!

 

Se a mensagem já esta dentro do <body> ela esta incorporada dentro da pagina independente da session. Experimente por exemplo:

 

if Session("status") = false thenResponse.Redirect "erro.asp"elseResponse.Write("Cadastro efetuado com sucesso")end if

Abraços!!!

Compartilhar este post

Link para o post
Compartilhar em outros sites

rOcKLoCo    0

rOcKLoCo
Postado

Olá rockloco,

 

Obrigado por postar, coloquei como você me disse e está dando o erro:

Objeto Response error 'ASP 0156 : 80004005'

Erro de cabeçalho

/semiarido/logado.asp, line 50

Os cabeçalhos HTTP já estão gravados no navegador cliente. Quaisquer modificações no cabeçalho HTTP devem ser feitas antes de gravar o conteúdo da página.

Olá urso.louco, estou colocando no body! o que precisava fazer?

 

Obrigado a todos!

é PWS q você está usando??

 

se sim, você terá q SETAR o BUFFER = True para ficar normal..

 

falows

 

 

Ps: Conselho de irmão, vai pro IIS!! ahuahuhua

 

falows

Compartilhar este post

Link para o post
Compartilhar em outros sites

rockbilly    0

rockbilly
Postado

Certo pessoal, beleza obrigado pelas dicas. Sim eu uso o IIS, mas é que pra testar eu testo no PWS antes de passar para o server! :P

Me ajudem nesta parte que estou tendo problema, por exemplo, quando tento logar pela primeira vez e digito a senha ou login invalido ou vice versa ou um ou outro, ele não redireciona para a página de erro, só o faz quando o usuário loga no sistema, daí se ele sair e colocar a senha errada ou login errado ele vai para a página de erro, meu script é este:

 

login.asp

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

Login<input type="text" name="txt_nome" maxlength="8" class="caixa" size="15"><br>

Senha<input type="password" name="txt_senha" class="caixa" maxlength="8" size="15"><br>

<input type="Submit" name="botao" class="caixa" value="Entrar">

</form>

login1.asp:

<%

dim conecta, SQL, reg

 

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

conecta.Open "base"

 

 

login_t = Request.Form("txt_nome")

senha_t = Request.Form("txt_senha")

 

SQL = "SELECT * FROM tb_login WHERE login = '" & login_t & "' AND senha = '"& senha_t & "'"

 

Set reg = conecta.Execute(SQL)

 

 

if not reg.EOF then

  Session("usuario") = Reg.Fields("login")

  Session("senha") = Reg.Fields("senha")

  Session("login") = TRUE

  Response.Redirect "logado.asp"

  else

  if reg.EOF then

  Response.Redirect "erro.asp"

 

end if

end if

%>

O que será que está saindo de errado pessoal, no mais tá beleza!

Obrigado + uma vez! ;)

Compartilhar este post

Link para o post
Compartilhar em outros sites

Salgado    4

Salgado
Postado

Tente:

If Not reg.EOF OR reg.BOF Then
 Session("usuario") = Reg.Fields("login")
 Session("senha") = Reg.Fields("senha")
 Session("login") = TRUE
 Response.Redirect "logado.asp"
Else
 Response.Redirect "erro.asp"
End If

Compartilhar este post

Link para o post
Compartilhar em outros sites

rockbilly    0

rockbilly
Postado

Olá colega salgado,

 

tentei, mas é o seguinte: consigo logar, porém quando coloca login e senhas errados ou vice-versa retorna:

ADODB.Field error '80020009'

 

Tanto BOF quanto EOF são verdadeiros, ou o registro atual foi excluído; a operação solicitada pelo aplicativo requer um registro atual.

 

/pasta/login1.asp, line 17

Putz, que dor de cabeça, vlw a atenção e estarei na escuta, caso alguem possa me ajudar!

Compartilhar este post

Link para o post
Compartilhar em outros sites

rOcKLoCo    0

rOcKLoCo
Postado

If Not reg.EOF Then Session("usuario") = Reg.Fields("login") Session("senha") = Reg.Fields("senha") Session("login") = TRUE Response.Redirect "logado.asp"Else Response.Redirect "erro.asp"End If

tente assim!! Salgado, você estava mandando verificar se ele estava no começo do bd(ou seja, não encontrou), se sim, ele tentaria criar a SEssion...ok?falows

Compartilhar este post

Link para o post
Compartilhar em outros sites

rockbilly    0

rockbilly
Postado

Ow pessoal, primeiramente muito obrigado pela cooperaçao de vcs, são 10!consegui resolver aqui, é q no arquivo erro.asp tinha um scritpsinho de antes das tags <html> do documento pra validar a session, o que não precisou, tirei e funfou!brigadão colegas.

Compartilhar este post

Link para o post
Compartilhar em outros sites

Salgado    4

Salgado
Postado
tente assim!! Salgado, você estava mandando verificar se ele estava no começo do bd(ou seja, não encontrou), se sim, ele tentaria criar a SEssion...ok?

 

falows

Owps, Desculpe a falta de atenção, faltou um NOT:

If Not reg.EOF OR Not reg.BOF Then
Session("usuario") = Reg.Fields("login")
Session("senha") = Reg.Fields("senha")
Session("login") = TRUE
Response.Redirect "logado.asp"
Else
Response.Redirect "erro.asp"
End If

Compartilhar este post

Link para o post
Compartilhar em outros sites

rOcKLoCo    0

rOcKLoCo
Postado

tente assim!! Salgado, você estava mandando verificar se ele estava no começo do bd(ou seja, não encontrou), se sim, ele tentaria criar a SEssion...ok?falows

Owps, Desculpe a falta de atenção, faltou um NOT:
If Not reg.EOF OR Not reg.BOF Then Session("usuario") = Reg.Fields("login") Session("senha") = Reg.Fields("senha") Session("login") = TRUE Response.Redirect "logado.asp"Else Response.Redirect "erro.asp"End If
relaxa...huahuahuauma mão lava a outra...falows

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito