Logout area riservata

di il
2 risposte

Logout area riservata

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

2 Risposte

  • Re: Logout area riservata

    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\">
    <!-- MSTableType=\"layout\" -->
    <tr>
    <td align=\"center\" width=\"808\">
    <p align=\"center\">
    <object classid=\"clsid:D27CDB6E-AE6D-11CF-96B8-444553540000\" id=\"obj2\" codebase=\"\" 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/getflashplaye\" type=\"application/x-shockwave-flash\" name=\"obj2\" width=\"167\" height=\"171\" quality=\"High\"></object>
    &nbsp;<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
  • Re: Logout area riservata

    Quality=\"High\"></object>
    &nbsp;<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
Devi accedere o registrarti per scrivere nel forum
2 risposte