Jump to content
Fórum Script Brasil
  • 0

Finalizar SESSION


FranChæs¿ng®
 Share

Question

Olá, Galera ScriptBrasil

Sei que aqui neste forum existem alguns post sobre esta questão de FINALIZAR SESSION em ASP.

Ocorre é que existe uma certa dificuldade de entendimento dos comandos e onde aplicá-los, porque alguns usuários dão respostas diferentes e aí confunde na hora de aplicar o código.

Agora, galera, o problema é no momento de SAIR do sistema pois no administrador.asp ao clicar no botão SAIR, sai da tela e redireciona para o logar.asp mas se você der um backspace ele volta pra sessão anteriormente logada. Não está finalizando definitivamente. Vejam o código.

________

logar.asp - página para colocar o USUÁRIO e SENHA

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>Administrador Online</title>
<link href="estiloaluno.css" rel="stylesheet" type="text/css" media="all" />
</head>
<body>
<div id="corpologar">
<div id="topologar"><a href="http://www.site.com.br"><img src="Images/logo_admin.png" width="180" height="130" alt="FranChasing" /></a></div>
<div id="contextologar">
<form action="logadoadmin.asp" method="POST">
<div id="contextologar-titulo1"><b>Login:</b><input class="ipt" name="login" type="text" /></div>
<div id="contextologar-titulo2"><b>Senha:</b><input class="ipt" name="senha" type="password" /></div>
<input class="ipt2" name="input" type="submit" />
</form>
</div>
</div>
</body>
</html>
_________ logado.asp - página que "se logado" vai para administrador.asp
<%@ Language=VBScript %>
<% Option Explicit %>

<%
'aqui declaramos as variaveis
Dim objConno, objRSo, objRSo1, verdadeo, verdadeo1, bdxx1, bdx1

bdxx1 = Server.MapPath("..\db\banco.mdb")

Set ObjConno = Server.CreateObject("ADODB.Connection")
bdx1 = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & bdxx1
ObjConno.Open bdx1
'abrindo o objeto verdadeiro
Set objRSo = Server.CreateObject("ADODB.Recordset")
objRSo.Open "administrador", ObjConno, ,3, 2

'criando o loop
Do While Not (objRSo.EOF or verdadeo)

'verificando se é verdadeiro
If (objRSo("login") = Ucase(request.Form("login"))) and (objRSo("senha") = Ucase(request.Form("senha"))) Then

response.Cookies("logadoXXcpi")=Ucase(request.Form("login"))
response.Redirect("administrador.asp")

verdadeo = True
End If
objRSo.MoveNext
Loop
response.Cookies("logadoXXcpi").Expires=Date -1000

'fechando as conexoes
objRSo.Close
Set objRSo = Nothing
objConno.Close
set objConno = Nothing
%>
_______________ administrador.asp - página do administrador
<%@ Language=VBScript %>
<% Option Explicit %>

<%
If Request("HTTP_REFERER") = "" Then 
 response.Redirect("logar.asp")
 Response.End
End If
%>

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<title>Administrador Online</title>
<link href="estiloaluno.css" rel="stylesheet" type="text/css" media="all" />
<link href="SpryAssets/SpryAccordion.css" rel="stylesheet" type="text/css" />
<link rel="stylesheet" type="text/css" href="style.css" />
<link rel="stylesheet" type="text/css" href="submodal.css" />
&lt;script src="atualize.js" type="text/javascript"></script>
&lt;script src="SpryAssets/SpryAccordion.js" type="text/javascript"></script>
&lt;script language="javascript" type="text/javascript" src="submodalsource.js"></script>
&lt;script language="javascript" type="text/javascript" src="drop_down.js"></script>
&lt;script src="atualize.js" type="text/javascript"></script>
</head>
<body>
<div id="cpi-corpo">
<div id="cpi-topo">
<div id="cpi-topo-logo"><img src="Images/logo_admin.png" width="188" height="98" /></div>
<div id="cpi-topo-aluno">
<a href="#">Versão 2.0</a>
</div>
</div>
<div id="cpi-conteudo-menu1">
<div class="h1x">ALUNO</div>
<div class="cpi-conteudo-menu-link">
<div class="cpi-conteudo-menu-link-1">
<div id="Accordion1" class="Accordion" tabindex="0">
<div class="AccordionPanel">
<div class="AccordionPanelTab">Ver Mensagem Web Site</div>
<div class="AccordionPanelContent">
<div class="meucadastro">
<div class="cpi-conteudo-menu-link-1-tirulo"><span>Visualizando Mensagens do Web Site</span>
<div class="cpi-conteudo-menu-link-1-contexto">

<%
Dim cursoRS1t2, cursoConn1t2, bdxx1t2, bdx1t2, verdadet2
bdxx1t2 = Server.MapPath("..\db\banco.mdb")
Set cursoConn1t2 = Server.CreateObject("ADODB.Connection")
bdx1t2 = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & bdxx1t2
cursoConn1t2.Open bdx1t2
Set cursoRS1t2 = Server.CreateObject("ADODB.Recordset")
cursoRS1t2.Open "mensagemsite", cursoConn1t2, ,3, 2
Do While Not cursoRS1t2.EOF
If (cursoRS1t2("codigo") > 0) OR (cursoRS1t2("codigo") = " ") Then
%>

<div class="formulario">
<p><em><strong>Nome: </strong></em><input class="mensagemsite-nome-email" type="text" name="nome" value="<%=cursoRS1t2("nome")%>" readonly="readonly"></p>
<p><em><strong>E-Mail: </strong></em><input class="mensagemsite-nome-email" type="text" name="email" value="<%=cursoRS1t2("email")%>" readonly="readonly"></p>
<p><em><strong>Mensagem: </strong></em><textarea class="mensagemsite-mensagem" name="mensagem"><%=cursoRS1t2("mensagem")%></textarea></p>
<p><FORM METHOD="POST" ACTION="deletarenviarmsgsite.asp">
<input class="mensagemsite-codigo" type="text" name="cod" value="<%=cursoRS1t2("cod")%>" >
<INPUT style=" margin-left:400px;" class="mensagemsite-botao" TYPE="SUBMIT" value="Apagar"></p>
</FORM><p></p><br />
<hr />
</div>

<%
End If
cursoRS1t2.MoveNext
Loop
cursoRS1t2.Close
Set cursoRS1t2 = Nothing
cursoConn1t2.Close
Set cursoConn1t2 = Nothing
%>

</div></div></div></div></div>
<div class="AccordionPanel">
<div class="AccordionPanelTab">Visualizar Matriz Curricular</div>
<div class="AccordionPanelContent">
<div class="meucadastro">
<div class="cpi-conteudo-menu-link-1-tirulo"><span>Visualizando Matriz Curricular</span>
<div class="cpi-conteudo-menu-link-1-contexto">
<form action="vermatrizcurricular1.asp" method="POST">
<b>Curso: </b> 

<%
Dim cursoRS1t, cursoConn1t, bdxx1t, bdx1t
bdxx1t = Server.MapPath("..\db\banco.mdb")
Set cursoConn1t = Server.CreateObject("ADODB.Connection")
bdx1t = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & bdxx1t
cursoConn1t.Open bdx1t
Set cursoRS1t = Server.CreateObject("ADODB.Recordset")
cursoRS1t.Open "cadastro_curso", cursoConn1t, ,3, 2
%>    
<select name="curso" title="curso">

<%
Do While Not cursoRS1t.EOF 
%>

<option><%=cursoRS1t("curso")%></option>

<%
cursoRS1t.MoveNext
Loop
cursoRS1t.Close
Set cursoRS1t = Nothing
cursoConn1t.Close
set cursoConn1t = Nothing
%>

</select>
<input type="submit" value="Visualizar" />
</form>
</div></div></div></div></div>
<div class="AccordionPanel">
<div class="AccordionPanelTab">Visualizar Histórico</div>
<div class="AccordionPanelContent">
<div class="meucadastro">
<div class="cpi-conteudo-menu-link-1-tirulo"><span>Visualizando Histórico</span>
<div class="cpi-conteudo-menu-link-1-contexto">
<form action="verhistorico1.asp" method="POST">
<b>Matrícula do Aluno: </b><input name="matricula" type="text" />
<input type="submit" value="Visualizar" />
</form>
</div></div></div></div></div>
<div class="AccordionPanel">
<div class="AccordionPanelTab">Visualizar Aluno</div>
<div class="AccordionPanelContent">
<div class="meucadastro">
<div class="cpi-conteudo-menu-link-1-tirulo"><span>Visualizando Aluno</span>
<div class="cpi-conteudo-menu-link-1-contexto">
<form action="veraluno.asp" method="POST">
<b>Matrícula do Aluno: </b><input name="matricula" type="text" />
<input type="submit" value="Visualizar" />
</form>
</div></div></div></div></div>
<div class="AccordionPanel">
<div class="AccordionPanelTab"><b>+</b> Aluno</div>
<div class="AccordionPanelContent">
<div class="meucadastro">
<div class="cpi-conteudo-menu-link-1-tirulo"><span>Cadastrando Aluno</span>
<div class="cpi-conteudo-menu-link-1-contexto">
<a style="text-decoration:underline" href="cadastrando_aluno.asp">Cadastre Aqui!</a>
</div>
</div>
</div>
</div>
</div>
<div class="AccordionPanel">
<div class="AccordionPanelTab"><b>-</b> Aluno</div>
<div class="AccordionPanelContent">
<div class="meucadastro">
<div class="cpi-conteudo-menu-link-1-tirulo"><span>Removendo Aluno</span>
<div class="cpi-conteudo-menu-link-1-contexto">
<form action="deletar_aluno.asp" method="POST">
<b>Matrícula do Aluno: </b><input name="matricula" type="text" />
<input type="submit" value="Remover" />
</form>
</div>
</div>
</div>
</div>
</div>
<div class="AccordionPanel">
<div class="AccordionPanelTab">Ativar</div>
<div class="AccordionPanelContent">
<div class="meucadastro">
<div class="cpi-conteudo-menu-link-1-tirulo"><span>Ativando Aluno</span>
<div class="cpi-conteudo-menu-link-1-contexto">
<a style="text-decoration:underline" href="ativvando_aluno.asp">Ative Aqui!</a>
</div>
</div>
</div>
</div>
</div>
<div class="AccordionPanel">
<div class="AccordionPanelTab">Desativar</div>
<div class="AccordionPanelContent">
<div class="meucadastro">
<div class="cpi-conteudo-menu-link-1-tirulo"><span>Desativando Aluno</span>
<div class="cpi-conteudo-menu-link-1-contexto">
<form action="desativando_aluno.asp" method="POST">
<p><b>Matrícula do Aluno: </b><input name="matricula" type="text" /><input type="submit" value="Desativar" /></p>
</form>
</div>
</div>
</div>
</div>
</div>
<div class="AccordionPanel">
<div class="AccordionPanelTab"><b>+</b> Média</div>
<div class="AccordionPanelContent">
<div class="meucadastro">
<div class="cpi-conteudo-menu-link-1-tirulo"><span>Adicionando e Alterando Média</span>
<div class="cpi-conteudo-menu-link-1-contexto">
<form action="alterando_mediafinal.asp" method="POST">
<b>Matrícula do Aluno: </b><input name="matricula" type="text" />
<input type="submit" value="Adicionar / Alterar" />
</form>
</div>
</div>
</div>
</div>
</div>
<div class="AccordionPanel">
<div class="AccordionPanelTab"><b>+</b> Pagamento</div>
<div class="AccordionPanelContent">
<div class="meucadastro">
<div class="cpi-conteudo-menu-link-1-tirulo"><span>Adicionando e Alterando Pagamento</span>
<div class="cpi-conteudo-menu-link-1-contexto">
<form action="pagamento1.asp" method="POST">
<b>Matrícula do Aluno: </b><input name="matricula" type="text" /> <input type="submit" value="Adicionar / Alterar" />
</form>
</div>
</div>
</div>
</div>
</div>
<div class="h1x">CPI</div>
<div class="AccordionPanel">
<div class="AccordionPanelTab"><b>+</b> Pólo</div>
<div class="AccordionPanelContent">
<div class="meucadastro">
<div class="cpi-conteudo-menu-link-1-tirulo"><span>Adicionando Pólo</span>
<div class="cpi-conteudo-menu-link-1-contexto-matrizcurricular">
<a style="text-decoration:underline" href="cadastrando_polo.asp">Cadastre Aqui!</a>
</div>
</div>
</div>
</div>
</div>
<div class="AccordionPanel">
<div class="AccordionPanelTab"><b>-</b> Pólo</div>
<div class="AccordionPanelContent">
<div class="meucadastro">
<div class="cpi-conteudo-menu-link-1-tirulo"><span>Removendo Pólo</span>
<div class="cpi-conteudo-menu-link-1-contexto">
<form action="deletar_polo.asp" method="POST">
<b>Pólo: </b>

<%
Dim poloRS5, poloConn5, bdxx5, bdx5
bdxx5 = Server.MapPath("..\db\banco.mdb")
Set poloConn5 = Server.CreateObject("ADODB.Connection")
bdx5 = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & bdxx5
poloConn5.Open bdx5
Set poloRS5 = Server.CreateObject("ADODB.Recordset")
poloRS5.Open "cadastro_polo", poloConn5, ,3, 2
%>    

<select name="polo" title="polo">

<%
Do While Not poloRS5.EOF 
%>

<option><%=poloRS5("polo")%></option>

<%
poloRS5.MoveNext
Loop
poloRS5.Close
Set poloRS5 = Nothing
poloConn5.Close
set poloConn5 = Nothing
%>

</select> <input type="submit" value="Remover" />
</form>
</div>
</div>
</div>
</div>
</div>
<div class="AccordionPanel">
<div class="AccordionPanelTab"><b>+</b> Curso</div>
<div class="AccordionPanelContent">
<div class="meucadastro">
<div class="cpi-conteudo-menu-link-1-tirulo"><span>Adicionando Curso</span>
<div class="cpi-conteudo-menu-link-1-contexto">
<a style="text-decoration:underline" href="cadastrando_curso.asp">Adicione Aqui!</a>
</div>
</div>
</div>
</div>
</div>
<div class="AccordionPanel">
<div class="AccordionPanelTab"><b>-</b> Curso</div>
<div class="AccordionPanelContent">
<div class="meucadastro">
<div class="cpi-conteudo-menu-link-1-tirulo"><span>Removendo Curso</span>
<div class="cpi-conteudo-menu-link-1-contexto">
<form action="deletar_curso.asp" method="POST">
<b>Curso: </b> 

<%
'select curso'
Dim cursoRS7, cursoConn7, bdxx7, bdx7
bdxx7 = Server.MapPath("..\db\banco.mdb")
Set cursoConn7 = Server.CreateObject("ADODB.Connection")
bdx7 = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & bdxx7
cursoConn7.Open bdx7
Set cursoRS7 = Server.CreateObject("ADODB.Recordset")
cursoRS7.Open "cadastro_curso", cursoConn7, ,3, 2
%>    

<select name="curso" title="curso">

<%
Do While Not cursoRS7.EOF 
%>

<option><%=cursoRS7("curso")%></option>

<%
cursoRS7.MoveNext
Loop
cursoRS7.Close
Set cursoRS7 = Nothing
cursoConn7.Close
set cursoConn7 = Nothing
%>

</select> <input type="submit" value="Remover" />
</form>
</div>
</div>
</div>
</div>
</div>
<div class="AccordionPanel">
<div class="AccordionPanelTab"><b>+</b> Disciplina</div>
<div class="AccordionPanelContent">
<div class="meucadastro">
<div class="cpi-conteudo-menu-link-1-tirulo"><span>Adicionando Disciplina</span>
<div class="cpi-conteudo-menu-link-1-contexto">
<a style="text-decoration:underline" href="cadastrando_disciplina.asp">Cadastre Aqui!</a>
</div>
</div>
</div>
</div>
</div>
<div class="AccordionPanel">
<div class="AccordionPanelTab"><b>-</b> Disciplina</div>
<div class="AccordionPanelContent">
<div class="meucadastro">
<div class="cpi-conteudo-menu-link-1-tirulo"><span>Removendo Disciplina</span>
<div class="cpi-conteudo-menu-link-1-contexto">
<form action="deletar_disciplina.asp" method="POST">
<b>Disciplina: </b>

<%
'select disciplina'
Dim disciplinaRS9, disciplinaConn9, bdxx9, bdx9
bdxx9 = Server.MapPath("..\db\banco.mdb")
Set disciplinaConn9 = Server.CreateObject("ADODB.Connection")
bdx9 = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & bdxx9
disciplinaConn9.Open bdx9
Set disciplinaRS9 = Server.CreateObject("ADODB.Recordset")
disciplinaRS9.Open "cadastro_disciplina", disciplinaConn9, ,3, 2
%>    

<select name="disciplina" title="disciplina">

<%
Do While Not disciplinaRS9.EOF 
%>

<option><%=disciplinaRS9("disciplina")%></option>

<%
disciplinaRS9.MoveNext
Loop
disciplinaRS9.Close
Set disciplinaRS9 = Nothing
disciplinaConn9.Close
set disciplinaConn9 = Nothing
%>

</select> <input type="submit" value="Remover" />
</form>
</div>
</div>
</div>
</div>
</div>
<div class="AccordionPanel">
<div class="AccordionPanelTab"><b>+</b> Turma</div>
<div class="AccordionPanelContent">
<div class="meucadastro">
<div class="cpi-conteudo-menu-link-1-tirulo"><span>Adicionando Turma</span>
<div class="cpi-conteudo-menu-link-1-contexto">
<a style="text-decoration:underline" href="cadastrando_turma.asp">Cadastre Aqui!</a>
</div>
</div>
</div>
</div>
</div>
<div class="AccordionPanel">
<div class="AccordionPanelTab"><b>-</b> Turma</div>
<div class="AccordionPanelContent">
<div class="meucadastro">
<div class="cpi-conteudo-menu-link-1-tirulo"><span>Removendo Turma</span>
<div class="cpi-conteudo-menu-link-1-contexto">
<form action="deletar_turma.asp" method="POST">
<b>Turma: </b>

<%
Dim turmaRS10, turmaConn10, bdxx10, bdx10
bdxx10 = Server.MapPath("..\db\banco.mdb")
Set turmaConn10 = Server.CreateObject("ADODB.Connection")
bdx10 = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & bdxx10
turmaConn10.Open bdx10
Set turmaRS10 = Server.CreateObject("ADODB.Recordset")
turmaRS10.Open "cadastro_turma", turmaConn10, ,3, 2
%>    

<select name="turma" title="turma">

<%
Do While Not turmaRS10.EOF 
%>

<option><%=turmaRS10("turma")%></option>

<%
turmaRS10.MoveNext
Loop
turmaRS10.Close
Set turmaRS10 = Nothing
turmaConn10.Close
set turmaConn10 = Nothing
%>

</select> <input type="submit" value="Remover" />
</form>
</div>
</div>
</div>
</div>
</div>
<div class="AccordionPanel">
<div class="AccordionPanelTab"><b>+</b> Turno</div>
<div class="AccordionPanelContent">
<div class="meucadastro">
<div class="cpi-conteudo-menu-link-1-tirulo"><span>Adicionando Turno</span>
<div class="cpi-conteudo-menu-link-1-contexto">
<a style="text-decoration:underline" href="cadastrando_turno.asp">Cadastre Aqui!</a>
</div>
</div>
</div>
</div>
</div>
<div class="AccordionPanel">
<div class="AccordionPanelTab"><b>-</b> Turno</div>
<div class="AccordionPanelContent">
<div class="meucadastro">
<div class="cpi-conteudo-menu-link-1-tirulo"><span>Removendo Turno</span>
<div class="cpi-conteudo-menu-link-1-contexto">
<form action="deletar_turno.asp" method="POST">
<b>Turno: </b>

<%
'select turno'
Dim turnoRS11, turnoConn11, bdxx11, bdx11
bdxx11 = Server.MapPath("..\db\banco.mdb")
Set turnoConn11 = Server.CreateObject("ADODB.Connection")
bdx11 = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & bdxx11
turnoConn11.Open bdx11
Set turnoRS11 = Server.CreateObject("ADODB.Recordset")
turnoRS11.Open "cadastro_turno", turnoConn11, ,3, 2
%>    

<select name="turno" title="turno">

<%
Do While Not turnoRS11.EOF 
%>

<option><%=turnoRS11("turno")%></option>

<%
turnoRS11.MoveNext
Loop
turnoRS11.Close
Set turnoRS11 = Nothing
turnoConn11.Close
set turnoConn11 = Nothing
%>

</select> <input type="submit" value="Remover" />
</form>
</div>
</div>
</div>
</div>
</div>
</div>
</div>
</div>
</div>
<div id="cpi-rodape"><p><a style="color:#fff;" href="http://www.site.com.br/programa/manual.doc">Download Manual de Uso</a></p>
<p>CPI Online © 2009</p>
<p> </p>
<div id="cpi-rodape2">
<p><a style="color:#fff; font-weight: bold;" href="http://www.site.com.br/logout.asp">SAIR</a></p>
</div>
</div>
&lt;script type="text/javascript">
<!--
var Accordion1 = new Spry.Widget.Accordion("Accordion1");
//-->
</script>
</body>
</html>

Valeu pela ajuda !!!

Edited by FranChæs¿ng®
Link to comment
Share on other sites

3 answers to this question

Recommended Posts

  • 0

basicamente poder exibir a página no backstab apos ter saido não vai fazer diferença se o seu site for feito com o minimo controle de logins, ao tentar fazer alguma coisa o sistema vai pegar que o usuario ta deslogado...

o fato de o backstab deixar voltar pode ser resolvido configurando o cache... ou desabilitando ele... mais isso nem sempre é 100%...

em vez de controlar o acesso pela pagina anterior verifique o valor das sessions ou cookies... que é melhor...

<%
If Request("HTTP_REFERER") = "" Then 
response.Redirect("logar.asp")
Response.End
End If
%>
prefiro usar algo do tipo:
verificou login e senha grava um cookie e redireciona


If cookies != valor Then 
response.Redirect("logar.asp")
Response.End
End If
%>

ai depende da segurança necessaria na bagaça...

Link to comment
Share on other sites

  • 0
basicamente poder exibir a página no backstab apos ter saido não vai fazer diferença se o seu site for feito com o minimo controle de logins, ao tentar fazer alguma coisa o sistema vai pegar que o usuario ta deslogado...

o fato de o backstab deixar voltar pode ser resolvido configurando o cache... ou desabilitando ele... mais isso nem sempre é 100%...

em vez de controlar o acesso pela pagina anterior verifique o valor das sessions ou cookies... que é melhor...

<%
If Request("HTTP_REFERER") = "" Then 
response.Redirect("logar.asp")
Response.End
End If
%>
prefiro usar algo do tipo:
verificou login e senha grava um cookie e redireciona


If cookies != valor Then 
response.Redirect("logar.asp")
Response.End
End If
%>
ai depende da segurança necessaria na bagaça...
Professor, está causando este erro:
Microsoft VBScript compilation error '800a03f9'
Expected 'Then'
/aluno_online.asp, line 12
If cookies != valor Then

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

 Share



  • Forum Statistics

    • Total Topics
      150.2k
    • Total Posts
      647.5k
×
×
  • Create New...