Newsgroup: it.comp.www.asp
Titolo: problemi per l'accesso co username e password

Sono giorni che cerco di far funzionare un sistema di ingresso
riservato a certe pagine di un sito, utilizzando vari metodi postati o
presi da esempi come quello su
http://www.soft-land.org/articoli/security.html
, ma non riesco a farlo
funzionare; mi spiego...
ho una pagina di login.asp con il codice del suddetto articolo, al
quale sostituisco la connessione dns-less "
 Dim Conn 
       Set Conn = Server.CreateObject("ADODB.Connection")
          Conn.Open "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & 
              Server.MapPath("database/pass.mdb")
che corrisponde al path che ho creato sia sul server remoto che nella
cartella locale dove ho le pagine (server locale)
inoltre ad ogni pagina protetta (html o .asp) aggiungo il restante
codice preso in esempio dal suddetto articolo..ebbene non riesco ad
accedere a nulla....
il sito è su: 
http://computers.domaindlx.com/caruso/
     ---> ...area
clienti...
ospitato per una prova....
Gradirei maggiori chiarimenti su quell'articolo..
Grazie
Massimo Caruso

 funzionare; mi spiego...
Eccomi. Ho provato ad accedere alla tua pagina di prova, ma il server mi
risponde
"pagina non trovata". Che chiarimenti ti servono e quali sono i tuoi
problemi ?
Davide

 wrote:

il problema è che non riesco a far funzionare il sistema.....ti posto
il listato inserito in itlogin.asp (che conosci bene..),  non capisco
perchè non riesco ad accedere alla pagina... in locale (su pws) non
riesco a connetermi al database e verificare se funziona....
Inoltre  non so se le pagine protette devono poi avere estensione .htm
o .asp? con il codice in Head, e quindi dove deve essere reindirizzato
l'utente con i permessi di accesso....
Grazie per l'interessamento...
Massimo Caruso
<SCRIPT LANGUAGE=JSCRIPT RUNAT=SERVER>
 
  var connection;
  var recordset;
  var password;
  var login;
  var sql;
  var reg1 = /!1/i;
  var reg2 = /!2/i;
  var userok = false;		
 
  /* preparo la stringa sql */
  sql = "SELECT * FROM UTENTI WHERE LOGIN='!1' AND PASSWORD='!2'"
 
  /* leggo i parametri dalla form */
  password = "" + request.form("password") + "";
  login    = "" + request.form("login") + "";
 
  /* verifico quello che l'utente ha scritto */
  if( request("login") == "undefined" )
  {
    /* Non ho ancora chiesto niente, visualizzo la form e basta */
  }
  else
  {
 
   Dim Conn 
       Set Conn = Server.CreateObject("ADODB.Connection")
          Conn.Open "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & 
              Server.MapPath("caruso/database/pass.mdb")
 
    /* verifico se l'utente esiste */
 
    /* sostituisco i parametri nella stringa SQL */
    sql = sql.replace( reg1, login );
    sql = sql.replace( reg2, password );
 
    /* eseguo la ricerca */
    recordset = connection.execute( sql );
 
    if( recordset.eof && recordset.bof )
    {
      /* utente non trovato */
      Response.write("<B>Utente non trovato o password errate.");
      Response.write("Ripetere prego</b><P>");
    }
    else
    {
      /* utente trovato, inserisco l'informazione nelle variabili di
sessione */
      userok = true;
      Session("userloggedin") = String(login);
    }
 
    /* chiudo il recordset qualunque cosa sia successa */
    recordset.close();
 
    /* chiudo la connessione */
    connection.close();
 
  }
 
  /* verifico se l'utente ha fatto login in modo appropriato */
  if( userok )
  {
    /* invio l'utente alla pagina protetta */
    response.redirect("imexit.htm")
  }
 
  /* TERMINE DELLO SCRIPT */
</SCRIPT>
<HTML><title>Area clienti</title>
<BODY bgcolor="#FFFFFF">
<P>
<center>
  <table width="100%" border="0">
    <tr> 
      <td> 
        <div align="center"> 
          <p><img src="images/unishp.gif" width="220" height="40"></p>
          <p><font size="5"><b><font face="Arial, Helvetica,
sans-serif">Riservato 
            ai soli clienti Uniship Italia.</font></b></font>.</p>
        </div>
      </td>
    </tr>
    <tr> 
      <td height="96"> 
        <div align="center"> 
          <p align="left"><font face="Arial, Helvetica,
sans-serif">Per accedere 
            ai formulari &quot;Richiesta di Booking&quot; Importazione
e/o Esportazione 
            vogliate gentilmente digitare la vostra
&quot;Password&quot; nell'apposita 
            cella e cliccare sul tipo di Booking desiderato; grazie
per la cortese 
            attenzione.</font></p>
        </div>
      </td>
    </tr>
  </table>
  <FORM METHOD=POST ACTION=itlogin.asp>
<table width=40% bgcolor=lightblue>
<tr><td> </td><td> </td><td>  </td><td> </td></tr>
<tr>
  <td width=5%> </td>
        <td width=30%><font face="Arial, Helvetica,
sans-serif">Login</font>:</td>
  <td width=60%>
          <INPUT TYPE=TEXT NAME=login VALUE="<%=request("login")%>">
        </td>
  <td width=5%> </td>
</tr>
<tr>
  <td width=5%> </td>
        <td><font face="Arial, Helvetica,
sans-serif">Password</font></td>
  <td><INPUT TYPE=password NAME=password
VALUE="<%=Request("password")%>"></td>
  <td width=5%> </td>
</tr>
<tr>
  <td>   <P>   </td>
  <td> </td>
  <td><input type=submit value="           Login           "></td>
  <td> </td>
</tr>
</table>
    <p>&nbsp;</p>
    <p><font face="Arial, Helvetica, sans-serif"
size="2">..............Navighiamo 
      le pi&ugrave; importanti Compagnie Marittime del
Mondo...........</font></p>
  </FORM>
</center>
</BODY>
</HTML>


questo e' VBScript!
Non si puo' fare meta' e meta'.... o fai tutto in JScript o tutto in
VBScript, altrimenti
si incazza come una iena (a ragione).
Prova ad usare
connection = new ActiveXObject("ADODB.Connection");
connection.open("driver={Microsoft Access Driver (*.mdb)};dbq=" +
server.mappath("caruso/database/pass.mdb"));
E vedrai che funzia.
Le pagine successive devono essere .ASP se vuoi mettere il controllo
iniziale, in caso contrario
il codice non verrebbe eseguito.
Che "spiegazioni" ti servono poi ?
Davide