Visualizzazione dei risultati da 1 a 4 su 4

Discussione: Problemi di login

  1. #1
    Utente di HTML.it
    Registrato dal
    Dec 2001
    Messaggi
    262

    Problemi di login

    ciao a tutto il forum!!
    il mio problema è che non riesco a far funzionare bene il mio script di login, ovvero sia mi restituisce sempre errore di username/password.
    ho guardato e riguardato tutto lo script e i campi del db, ma non trovo l'inghippo.Chi vuol dare una okkiatina allo script x darmi una mano?
    grazie ragà :rollo:

    posto la pagina:
    codice:
    <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
    <html>
    <head>
    <title>Un'area riservata con minifloppy.it</title>
    <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
    </head>
    <body>
    <% 
    if Request.Form("inviato") = "si" then
    
    Dim strnick, strpsw
    
    strnick = Trim(Replace(Request.Form("nick"), "'", ""))
    strpsw = Trim(Replace(Request.Form("psw"), "'", ""))
    
    if strnick <> "" AND strpsw <> "" then
    dim objConn, objRs, strSql
    
    objConn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="& server.MapPath("../../mdb-database/aliwork_shop.mdb")
    set objConn = Server.CreateObject("ADODB.Connection")
    set objRs = Server.CreateObject("ADODB.RecordSet")
    strSql = "SELECT * FROM utenti WHERE nick='"& strnick &"' AND psw='"& strpsw &"';"
    objRs.open strSql, objConn, 1, 3
    if not objRs.eof then
    %> 
    Login fallito. Nome utente e/o password sconosciuti.
    <% 
    else
    Session("nick") = objRs("nick")
    Session("psw") = objRs("psw")
    %> 
    Login effettuato con successo.
    <% 
    end if
    
    objRs.close
    objConn.close
    set objRs = nothing
    set objConn = nothing
    else
    %> 
    I dati inseriti non sono corretti... riprovare.
    <% 
    end if
    
    else
    %> 
    <form name="login" action="login.asp" method="post">
    Area riservata
    
    Nick: <input type="text" name="nick">
    
    password: 
    <input name="psw" type="password" id="psw">
    
    
    <input type="hidden" name="inviato" value="si">
    <input type="submit" value="Loggati">
    </form>
    <% 
    end if
    %> 
    
    </body>
    </html>

  2. #2
    Prova così:

    codice:
    <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
    <html>
    <head>
    <title>Un'area riservata con minifloppy.it</title>
    <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
    </head>
    <body>
    <% 
    if Request.Form("inviato") = "si" then
    
    	Dim strnick, strpsw
    	
    	strnick = Trim(Replace(Request.Form("nick"), "'", ""))
    	strpsw = Trim(Replace(Request.Form("psw"), "'", ""))
    	
    	if strnick <> "" AND strpsw <> "" then
    		dim objConn, objRs, strSql
    		
    		objConn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="& server.MapPath("../../mdb-database/aliwork_shop.mdb")
    		set objConn = Server.CreateObject("ADODB.Connection")
    		set objRs = Server.CreateObject("ADODB.RecordSet")
    		strSql = "SELECT * FROM utenti WHERE nick='"& strnick &"' AND psw='"& strpsw &"';"
    		objRs.open strSql, objConn, 1, 3
    		if not objRs.eof then
    			Session("nick") = objRs("nick")
    			Session("psw") = objRs("psw")
    			%> 
    			Login effettuato con successo.
    			<% 
    		else
    			%> 
    			Login fallito. Nome utente e/o password sconosciuti.			<% 
    		end if
    		
    		objRs.close
    		objConn.close
    		set objRs = nothing
    		set objConn = nothing
    	else
    		%> 
    		I dati inseriti non sono corretti... riprovare.
    		<% 
    	end if
    
    else
    	%> 
    	<form name="login" action="login.asp" method="post">
    	Area riservata
    
    	Nick: <input type="text" name="nick">
    
    	password: 
    	<input name="psw" type="password" id="psw">
    	
    
    	<input type="hidden" name="inviato" value="si">
    	<input type="submit" value="Loggati">
    	</form>
    	<% 
    end if
    	%> 
    </body>
    </html>
    Provare paura per un qualcosa che ti possa capitare nel futuro non ti evita quell'evento,ti fa soltanto vivere un presente sbagliato!

  3. #3
    Moderatore di ASP e MS Server L'avatar di Roby_72
    Registrato dal
    Aug 2001
    Messaggi
    19,559
    Queste due righe

    codice:
    objConn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="& server.MapPath("../../mdb-database/aliwork_shop.mdb")
    set objConn = Server.CreateObject("ADODB.Connection")
    le invertirei...

    Roby

  4. #4
    Utente di HTML.it
    Registrato dal
    Dec 2001
    Messaggi
    262
    ho potuto provare solo ora da ieri sera
    funzia alla grande
    tnt grazie Maximum
    tnt grazie Roby_72
    ciao frate

Permessi di invio

  • Non puoi inserire discussioni
  • Non puoi inserire repliche
  • Non puoi inserire allegati
  • Non puoi modificare i tuoi messaggi
  •  
Powered by vBulletin® Version 4.2.1
Copyright © 2025 vBulletin Solutions, Inc. All rights reserved.