Tempo em que o usuário fica on-line

[rmanelici 0]

Eu gostaria de saber como faço pra saber quanto tempo um usuário fica on-line, bem como mostrar os que estão on-line.

[Marcelo Barcellos 0]

Para saber quanto tempo

 

ASP

[*]

 

[*]Sub Session_OnStart()

 

[*]

 

[*]Dim MyArray

 

[*]

 

[*]ReDim MyArray(2)

 

[*]

 

[*]Myarray(0) = Now

 

[*]MyArray(1) =""

 

[*]MyArray(2) =""

 

[*]

 

[*]application.lock

 

[*]application(Session.id) = MyArray

 

[*]application.UnLock

 

[*]

 

[*]End Sub

 

[*]

 

[*]Sub Session_OnEnd()

 

[*]

 

[*]application.lock

 

[*]application(Session.id)(1) = Now

 

[*]application.UnLock

 

[*]

 

[*]'========

 

[*]'TEMPO DO USUARIO

 

[*]'========

 

[*]Application(Session.id)(2) = DateDiff("h",Application(Session.id)(0),Application(Session.id)(1))

 

[*]

 

[*]

 

[*]End Sub

 

[*]

 

Para saber quem está OnLine

 

ASP

[*]

 

[*]For i = 0 To Application.Content.Lenght - 1

 

[*] Response.Write Application.Content.Key(i)

 

[*]Next

 

[*]