Accessi con password

[Dust_79]

Salve gente.
Devo gestire un sito in cui limitare l'accesso a certi dati attraverso un sistema password... a seconda di chi si connette dovrei far vedere certi dati ed altri no (sono previsti 2 tipi di accesso credo).
Ho letto un po' di documentazione sull'accesso tramite password... mi consigliate di inserire UserID e PWD in un DB?
Non dovrebbero esserci piu' di una ventina di utenti che possono accedere tramite password, e i dati non sono di importanza nazionale.

[Syd Barrett]

quali sono le alternative?

[Dust_79]

boh... non ci sono alternative?

[Syd Barrett]

metterli tutti nel codice... ma è "bruttissimo"... usa il database

[Dust_79]

ok
grazie

[ciupaz]

Per quelle dimensioni creati un db Access con Username e Password legati agli utenti.
Ti crei una variabile di sessione (che saranno tante quante sono le "versioni" del sito) e te la porti tra le pagine.
A seconda della variabile alcuni link o caratteristiche saranno abilitate/disabilitate.

[Jc_]

Questo potrebbe esserti utile... nel caso tu voglia anche fare dei log di testo..

'---------------------------------------------------------------
' accessi con database e log di testo
' autore : jc
'----------------------------------------------------------------

Sub validate(obj as object, e as eventargs)

' connessione al database

dim dbconn as new oledbconnection _
("Provider=Microsoft.Jet.OleDb.4.0;" & _
"Data Source=" +Server.MapPath("../auth/pswd.mdb"))

' controllo dei dati inseriti
dim cmd as new oledbdataadapter _
("SELECT * FROM users WHERE username = '" & username.text &"' AND password = '"& password.text &"' ORDER BY memberid", dbconn)

' caricamento in memoeria dei dati

dim dset as dataset
dset = New Dataset()
cmd.fill(dset,"users")

' se l utente ha password ed username corrette

if (dset.tables("users").rows.count=1) then
dbconn.close

' il file log.text registra l'accesso

dim esaminatore as new StreamWriter(Server.MapPath("log.txt"), true)

dim ip
ip = request.UserHostAddress

esaminatore.WriteLine("In data "&date.now()&" ")
esaminatore.WriteLine(" Qualcuno con questo ip : "& IP &" si è loggato con la username : "& username.text &" ed ha effettuato un log-in valido")
esaminatore.WriteLine("")
esaminatore.close

' e lo reindirizza alla giusta pagina
session("name") = username.text
response.redirect("uareok.htm")

'altrimenti
else


dim ip
ip = request.UserHostAddress

' il file tentativi.text registra il tentativo di accesso non autorizzato
dim esaminatore2 as new StreamWriter(Server.MapPath("tentativi.txt"),true)
esaminatore2.WriteLine("In data "&date.now()&" ")
esaminatore2.WriteLine("Qualche utente non autorizzato con questo ip : "& IP &" ")
esaminatore2.WriteLine("Ha cercato di effettuare il login alla pagina di sicurezza introducendo per username il valore : " & username.text & " e come password questo valore : " & password.text & "")
esaminatore2.WriteLine("")
esaminatore2.close
dbconn.close

' e lo reindirizza ad una pagina di default
response.redirect("wrong.htm")


end if

dbconn.close
End Sub

[Dust_79]

siete veramente troppo buoni :quipy:
vi faccio proprio pena mi sa
p.s.grazie!!!

[Jc_]

Originariamente inviato da Dust_79
siete veramente troppo buoni :quipy:
vi faccio proprio pena mi sa
p.s.grazie!!!

figurati.. se hai problemi chiama pure.. qualcuno ti risponderà.. :adhone: