salve,
ho creato un'area riservata nel mio sito
gestita d aun db di access chiamato "Utenti.mdb" ed all'internoi campi "nomeutente" e "password"
ho poi creato il seguente script
<%
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("sec.asp")
end if
%>
cosi' facendo sono riuscito ad inirizzare chiunque ne abbia l'accesso ad una pagina riservata.
Adesso avrei bisogno di cambiare il codice per indirizzare ogni utente verso una sua pagina ma non so come fare
esiste un'anima pia' che mi scriva le righe da cambiare,,,se non addirittura i codice per intero^????
vi ringrazio anticipatamente
Rispondi quotando
