Jag har inte tillgång till Access, men jag kan tänka mig att man kan göra så här (har testat principen i SQL Server):
1. Skapa en tabell för sessionerna
2. Sätt en kolumn i tabellen till Räknare, med datalängden Replikerings-ID
3. Gör kolumnen till primärnyckel
4. De övriga kolumnerna är UserID (tal), CreatedTS och LastAccessedTS (datum + tid)
Jag har aldrig provat detta i Access, men i SQL Server kör man med uniqueidentifier och funktionen newid() för att göra motsvarande. Informationen fann jag på http://www.devx.com/dbzone/Article/10167/1954?pf=true
4. Koda om din inloggning så att den skapar nya "sessioner"
'Vi förutsätter att du redan gjort själva inloggningen och därigenom fått ut användarens UserID
strSQL="INSERT INTO Sessions (UserID,CreatedTS,LastAccessed) VALUES(" & UserID & ",now(),now())"
objConn.execute strSQL
'Fulfix eftersom det inte verkar finnas någon funktion i Access som kan skapa GUID utan att lägga till rader
strSQL="SELECT TOP 1 GUID FROM Sessions WHERE UserID=1 ORDER BY CreatedTS DESC"
set rs=objConn.Execute(strSQL)
if not rs.eof then
'Grattis, ett nytt sessions-ID
strSessionID=cstr(rs(0))
Response.Cookies("GUID")=strSessionID
end if
5. Lägg in en include på varje sida, där du hämtar ut din vanliga UserID mha kakan, och framför allt, uppdaterar LastAccessedTS
Dim intAff, strGUID
strGUID=Request.Cookies("GUID")
if strGUID<>"" then
strSQL="UPDATE Sessions SET LastAccessed=now() WHERE GUID='" & replace(strGUID,"'","''") & "'"
objConn.execute strSQL, intAff
if Session("UserID")="" then 'Onödigt att komma om ASP-sessionen fortfarande lever
if intAff=1 then 'Det blev tydligen en träff på updaten, så vi går vidare
strSQL="SELECT UserID FROM Sessions WHERE GUID='" & replace(strGUID,"'","''") & "'"
set rs=objConn.Execute(strSQL)
if not rs.eof then
Session("UserID")=cint(rs(0))
else
'Borde inte kunna hända
end if
else
'Det fanns ingen session. Gör något åt saken.
end if
end if
else
'Tydligen inte inloggad, eller utan kakor
end if
Dessutom måste man lägga till kod som tar bort gamla sessioner (genom att kolla LastAccessed).
I exemplet har jag använt ASP-sessions för att lagra UserID, men i princip skulle du kunna använda en vanlig globalt dimmad variabel för att hålla UserID i och i så fall stänga av sessions helt (enablesessionstate=false). Är det mer värden än UserID som är intressanta så kan du hämta ut dem i samband med "SELECT UserID"-sökningen ovan (joina ihop med de tabeller du behöver)
