login - sbaglia al primo tentativo

**velectro** · 23-02-2006, 18:02

Ciao a Tutti,

vi premetto che ho riscontrato un problema veramente strano.
Ho ralizzato un pagina asp di login che utilizza i dati (user name e password su un db).
Se apri questa pagina ti compare un form che ti chiede User name e Password, all'invio questa patina richiama la pagina codice.asp che contiene il codice che legge da un db access se la User e Passw sono esatti e in tal caso setta una variabile ad OK.
La cosa strana è che da quando l'ho messo in rete, al primo tentativo anche digitando User e Passw esatte lui ti dice che hai sbagliato, se non chiudi il browser, al secondo tentativo con gli stessi dati ti logga.
Se invece chiudi il browser ogni volta che ti dice che hai sbagliato non entri più.
Mentre da un altro PC mi fà entrare tranquillamente al primo tentativo. Vi assicuro che ho provato davvero tante volte, quindi sono sicuro di quello che dico.

Cosa può essere? Per me è veramente strano.

Grazie

**Kava** · 23-02-2006, 20:39

posta il codice della pagina

**velectro** · 24-02-2006, 10:05

Ecco il codice:

codice:

<%
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")
on error resume next
cn.Provider= "Microsoft Jet 4.0 OLE DB Provider"
cn.Open "\\ACCESS1\Db$\t3lab\wwForum.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("arhomePD.asp")
else
  Response.Redirect("nonregistratoPD.asp")
end if
%>

Secondo te potrebbe dipendere dal db?

**Kava** · 24-02-2006, 11:49

Dov'è questo codice? Posta anche la pagina che lo contiene e la pagina con il modulo.

**velectro** · 02-03-2006, 11:05

Scusa il ritardo, ma non sono stato in ufficio, questo è il codice della pagina che contiene il form:

codice:

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">

<HTML>
<HEAD>
<TITLE>T3LAB - Home page</TITLE>
<META http-equiv=Content-Type content="text/html; charset=windows-1252">
<META content="MSHTML 5.50.4134.600"  name=GENERATOR>


</HEAD>

<BODY bgcolor=#5653DC leftMargin=0 topMargin=0 rightMargin=0 marginwidth="0" marginheight="0" marginbottom="0">


<! Tabella inferiore> 
<! ho modificato height da 87% a 100%, solo in questa home, se dà problemi riportarlo a 87%>
<table width="100%" height="100%"  cellspacing="0" cellpadding="0" align="center" border="0" bordercolor=#80FF00 >

<! Riga Rossa>
<script>
<!--
	if (parseInt(navigator.appVersion) > 3)
		{
		if ( screen.width < 1100 )
			{document.writeln('<td width="1%"  background="cut_Homepage/BordoSin1024.jpg">');}
			else
			{document.writeln('<td width="1%"  background="cut_Homepage/BordoSin1280.jpg">');}
		}
		else
		{document.writeln('<td width="1%"  background="cut_Homepage/BordoSin1024.jpg">');}
//-->
</script>
</td>

<td bgcolor=#C8CDE3  valign=top  width="70%" height="100%" border="0"  >

<! Tabelle interna alla cella>
<table width="100%" height="80%"  border="0" bordercolor=#80FF00 cellspacing="50" cellpadding="100" >
<tr>
	<td valign="top">

<! Form raccolta dati per l'accesso all'area riservata ------------------------------------------->
<FORM ACTION="logincodicePD.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="ACCEDI">
      </TD>
    </TR>
  </TABLE>
</FORM>
<div>
<font size="2" face="Arial">
Se non sei un utente registrato compila il nostro modulo di registrazione.


 Registrati
 </font>
 </div>
<! ------------------------------------------------------------------------------------------------>

</td>
</tr>
</table>

<table width="100%" height="20%" border="0" bordercolor=#80FF00 cellspacing="0" cellpadding="0" halign="bottom">
<tr>
	<td>
<! Indirizzo al fondo della pagina>
<font size="1" face="Trebuchet MS" color=#C45069 >
<div align="center">












------------------------------------------------------------------------------------------------------
      
</div></font>
</tr>
</td>



</table>

<! Riga Rossa>
<td width="1%"  background="cut_Homepage/BordoDes1280.jpg">
</td>

</td>
 <td align=right width="24%" align="left" > 
 
 <! tabella per rotazione immagini>
<table width="40%" border="0" bordercolor=#80FF00 cellspacing="0" cellpadding="0" align="center" height=100% >

<tr>
<tr>
[img]cut_Homepage/Copia di shim.gif[/img]
	</tr>
	<td align=center valign="top">
	
<! Sript per la rotazione dei banner " rot.js " --------------------------------------------------------------------------------------------------------------->	
<script language="JavaScript1.2" src="rot.js">

</script>

<ilayer width=&{sliderwidth}; height=&{sliderheight}; name="ns_slider01" visibility=hide>
<layer name="ns_slider02" onMouseover="slidespeed=0;" onMouseout="slidespeed=copyspeed">  </layer>
</ilayer>
<! --------------------------------------------------------------------------------------------------------------------------------------------------------------------------->
</td>
</tr>
</table>

     
</td>

</tr>
</table>


</BODY>

</HTML>

MENTRE QUELLO CHE SEGUE E' IL CODICE COMPLETO DELLA PAGINA CHE ELABORA I DATI

codice:

<%
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")
on error resume next
cn.Provider= "Microsoft Jet 4.0 OLE DB Provider"
cn.Open "\\ACCESS1\Db$\t3lab\wwForum.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("arhomePD.asp")
else
  Response.Redirect("nonregistratoPD.asp")
end if
%>

Grazie

Discussione: login - sbaglia al primo tentativo

Strumenti discussione

Ricerca discussione

Visualizza

login - sbaglia al primo tentativo

Permessi di invio