Aiuto!!!

[diego06]

Ciao a tutti...
ho un problema con asp che non riesco a risolvere...:dipser: :crying:
Vorrei riuscire a vedere (nella pagina di amministrazione utenti) la data e l'ora dell'ultimo accesso degli utenti registrati al sito... come si fa? premetto che sono abbastanza alla bascon le nozioni; vi sarei grato se riusciste a spiegarmelo nel modo più semplice possibile !!!
Grazie
Diego

 

[diego06]

Allora proprio nessuno può aiutarmi....
scrivetemi qualcosa

 

[daviduccio]

all'accesso invia al database la data usando Now() che ti scrive la data e l'ora.

 

[diego06]

ciao,
esattamente come dovrei fare?
mi scrivi proprio la riga dello script x favore (non è che me ne intendo molto!!)
La devo mettere nella pagina di validazione dell'utente (x intenderci quella che è collegata alla pagina di login)?
Grazie mille x l'aiuto!!

 

[metalgemini]

ciao,
esattamente come dovrei fare?
mi scrivi proprio la riga dello script x favore (non è che me ne intendo molto!!)
La devo mettere nella pagina di validazione dell'utente (x intenderci quella che è collegata alla pagina di login)?
Grazie mille x l'aiuto!!

Gli script x il login degli utenti non sono mica tutti uguali
al momento dell'autenticazione dell'utente inserisci in un campo del database la funzione now() es.:

sql = "select * from utenti where username = '"&variabile&"' and password = '"&variabile&"'"
if Rs.eof then
response.write"Dati errati"
else
'cominci la sessione da utente autenticato, riesegui una query di aggiornamento dati e fai...
Rs("ultimo_accesso") = Now()
end if

Se non capisci una mazza di asp sarà dura Facci sapere ciao

 

[diego06]

Gli script x il login degli utenti non sono mica tutti uguali
al momento dell'autenticazione dell'utente inserisci in un campo del database la funzione now() es.:

Se non capisci una mazza di asp sarà dura Facci sapere ciao

No no... qualcosa capisco dai !!!

Il problema è che anche se aggiungo il campo che hai detto ( Rs("ultimoacesso") = Now() ) il campo del mio database (ovviamente ho cambiato il nome!!) non si aggiorna (anzi per la precisione rimane vuoto!) e non riesco a capire il perchè!???
Grazie
Ciao

 

[metalgemini]

No no... qualcosa capisco dai !!!

Il problema è che anche se aggiungo il campo che hai detto ( Rs("ultimoacesso") = Now() ) il campo del mio database (ovviamente ho cambiato il nome!!) non si aggiorna (anzi per la precisione rimane vuoto!) e non riesco a capire il perchè!???
Grazie
Ciao

Ma scusa posta lo script dell'autenticazione no? Cosi sarà un po' difficile che ti aiuto

 

[diego06]

Ma scusa posta lo script dell'autenticazione no? Cosi sarà un po' difficile che ti aiuto

OK!!!
Allora:

<%
Username = Replace(Request.Form("username"), "'", "''")
Password = Replace(Request.Form("password"), "'", "''")

IF Username <> "" and Password <> "" then
url_DB = "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath("/mdb-database/database.mdb")
Set Conn = Server.CreateObject("ADODB.Connection")
conn.Open url_DB
Set RecSet = Server.CreateObject("ADODB.Recordset")
SQL = "SELECT * FROM Utenti where username = '" & username &"' and password = '" & password & "' and attivo = 1"
RecSet.Open SQL, Conn, adOpenStatic, adLockOptimistic
IF Not RecSet.Eof Then
Session("Loggato") = True
Session("Username") = Username
Else
Session("Loggato") = False
End IF
RecSet.Close
Set RecSet = Nothing

Conn.Close
Set Conn = Nothing
IF Session("Loggato") = True then
Response.Redirect "protetta_home.asp"
Else
%>
<hr>
<p align="center"><b><font face="Verdana" size="2">Username/Password non corretti!</font></b></p>
<hr>
<%
End IF

Else
%>
<hr>
<p align="center"><b><font face="Verdana" size="2">Compila correttamente tutti i campi!</font></b></p>
<hr>
<%
End IF
%>

Spero potrai aiutarmi....
(comunque non commentato lo script e ho tolto gli spazi per occupare meno spazio )
Grazie per l'aiuto intanto!!!

 

[metalgemini]

Tieni copialo e incollalo pari pari...non l'ho testato ovviamente.
Ho messo in neretto le parti modificate e commentato le parti da omettere.

<%
Username = Replace(Request.Form("username"), "'", "''")
Password = Replace(Request.Form("password"), "'", "''")

IF Username <> "" and Password <> "" then
url_DB = "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath("/mdb-database/database.mdb")
Set Conn = Server.CreateObject("ADODB.Connection")
conn.Open url_DB
Set RecSet = Server.CreateObject("ADODB.Recordset")
SQL = "SELECT * FROM Utenti where username = '" & username &"' and password = '" & password & "' and attivo = 1"
RecSet.Open SQL, Conn, adOpenStatic, adLockOptimistic
IF Not RecSet.Eof Then
Session("Loggato") = True
Session("Username") = Username
Else
Session("Loggato") = False
End IF
RecSet.Close
Set RecSet = Nothing

'Conn.Close
'Set Conn = Nothing
IF Session("Loggato") = True then
'cambio il valore nel campo del database
'ovvamente devi aggiungerlo tu il campo "ultima_visita" di tipo data e ora
Dim RsUltima, SqlUltima
Set RsUltima = Server.CreateObject("ADODB.Recordset")
RsUltima.ActiveConnection = Conn
RsUltima.Open "SELECT * FROM Utenti where username = '" & username&"'", ,1,3
RsUltima("ultima_visita") = Now()
RsUltima.Update
Conn.Close
Set Conn = Nothing

Response.Redirect "protetta_home.asp"
Else
%>
<hr>
<p align="center"><b><font face="Verdana" size="2">Username/Password non corretti!</font></b></p>
<hr>
<%
End IF

Else
%>
<hr>
<p align="center"><b><font face="Verdana" size="2">Compila correttamente tutti i campi!</font></b></p>
<hr>
<%
End IF
%>

Fammi sapere.

Ps: ovviamente poi devi visualizzare nella pagina con la lista degli utenti anke il campo "ultima_visita" postami il codice della lista semmai

 

[diego06]

Grazie e scusa il ritardo (non avevo la connessione internet)...
In questi giorni provo e poi ti farò sapere!

Grazie ancora

 

[metalgemini]

Grazie e scusa il ritardo (non avevo la connessione internet)...
In questi giorni provo e poi ti farò sapere!

Grazie ancora

ok in bocca al lupo