Originariamente inviato da vincenza
ora ho un solo problema ... Session("user") ... che ci metto?
no, perché la session degli utenti io la inizializzavo da lettura del db dopo l'immissione della pwd ... ma nel global.asa posso metterci connessioni al db per recuperare il dato necessario?
Ceeeeerto che puoi (prendilo come esempio da personalizzare...):
codice:
<script LANGUAGE="VBScript" RUNAT="Server">
Sub Application_OnStart
strConn = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("/mdb/database.mdb")
application("users") = 0
Application("dbconn") = strConn
application.unlock
End Sub
Sub Application_OnEnd
End Sub
Sub Session_OnStart
Session("start") = Now
session.timeout = 1
set objconnvisite=Server.createobject("ADODB.Connection")
objconnvisite.ConnectionString = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" &Server.mappath("/mdb/db.mdb")
Set objrsvisite = Server.CreateObject("ADODB.Recordset")
objconnvisite.Open
oggi=date()
ipvisit=request.servervariables("remote_addr")
'SQL quando data=oggi e l'ip è nuovo
strSQL="SELECT * FROM tbl_sessioni WHERE datepart('d',visitdate)="&datepart("d",oggi)&" AND datepart('m',visitdate)="&datepart("m",oggi)&" AND datepart('yyyy',visitdate)="&datepart("yyyy",oggi)&" AND visitorIP='"&ipvisit&"'"
objrsvisite.Open strSQL, objconnvisite, 3, 3
if (objrsvisite.EOF OR objrsvisite.BOF) then
'prima sessione odierna dell'ip ipvisit
objrsvisite.addnew
objrsvisite("visitdate")=oggi
objrsvisite("visitorip")=ipvisit
end if
objrsvisite("visitorcount")=objrsvisite("visitorcount")+1
objrsvisite.update
objrsvisite.Close
Set objrsvisite = Nothing
objconnvisite.Close
Set objconnvisite = Nothing
application.lock
application("users")=cint(application("users"))+1
application.unlock
End Sub
Sub Session_OnEnd
vecchio = ""
application.lock
vecchio = Session("utente") & "#^#" & session("id")&"|"
if instr(mid(application("utente"), instr(application("utente"), "#^#")+3), "#^#") > 0 then
Application("Utente") = replace(Application("Utente"), vecchio, "")
else
Application("Utente") = ""
end if
application("users")=cint(application("users"))-1
Application.UnLock
End Sub
</script>