Show | online Tungse at 00-9-3 02:35:55 in: ASP zone
Global.asa put it in your root directory.
<object runat= "Server" scope= "Application"
Id= "Rstactiveusers" progid= "ADODB. Recordset ">
</object>
<script language= "VBScript" runat= "Server" >
' The ' the ' the ' the ' the ' should notice is the top line.
' It creates an application scoped Recordset object
' Named Rstactiveusers ' I ' ll use the to store all
' Our user information.
'
' Note:i ' ve wrapped it for readability
Sub Application_OnStart ()
' Selected constants from Adovbs.inc
Const Adinteger = 3
Const adVarChar = 200
Const addate = 7
' Here I set the up in memory active user recordset
' By adding the fields I want to it and defining
' Their data types.
RstActiveUsers.Fields.Append "id", adinteger
RstActiveUsers.Fields.Append "IP", adVarChar, 15
RstActiveUsers.Fields.Append "Browser", adVarChar, 255
RstActiveUsers.Fields.Append "Started", addate
' Next I open our recordsets so ' we can use it.
' That's basically gets everything ready for our
' The ' I user.
Rstactiveusers.open
End Sub
Sub Session_OnStart ()
' Set session timeout to minutes
Session.Timeout = 20
' Set a session start time. This is pretty pointless,
' But it does ensure that we start a session and
' Assign the user a session ID with it can help
' Troubleshooting if we ever need it.
Session (' Start ') = Now ()
' Move to the ' end so records are added in order.
' Again not of ' importance, but it keeps
' User table nice and orderly.
If not rstactiveusers.eof Then rstactiveusers.movelast
' Add a record and insert users data. I ' m just
' Storing some basic info, but naturally ' re free
' To the store whatever you want.
Rstactiveusers.addnew
Rstactiveusers.fields ("id"). Value = _
Session.SessionID
Rstactiveusers.fields ("IP"). Value = _
Request.ServerVariables ("Remote_host")
Rstactiveusers.fields ("Browser"). Value = _
Request.ServerVariables ("Http_user_agent")
Rstactiveusers.fields ("Started"). Value = _
Now ()
Rstactiveusers.update
' Now so we ' ve got the information, all of that ' s
' Left are to display it. Test_page.asp for a
' Demo. It includes the pages show_count.asp and
' show_users.asp which can also be used
' Individually if desired.
End Sub
Sub Session_OnEnd ()
' Selected constants from Adovbs.inc
Const Adsearchforward = 1
Const Adbookmarkfirst = 1
Const adaffectcurrent = 1
' Find the appropriate record. The Using session ID is the
' Easiest way since I use this as the primary key.
' This line positions us on the appropriate record.
Rstactiveusers.find "id =" & Session.SessionID, _
0, Adsearchforward, Adbookmarkfirst
' Now that we ' re in the record, delete it.
' I use the ' EOF to ' sure we ' ve got one.
If not rstactiveusers.eof Then
Rstactiveusers.delete adaffectcurrent
End If
End Sub
