Roby ma neanche se la setto a mano la session senza passare dal login me la tiene
questo è il codice:
login:
codice:
<%
Tag = 0
nomeutente = Request.Form("nomeutente")
password = Request.Form("password")
If nomeutente="" or password="" then
Response.Redirect "errore.asp?TipoErrore=CampiVuoti"
Else
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("/mdb-database/USER.mdb")
sql = "SELECT * FROM utenti"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn, 3, 3
rs.MoveFirst
'response.write nomeutente & " " & rs.fields("utente") & "
" & password & " " & rs.fields("pw")
'response.end()
If (rs.Fields("utente") = nomeutente ) AND (rs.Fields("pw") = password ) Then
Tag = 1
End If
rs.MoveNext
If (rs.Fields("utente")) = nomeutente AND (rs.Fields("pw")) = password Then
Tag = 2
End If
End if
conn.Close
set conn = Nothing
If Tag = 1 OR Tag = 2 Then
If Tag = 1 Then
Session("login") = "sot4sdhff"
'response.Write session("login")
'response.End()
'Session.TimeOut = 1200
Response.Redirect "indice.asp"
End If
If Tag = 2 Then
Session("login") = "spidersotymf"
Session.TimeOut = 1200
Response.Redirect "indice.asp"
End If
Else
Response.Redirect "errore.asp?TipoErrore=DatiErrati"
End If
%>
e questo lo script che controlla se la login è presente in ogni pagina riservata
codice:
If Session("login") <> "sot4sdhff" then
If Session("login") <> "spidersotymf" Then
Response.Redirect "errore.asp?TipoErrore=Sicurezza"
End If
End If
i request.form funzionano, nella pagina il tag si setta o a 1 o a 2 se inserisco correttamente nome utente e password, la session la crea sempre, ma quando la passo all'altra pagina si perde