Area protetta

[ISE]

Ho fatto un milione di prove...ma come mi hai suggerito tu non funziona...
Come errore mi dice che la pagina cercata è inesistente!!!

[Roby_72]

Vediamo lo script.

Roby

[ISE]

1)
Nella prima pagina index.asp ho inserito il form.


2)
Nella seconda pagina login.asp ho messo questo:
<%
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")
cn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&Server.MapPath("/mdb-database/utenti.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

if nome_utente="XXX" and password="AAAA" then
Session("Autenticato") = "XXX"
response.redirect("pricipale.asp")
elseif nome_utente="WWWW" and password="RRR" then
Session("Autenticato") = "WWWW"
response.redirect("secondario.asp")
elseif nome_utente="LLLL" and password="OOO" then
Session("Autenticato") = "LLLL"
response.redirect("miapagina.asp")
else
Response.Redirect("index.asp")
end if

%>



3)
Mentre nelle pagine che dovrebbero riservate ho inserito questo:

<%
if Session("Autenticato")<>"...... " then
Response.Redirect("index.asp")
end if
%>
Al posto dei puntini metto Session("Autenticato") = "LLLL "


Perchè non funziona?

[Roby_72]

Innazitutto questa deve essere così:

if autenticato = true then 

if nome_utente="XXX" then 
Session("Autenticato") = "XXX" 
response.redirect("pricipale.asp") 
elseif nome_utente="WWWW" then 
Session("Autenticato") = "WWWW" 
response.redirect("secondario.asp") 
elseif nome_utente="LLLL" then 
Session("Autenticato") = "LLLL" 
response.redirect("miapagina.asp") 
else 
Response.Redirect("index.asp") 
end if 

end if

Non serve il controllo password. Occhio che ho aggiunto un end if alla fine.

Nell'altra pagina, ad esempio "principale.asp":

<% 
if Session("Autenticato")<>"XXX" then 
Response.Redirect("index.asp") 
end if 
%>

Roby

[ISE]

Provo e ti faccio sapere...

[ISE]

Guarda cosa succede..si ferma alla pagina login.asp

LINK

Se mi dai la mail ti mando i file così li provi tu...

Login: prova
Pass: uno

Login: pippo
Pass: due

Login: gatto
Pass: tre

[Roby_72]

user e password?

Roby

[ISE]

Login: prova
Pass: uno

Login: pippo
Pass: due

Login: gatto
Pass: tre

[Roby_72]

Nel mio script la pagina login.asp non esiste... come fa ad andarci???

Roby

[ISE]

login.asp è la pagina dove c'è il 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")
cn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&Server.MapPath("/mdb-database/utenti.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

if nome_utente="prova" then
Session("Autenticato") = "uno"
response.redirect("admin.asp")
elseif nome_utente="pippo" then
Session("Autenticato") = "due"
response.redirect("secondaria.asp")
elseif nome_utente="gatto" then
Session("Autenticato") = "tre"
response.redirect("terza.asp")
else
Response.Redirect("index.asp")
end if

end if

%>

Alla pagina login ci si arriva dal form su index.asp, poi login dovrebbe effettuare il controllo e rimandare alle pagine...