logout area riservata

kite.mm · 28 Ott 2006

Ciao a tutti,
premetto che sono un neofita.
chi può aiutarmi con il logout da una area riservata.
Vi spiego meglio.
Ho creato un'area riservata che utilizza un database access. Il tutto funziona perfettamente tranne il logout.
Ossia esso viene richiamato ma non funziona realmente. Pertanto digitando l'indirizzo dell'area riservata si accede direttamente seza passare dal login.
Quest'area riservata mi funziona solo se chiudo il browser.
Mi sono dimenticato che l'area riservata viene richiamata da sito su una pagina _blank, ossia nuova.
Potete aiutarmi in qualche modo, sono disperat....
grazie mille
Kite

kite.mm · 28 Ott 2006

Approposito dimenticavo.
Aggiungo qui di seguito le pagine asp che utilizzo.

--------------------------------------------------------------------------------

Pagina di accesso: area_riservata.asp

<HTML>
<HEAD>
<TITLE>Area Riservata</TITLE>
</HEAD>
<BODY BGCOLOR=#BBBBFF background="../images/sfondi/sfondotabella.jpg">
<BR><BR><BR><BR><BR>
<FORM ACTION="login.asp" METHOD="POST">
<TABLE ALIGN=CENTER BORDER=0 BGCOLOR=#000000>
<TR BGCOLOR=#EEEEEE>
<TD WIDTH=150 ALIGN=CENTER>NOME UTENTE</td>
<TD>
<INPUT TYPE=TEXT NAME="nome_utente" SIZE=20>
</td>
</TR>
<TR BGCOLOR=#EEEEEE>
<TD WIDTH=150 ALIGN=CENTER>PASSWORD</td>
<TD>
<INPUT TYPE=PASSWORD NAME="password" SIZE=20>
</TD>
</TR>
<TR BGCOLOR=#EEEEEE>
<TD HEIGHT=30 COLSPAN=2 ALIGN=CENTER>
<INPUT TYPE=SUBMIT NAME="show" VALUE="LOGIN">
</TD>
</TR>
</TABLE>
</FORM>
</BODY>
</HTML

--------------------------------------------------------------------------------

pagina login: login.asp

<%
Dim nome_ut
Dim pass
nome_ut = Replace(Request.Form("nome_utente"), "'", "''")
pass = Replace(Request.Form("password"), "'", "''")

Dim cn
Set cn = Server.CreateObject("ADODB.Connection")
cn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&Server.MapPath("utenti.mdb")
Dim sql
sql = "SELECT ID FROM Utenti WHERE NOMEUTENTE='" &nome_ut&_
"' AND PASSWORD='" &pass& "'"
Dim rs
Set rs = cn.Execute(sql)

Dim autenticato
if rs.eof then
autenticato = false
else
autenticato = true
end if
rs.Close
cn.Close
Set rs = Nothing
Set cn = Nothing

if autenticato = true then
Session("Autenticato") = "OK"
Response.Redirect("riservato.asp")
else
Response.Redirect("area_riservata.asp")
end if
%><head><title>Area Riservata</title></head>

--------------------------------------------------------------------------------

pagina riservata: riservato.asp

<%
if Session("Autenticato")<>"OK" then
Response.Redirect "area_riservata.asp"
end if
%>
<div align="center">
<html>

<head>
<meta http-equiv="Content-Language" content="it">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>Area Riservata</title>
</head>

<body bgcolor="#2869A2" background="../images/sfondi/sfondotabella.jpg">

<table cellpadding="0" cellspacing="0" width="812" height="188" id="table1">

<tr>
<td align="center" width="808">
<p align="center">
<object classid="clsid27CDB6E-AE6D-11CF-96B8-444553540000" id="obj2" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,40,0" border="0" width="167" height="171">
<param name="movie" value="../images/area_riservata/logo_ellebiemme_riservato.swf">
<param name="quality" value="High">
<embed src="../images/area_riservata/logo_ellebiemme_riservato.swf" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" name="obj2" width="167" height="171" quality="High"></object>
 <a href="logout.asp">LOGOUT</td>
<td height="188" width="4"></td>
</tr>
</table>

</body>

</html>
</div>

--------------------------------------------------------------------------------

pagina logout: logout.asp

<%
session("Autenticato") = Null
Session.Abandon()
%>
<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>Nuova pagina 1</title>
</head>

<body>
Logout
</body>

</html>

--------------------------------------------------------------------------------

dove ho sbagliato?
potete aiutarmi in qualche modo?
grazie mille
kite

logout area riservata

kite.mm

Nuovo Utente

kite.mm

Nuovo Utente

Discussioni simili

logout area riservata

kite.mm

Nuovo Utente

kite.mm

Nuovo Utente

Discussioni simili

Privacy & Transparency

Privacy & Transparency