Login

[muscaril]

Grazie si avevo già provato uno simile:
login.asp

     <%
'Creo la variabile Action
'ha come valore il campo act del form
Dim Action
Action = request.form("act")
'Creo la variabile PrimaPagina
'e la setto sulla mia prima pagina asp protetta
Dim PrimaPagina
PrimaPagina = "Login\default.asp"
'se Action è vuota stampo il form
if Action = "" then
%>
<form method="post" action="Login\login.asp" id="contatti-form" role="form">
 <div class="col-md-12 col-sm-12 wow fadeIn" data-wow-delay="0.3s">
 <input type="text" name="u" class="form-control" placeholder="User">
        </div>
   <div class="col-md-12 col-sm-12 wow fadeIn" data-wow-delay="0.9s">
   <input type="password" name="p" class="form-control" placeholder="Password">
        </div>
   <div class="col-md-offset-6 col-md-6 col-sm-6 wow fadeIn" data-wow-delay="0.9s">
            <input type="submit" value="Login" class="form-control">
  </div>
</form>
<%
'se Action ha come valore "enter"...
elseif Action = "enter" then
'creo la variabile User
'con il valore del campo u del form
Dim User
User = request.form("u")
'creo la variabile Pass
'con il valore del campo p del form
Dim Pass
Pass = request.form("p")
'Se User e/o Pass è vuota stampo un errore
if (User = "" or Pass = "") then
response.write "Campo incompleto!"
response.end
'in caso contrario procedo alla verifica
else
'Apro la connessione al DB
Dim Conn
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&_
Server.MapPath("mdb-database\utenti_sito.mdb")
'Imposto la query ed apro il recordset
Dim Query, Rs
Query = "select * from UTENTI where user = '" & User & "' "&_
"and pass = '" & Pass & "'"
Set Rs = Server.CreateObject("ADODB.Recordset")
Rs.Open Query, Conn, 3, 3
'se nessun utente corrisponde stampo un errore
if Rs.EOF then
response.write "Spiacente! Login non corretto"
response.end
'in caso contrario imposto la mia session
'ed effettuo il redirect sulla prima pagina
else
Session("User") = User
Session("Pass") = Pass
if user = "muscaril" then
Response.Redirect ("Login\Administrator.asp")
else
Response.Redirect PrimaPagina
end if
end if
'chiudo Rcordset e connessione
Rs.Close
set Rs = Nothing
Conn.Close
Set Conn= Nothing
end if
end if
%>

index.html

codice:

div id="login">
   <div class="container">
    <div class="row">
     <div class="col-md-3 col-sm-4 wow fadeInLeft" data-wow-delay="0.6s">
      <h2><strong>Area Protetta</strong></h2>
      <h5>Quest'area
 è accessibile solo a clienti registrati dove poter richiedere un 
intervento tecnico e consultare lo stato di avanzamento dello 
stesso</h5>
      </ul>
     </div>
     <div class="col-md-3 col-sm-4 wow fadeIn" data-wow-delay="0.9s">
      <h2><strong>Login</strong></h2>
            <form method="post" action="Login\login.asp" id="contatti-form" role="form">
         <div class="col-md-12 col-sm-12 wow fadeIn" data-wow-delay="0.3s">
         <input type="text" name="u" class="form-control" placeholder="User">
                           </div>
        <div class="col-md-12 col-sm-12 wow fadeIn" data-wow-delay="0.9s">
         <input type="password" name="p" class="form-control" placeholder="Password">
                                </div>
         <div class="col-md-offset-6 col-md-6 col-sm-6 wow fadeIn" data-wow-delay="0.9s">
                                    <input type="submit" value="Login" class="form-control">
        </div>
                               </form>
 
                       <h5>Per recuperare la password dimenticata o
 smarrita clicca <a href="registrati.asp">qui</a></h5>
                             </div>

Il primo errore e che compilando i campi sulla pagina principale premendo il tasto login mi apre una seconda pagina dove devo compilare nuovamente i dati.
Poi l'errore più importante è che non riesce ad aprire il database
Immagine.jpg

Dove sbaglio

Grazie

[optime]

accertati che la pagina login.asp esista veramente nella cartella indicata dall'errore

[muscaril]

Si nelle cartelle ci sono i file

[optime]

secondo l'errore il file D:\Inetpub\webs\computersassistanceit\Login\Login\ login.asp NON esiste.

[muscaril]

Si grazie avevo inserito due volte la cartella.
Adesso non mi da nessun errore ma non mi apre nessuna pagina. Come dicevo se io inserisco la user e la password sulla pagina iniziale dopo mi ricompare una seconda pagina vuota con il riquadro per inserire la user e la password.
Inserendo a tutte e due le pagine la user e la password non mi apre nessuna pagina ma mi ricompare nuovamente il riquadro per reinserirle.

[optime]

la action di login.asp è login.asp, quindi è corretto che richiami la stessa pagina. probabilmente c'è qualche problema nel recupero dei valori passati

[muscaril]

Quindi dove devo modificare per non avere la stessa pagina. E dove devo controllare per vedere questi valori, se sono giusti.

Grazie

[Vincent.Zeno]

è chiaro che avendo poca dimestichezza con la creazione di un'area protetta la creazione delle stessa diventa molto complicata. anche scoprire eventuali errori nello script che stai usando diventa un'impresa...
prima di andare avanti è necessario sapere a cosa ti serve questa autenticazione. in modo da capire se hai bisogno di uno script più o meno complesso

comunque: "il primo errore" è che la pagina di login chiede se Action = request.form("act") è vuoto e quindi propone il form di autenticazione. se invece Action contiene "enter" prosegue la verifica. il problema è che niente valorizza questa variabile

nella pagina index prova a cambiare il tasto submit da cosi:
<input type="submit" value="Login" class="form-control">
a così:
<input type="submit" name="act" value="enter" class="form-control">

[muscaril]

Grazie funziona tutto.
E' normale che se rientro nella pagina principale Index, la user rimane scritta.

[Vincent.Zeno]

è una domanda?