tabella_utenti
idUtente - contatore
username - testo
password - testo
tabella_dati
idDato - contatore
indirizzo - testo
telefono - testo
idUtente - numerico
Esempio di tabelle popolate
tabella_utenti
idUtente - username - password
1 - pippo - 123123
2 - topolino - 999111
3 - minnie - abcabc
tabella_dati
idDato - indirizzo - telefono - idUtente
1 - via col vento 33 - 0123456 - 1
2 - via le dita dal naso 55 - 0999665 - 3
3 - piazza la palla 1 - 0876543 - 2
4 - viale dei giardini 3 - 0234898 - 2
5 - largo che passamo noi 99 - 066666332 - 1
In fase di login se l'utente è riconosciuto crei la session("userID")
formlogin.html
codice:
<form method="post" action="login.asp">
username <input type="text" name="username" />
password <input type="password" name="password" />
<input type="submit" value="vai" />
</form>
login.asp
codice:
<%
loginValido = false
variabileUsername = trim(request.form("username"))
variabilePassword = trim(request.form("password"))
if len(variabileUsername) > 0 and len(variabilePassword) > 0 then
variabileUsername = replace(variabileUsername,"'","''")
variabilePassword = replace(variabilePassword,"'","''")
set conn = server.createObject("ADODB.Connection")
conn.open stringaConnessione
sql = "SELECT * FROM tabella_utenti WHERE [username] = '" & variabileUsername & "' AND [password] = '" & variabilePassword & "'"
set rs = conn.execute(sql)
if not rs.eof then
loginValido = true
session("userID") = rs("idUtente")
session("username") = rs("username")
session("loginValido") = loginValido
end if
rs.close
set rs = nothing
conn.close
set conn = nothing
else
response.write "I campi sono obbligatori"
end if
if loginValido then
response.redirect "visualizzadati.asp"
else
response.write "Login non valido"
end if
%>
visualizzadati.asp
codice:
<%
if not session("loginValido") = true then response.redirect "formlogin.html"
idUtente = session("userID")
if len(idUtente) > 0 and isNumeric(idUtente) then
idUtente = cLng(idUtente)
else
response.redirect "formlogin.html"
end if
set conn = server.createObject("ADODB.Connection")
conn.open stringaConnessione
sql = "SELECT * FROM tabella_dati WHERE idUtente = " & idUtente
set rs = conn.execute(sql)
response.write "Benvenuto " & session("username") & "
"
if not rs.eof then
do until rs.eof
response.write rs("indirizzo") & " - " & rs("telefono") & "
"
rs.moveNext
loop
else
response.write "Non ci sono dati da visualizzare"
end if
rs.close
set rs = nothing
conn.close
set conn = nothing
%>