Ir para conteúdo

POWERED BY:

Arquivado

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

kania

Redirecionar login para apgina anterior

Por , em ASP Clássico

Recommended Posts

kania    0

kania
Postado

Olaá pessoal como fazer um login que redirecione o usuario para a apgina anterior que ele estava ? Explico, naveguei pelo site e achei a matperia que eu estva procurando mas quando vou acessa-la vejo que a mesma precisa de login, bom do forma que eu fiz depois do cara logar ele vai para a pagina inicial do site, oque é super chato, então garimpei aqui no forum e na net algum tuto que explicasse como fazer algo que redirecionase para a pagina anterior a do login e achei este tópico: http://forum.imasters.com.br/index.php?showtopic=113860, li o tópico inteiro vi que o pessoal quebrou bastante a cabeça para fazer, tentei usar os exemplos para meu código mas não concegui, então resolvi apelar para ajuda dos universiterios, hehehe, em baixo vou postar os arquivos que estou usando para login.

 

pagina com o form de login: (index_log.asp)

 

<!--#include file="Connections/conectar.asp" --><body leftmargin="0" topmargin="0"><table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">  <tr bgcolor="#0000CC"> 	<td> <div align="center"><font color="#FFFFFF"><strong>REVISTA</strong></font></div></td>	<td> <div align="center"><font color="#FFFFFF"><strong>CLIENTES</strong></font></div></td>	<td> <div align="center"><font color="#FFFFFF"><strong>BANNERS</strong></font></div></td>	<td> <div align="center"><font color="#FFFFFF"><strong>ENQUETE</strong></font></div></td>	<td> <div align="center"><font color="#FFFFFF"><strong>NEWSLETTER</strong></font></div></td>  </tr>  <tr bgcolor="#0000CC"> 	<td height="10"><font color="#FFFFFF"> </font></td>	<td height="10" colspan="4"><font color="#FFFFFF"> </font></td>  </tr>  <tr> 	<td bgcolor="#0000CC"><font color="#FFFFFF"> </font></td>	<td colspan="4"><div align="center"> <CENTER>		<img src="imagens/logo_assinatura.gif" width="130" height="37"><br> <br>		<% if Request.QueryString("erro") = "negado" then %>		Usuário ou Senha invalidos 		<% else %>		ENTRE COM SEU USUARIO E SENHA 		<!--    OBS.: Nunca informe o que está errado, ou seja, se disser ao usuário que ele   errou na senha, então há um usuário que atenda os critérios do Login, logo,    independentemente do que estiver errado, sempre de uma mensagem genérica,   que dificulte o acesso de pessoas não cadastradas. -->		<% end if %>		<form action = "login.asp" method = "post">		  E-Mail: 		  <input name = "login" type = "text" id="login">		  Senha: 		  <input type = "password" name = "senha">		  <input type = "submit" value = "Enviar">		</form>		Caso não seja cadastrato clique <a href="cadastro.asp">aqui</a> 		e cadastre-se gratuitamente </CENTER></td>  </tr>  <tr> 	<td height="30" bgcolor="#0000CC"><font color="#FFFFFF"> </font></td>	<td height="30" colspan="4" bgcolor="#0000CC"><font color="#FFFFFF"> </font></td>  </tr></table>
pagina que processa a pagina de login (login.asp)

<%   Set conexao = Server.CreateObject("ADODB.Connection")conexao.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\web\sites\wwmagazine\wwmagazine.mdb"SQL = "select * from cadastro where " & "email='" & Replace(request.form("login"), "'", "''") & "' and senha='" & Replace(request.form("senha"), "'", "''") & "'"	   Set Rs = conexao.execute(SQL)If Not Rs.EOF thenSession("id") = Rs("id_usuario")Session("senha") = Rs("senha")Session("email") = Rs("email")Session("nome") = Rs("nome")response.redirect("painel_conectado.asp") elseresponse.redirect("index_LOG.asp?erro=negado") end ifrs.closeset rs = nothingConexao.closeset conexao=nothing	  %>
Pagina que trava o usuario e redireciona para a pagina com o form de login (travar.asp)

 

<%Session.TimeOut = 20If Session("email") = "" Thenresponse.redirect("index_LOG.asp?erro=negado") End If%>
Se alguem puder dar uma ajuda agradeco desde ja, sou bem iniciante em asp, estou aprendendo bastante com vocês a medida que vou fazendo e que os problemas aparecem.

Compartilhar este post

Link para o post
Compartilhar em outros sites

crucifier    0

crucifier
Postado

travar.asp ->>

 

<%Session.TimeOut = 20If Session("email") = "" Thenurl = request.servervariables("script_name") & request.servervariables("QUERY_STRING")response.redirect("index_LOG.asp?erro=negado&url="&url&"")End If%>

 

daih na pagina de login.asp se poe pra ele redirecionar para o url que tiver no endereco..exemplo:

 

url = request.querystring("url")

response.redirect (url)

 

não testei nem nada..mas tenta ve se da certo...

em relação ao "request.servervariables("script_name") & request.servervariables("QUERY_STRING")"

eh que eu nao sei nenhuma funcao que pega o caminho completo...tipw: http://www.imasters.com.br/index.asp?alo=tia

caso tiver me informem=]

testa aih kania..daih posta aki o resultado

Compartilhar este post

Link para o post
Compartilhar em outros sites

kania    0

kania
Postado

Desculpe na demora da resposta é quem não tive tempo antes.

mas é assim, fiz oque falou mas esta dando erro, veja os códigos que alterei.

 

pagina de login

 

<%   Set conexao = Server.CreateObject("ADODB.Connection")'conexao.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=e:\vhosts\wwm-magazine.net\private\banco\wwmagazine.mdb"conexao.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\web\sites\wwmagazine\wwmagazine.mdb"SQL = "select * from cadastro where " & "email='" & Replace(request.form("login"), "'", "''") & "' and senha='" & Replace(request.form("senha"), "'", "''") & "'"	   Set Rs = conexao.execute(SQL)If Not Rs.EOF thenSession("id") = Rs("id_usuario")Session("senha") = Rs("senha")Session("email") = Rs("email")Session("nome") = Rs("nome")[color=#CC0000]url = request.querystring("url")response.redirect url[/color] elseresponse.redirect("index_LOG.asp?erro=negado") end ifrs.closeset rs = nothingConexao.closeset conexao=nothing	  %>

 

pagina travar.asp

 

<%Session.TimeOut = 20If Session("email") = "" Thenurl = request.servervariables("script_name") & request.servervariables("QUERY_STRING")response.redirect("index_LOG.asp?erro=negado&url="&url&"")End If%>

erro que esta dando

 

Tipo de erro:Objeto Response, ASP 0158 (0x80004005)Um URL é necessário./wwmagazine/login.asp, line 19

na hora que se tenta entrar em uma pagina restrita ele cria o seguinte link no navegador

 

http://localhost/wwmagazine/index_LOG.asp?erro=negado&url=/wwmagazine/painel_clientes.asp

Compartilhar este post

Link para o post
Compartilhar em outros sites

crucifier    0

crucifier
Postado

estranho to testando aki e ta dando certo...

colokei assim numa pagina e deu:

 

<%

url = request.querystring("url")

response.redirect url

%>

 

daih eu entrava nela com o seguinte url: http://www.site.com.br/teste.asp?url=/corintians/eh/bom.asp

e deu certo

agora eu nao sei nao...u negocio eh espera a ajuda de outra pessoa

eu até fiz um eskema de login assim...desse mesmo jeito q eu falei..e deu certo=\\

Compartilhar este post

Link para o post
Compartilhar em outros sites

kania    0

kania
Postado

Não sei oque esta acontecendo, mandei imprimir na tela o caminho que ele recupera, para ver para onde ele esta indo, ou tentando ir, na verdade ele nem esta achando ao variavel url, pq traz em branco

Compartilhar este post

Link para o post
Compartilhar em outros sites

Reginaldo    0

Reginaldo
Postado

ou melhorem todas as pag de seu site você declara essa sessão:session("url") = Request.ServerVariables("HTTP_REFERER")menos na do login né.. ai pra evita do cara ser sempre redirecionado pra uma pagina atraz mesmo num tendo feito pesquisa você faz a verificação do logado direcionar pra um arquivo de login diferente... onde vai ter no fim algo assim:responde.redirect = session("url")

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