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.
_________
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
Pergunta
FranChæs¿ng®
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
_________ 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" /> <script src="atualize.js" type="text/javascript"></script> <script src="SpryAssets/SpryAccordion.js" type="text/javascript"></script> <script language="javascript" type="text/javascript" src="submodalsource.js"></script> <script language="javascript" type="text/javascript" src="drop_down.js"></script> <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> <script type="text/javascript"> <!-- var Accordion1 = new Spry.Widget.Accordion("Accordion1"); //--> </script> </body> </html>Valeu pela ajuda !!!
Editado por FranChæs¿ng®Link para o comentário
Compartilhar em outros sites
3 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.