Aiutatemi. Sto Impazzendo

[marnevi]

Premetto che sono novello nella realizzazione di siti internet. Utilizzo programmi come FrontPage, Dreamweaver oppure Nvu. In molti siti internet vi sarà capitato di notare la classica "AREA RISERVATA", una sezione il cui accesso è consentito ai soli utenti registrati, possessori di un NomeUtente e di una Password che permette loro di accedere e interagire con le pagine presenti in tale sezione. Come creare questa area riservata? Mi sono già confrontato con l'articolo che gira su Internet all'indirizzo "http://www.aspcode.it/articoli/articoli.asp?act1=show_art&idx=14" di Paolo Capitani, ma non funziona. Cioè, una volta pubblicato su Internet l'operazione si ferma al file login.asp e non mi manda alla pagina riservata "riservato.asp". Esce solo la pagina bianca che è quella del file login.asp. AIUTATEMI.

[marnevi]

Per favore, qualcuno mi risponda in maniera esauriente. Grazie.

[16jump25]

Per prima cosa una domana : sei sicuro che sul tuo browser siano abilitati i cookies???

Poi (qualora lo fossero) potresti postare il codice di login.asp???

[Roby_72]

Non guasterebbe inoltre un'attenta lettura del regolamento.

Roby

[asva]

1)crea un database dove andrai a inserire i parametri di login
nome
cognome
user
pass


2) crea il form per l'inserimento di user e pass e li invii per method post ad una pagina verifica.asp



3)nella pagina verifica.asp

recuperi user e pass
ti colleghi al databese e verifichi se nel db c'è una corrispondenza con user e pass inseriti

ad esempio:

user_collaboratore=request.form("user_collaborator e")
password_collaboratore=request.form("password_coll aboratore")
strSql="Select * FROM collaboratori WHERE password_collaboratore = '"&password_collaboratore&"'and user_collaboratore='"&user_collaboratore&"'"

%>
<%
set rs=server.CreateObject("ADODB.recordset")
set rs=cn.Execute(strSql)
if rs.eof then %>
'.....vai a password errata
<%else %>
<%

id_collaboratori=RS("id_collaboratori")
session("operatori")= true
response.redirect "../area_collaboratori/pannello_collaboratori.asp?cod="&id_collaboratori
%>
<%end if%>

<%end if%>
<%
rs.close
cn.Close
%>


con il controllo apri una variabile di sessione (in questo caso operatori)

che ad ogni pagina della sessione controlli

if not session("operatori") then
response.redirect "password.asp"
else
............pagina autorizzata
end if

in questo caso la variabile di sessione è stata attivata come true o false ma puoi assegnare il valore che vuoi.....

[marnevi]

<%
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("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
Session("Autenticato") = "OK"
Response.Redirect("riservato.asp")
else
Response.Redirect("index.asp")
end if
%>

[Roby_72]

Te ne da qualcuno?

Roby

[marnevi]

non ho afferrato roby

[Santino83_02]

Originariamente inviato da marnevi
non ho afferrato roby

roby chiede: ti da qualche errore?

[Roby_72]

Chiedi a noi se c'è un errore?
Devi dirci tu se ti da errore e nel caso quale oppure dirci cosa secondo te dovrebbe fare ed in realtà non fa.

Roby