[ASP] Urgentissimo!! Dov'è l'errore?? Aiuto!!

Cecco BS · 25-06-2003, 11:47

Sto facendo un modulo per l'accesso ad una pagina. Nel modulo si deve poter inserire USERNAME, PASSWORD e CODICE CLIENTE. L'accesso deve venir permesso SOLO se username, codice cliente e password corrispondono ai dati presi dalla tabella SQL.

La pagina che ho fatto io permette di entrare anche digitando uno solo dei tre dati e, paradossalmente, anche senza dighitare nulla (si viene indirizzati ai dati dell'utente che ha codice cliente uguale a 0, cioè il primo).

Ecco il codice ASP:

logincheck.asp, dove si effettua il login e viene restituito un testo di risposta. E' la pagina di risposta di un modulo, come si capisce dalle prime righe dello script che richiamano i dati dal modulo stesso.

<%
Dim Connection, RS,login,password,codclie
login=Request.Form("login")
password=Request.Form("password")
codclie=Request.Form("codclie")

set conn1=Server.CreateObject("ADODB.Connection")
conn1.Open "Provider=SQLOLEDB;SERVER=SERVER1;DATABASE=xyz;UID=xxx;PWD=xxx"
Set RS = conn1.Execute("SELECT * FROM T_ANACLI WHERE cod_cli='"&codclie&"'")

if not RS.EOF Then
if Rs("password")=password AND ("codclie")=codclie then
Session("login")=Rs("login")
Session.Timeout=10
end if
end if
%>
<html>
<head>
<title>GESTIONE ARCHIVI DAL WEB</title>
</head>
<body>
GESTIONE ARCHIVI DAL WEB
Cliente: <%=Rs("COD_CLI")%>, <%=Rs("NOME")%>
</body>
</html>

Help me

cionci · 25-06-2003, 12:27

<%
Dim Connection, RS,login,password,codclie
login=Request.Form("login")
password=Request.Form("password")
codclie=Request.Form("codclie")

set conn1=Server.CreateObject("ADODB.Connection")
conn1.Open "Provider=SQLOLEDB;SERVER=SERVER1;DATABASE=xyz;UID=xxx;PWD=xxx"
Set RS = conn1.Execute("SELECT * FROM T_ANACLI WHERE cod_cli='"&codclie&"'")

if not RS.EOF Then
if Rs("password")=password AND ("codclie")=codclie then
Session("login")=Rs("login")
Session.Timeout=10
%>
<html>
<head>
<title>GESTIONE ARCHIVI DAL WEB</title>
</head>
<body>
GESTIONE ARCHIVI DAL WEB
Cliente: <%=Rs("COD_CLI")%>, <%=Rs("NOME")%>
</body>
</html>
<%
end if
end if
%>

Cecco BS · 25-06-2003, 17:41

modificando in questo modo il codice come pagina di risposta viene visualizzata una pagina totalmente bianca!!

cionci · 25-06-2003, 17:43

Certo...quando sbagli password e username...

cionci · 25-06-2003, 17:48

Allora così ti va bene ?

Codice:

&lt;% 
Dim Connection, RS,login,password,codclie 
login=Request.Form(&quot;login&quot;) 
password=Request.Form(&quot;password&quot;) 
codclie=Request.Form(&quot;codclie&quot;) 

set conn1=Server.CreateObject(&quot;ADODB.Connection&quot;) 
conn1.Open &quot;Provider=SQLOLEDB;SERVER=SERVER1;DATABASE=xyz;UID=xxx;PWD=xxx&quot; 
Set RS = conn1.Execute(&quot;SELECT * FROM T_ANACLI WHERE cod_cli='&quot;&amp;codclie&amp;&quot;'&quot;) 
&lt;%
&lt;html&gt; 
&lt;head&gt; 
&lt;title&gt;GESTIONE ARCHIVI DAL WEB&lt;/title&gt; 
&lt;/head&gt; 
&lt;body&gt; 
&lt;p align=&quot;center&quot;&gt;&lt;b&gt;GESTIONE ARCHIVI DAL WEB&lt;/b&gt;&lt;/p&gt; 
%&gt;
if not RS.EOF Then 
if Rs(&quot;password&quot;)=password AND (&quot;codclie&quot;)=codclie then 
Session(&quot;login&quot;)=Rs(&quot;login&quot;) 
Session.Timeout=10 
%&gt; 
&lt;p align=&quot;left&quot;&gt;Cliente: &lt;%=Rs(&quot;COD_CLI&quot;)%&gt;, &lt;%=Rs(&quot;NOME&quot;)%&gt;&lt;/p&gt; 
&lt;%
Else
%&gt; 
&lt;p align=&quot;center&quot;&gt;Errore di login !!!&lt;/p&gt; 
&lt;%
end if
Else
%&gt; 
&lt;p align=&quot;center&quot;&gt;Errore di login !!!&lt;/p&gt; 
&lt;%
end if 
%&gt;
&lt;/body&gt; 
&lt;/html&gt;

Se poi ti devo fare ancora dell'altro codice dimmelo :o

Cecco BS · 25-06-2003, 17:49

no, anche quando metto password username e codice corretti!!

Cecco BS · 25-06-2003, 17:53

adesso sono a casa e non ho il server sottomano, domani mattina lo provo e poi ti faccio sapere...

25-06-2003, 11:47	#1
Cecco BS Senior Member Iscritto dal: Mar 2003 Messaggi: 2155	[ASP] Urgentissimo!! Dov'è l'errore?? Aiuto!! Sto facendo un modulo per l'accesso ad una pagina. Nel modulo si deve poter inserire USERNAME, PASSWORD e CODICE CLIENTE. L'accesso deve venir permesso SOLO se username, codice cliente e password corrispondono ai dati presi dalla tabella SQL. La pagina che ho fatto io permette di entrare anche digitando uno solo dei tre dati e, paradossalmente, anche senza dighitare nulla (si viene indirizzati ai dati dell'utente che ha codice cliente uguale a 0, cioè il primo). Ecco il codice ASP: logincheck.asp, dove si effettua il login e viene restituito un testo di risposta. E' la pagina di risposta di un modulo, come si capisce dalle prime righe dello script che richiamano i dati dal modulo stesso. <% Dim Connection, RS,login,password,codclie login=Request.Form("login") password=Request.Form("password") codclie=Request.Form("codclie") set conn1=Server.CreateObject("ADODB.Connection") conn1.Open "Provider=SQLOLEDB;SERVER=SERVER1;DATABASE=xyz;UID=xxx;PWD=xxx" Set RS = conn1.Execute("SELECT * FROM T_ANACLI WHERE cod_cli='"&codclie&"'") if not RS.EOF Then if Rs("password")=password AND ("codclie")=codclie then Session("login")=Rs("login") Session.Timeout=10 end if end if %> <html> <head> <title>GESTIONE ARCHIVI DAL WEB</title> </head> <body> <p align="center"><b>GESTIONE ARCHIVI DAL WEB</b></p> <p align="left">Cliente: <%=Rs("COD_CLI")%>, <%=Rs("NOME")%></p> </body> </html> Help me __________________ Asus P4C800 ► Northwood-C 2,8 GHz @ 3,4 GHz ► Thermalright SP94

25-06-2003, 12:27	#2
cionci Senior Member Iscritto dal: Apr 2000 Città: Vicino a Montecatini(Pistoia) Moto:Kawasaki Ninja ZX-9R Scudetti: 29 Messaggi: 53971	Re: [ASP] Urgentissimo!! Dov'è l'errore?? Aiuto!! <% Dim Connection, RS,login,password,codclie login=Request.Form("login") password=Request.Form("password") codclie=Request.Form("codclie") set conn1=Server.CreateObject("ADODB.Connection") conn1.Open "Provider=SQLOLEDB;SERVER=SERVER1;DATABASE=xyz;UID=xxx;PWD=xxx" Set RS = conn1.Execute("SELECT * FROM T_ANACLI WHERE cod_cli='"&codclie&"'") if not RS.EOF Then if Rs("password")=password AND ("codclie")=codclie then Session("login")=Rs("login") Session.Timeout=10 %> <html> <head> <title>GESTIONE ARCHIVI DAL WEB</title> </head> <body> <p align="center"><b>GESTIONE ARCHIVI DAL WEB</b></p> <p align="left">Cliente: <%=Rs("COD_CLI")%>, <%=Rs("NOME")%></p> </body> </html> <% end if end if %>

25-06-2003, 17:41	#3
Cecco BS Senior Member Iscritto dal: Mar 2003 Messaggi: 2155	modificando in questo modo il codice come pagina di risposta viene visualizzata una pagina totalmente bianca!! __________________ Asus P4C800 ► Northwood-C 2,8 GHz @ 3,4 GHz ► Thermalright SP94

25-06-2003, 17:49	#6
Cecco BS Senior Member Iscritto dal: Mar 2003 Messaggi: 2155	no, anche quando metto password username e codice corretti!! __________________ Asus P4C800 ► Northwood-C 2,8 GHz @ 3,4 GHz ► Thermalright SP94

25-06-2003, 17:53	#7
Cecco BS Senior Member Iscritto dal: Mar 2003 Messaggi: 2155	adesso sono a casa e non ho il server sottomano, domani mattina lo provo e poi ti faccio sapere... __________________ Asus P4C800 ► Northwood-C 2,8 GHz @ 3,4 GHz ► Thermalright SP94

25-06-2003, 17:43	#4
cionci Senior Member Iscritto dal: Apr 2000 Città: Vicino a Montecatini(Pistoia) Moto:Kawasaki Ninja ZX-9R Scudetti: 29 Messaggi: 53971	Certo...quando sbagli password e username...

Strumenti
Mostra una versione stampabile Invia questa pagina per email