U global.asa stavish ovo:
Code:
Sub Application_OnStart
Application("BrojUseraNaSajtu") = 0
Application("UseriNaSajtu") = ""
End Sub
Sub Session_OnStart
Session.Timeout = 1
Session("Start") = Now
Application.Lock
Application("BrojUseraNaSajtu") = Application("BrojUseraNaSajtu") + 1
If Not Request.Cookie("Username") = "" Then
Application("UseriNaSajtu") = Application("UseriNaSajtu") & "," & Request.Cookie("Username")
Application.Unlock
End Sub
Sub Session_OnEnd
Application.Lock
Application("BrojUseraNaSajtu") = Application("BrojUseraNaSajtu") - 1
NizUseraNaSajtu = Split(Application("UseriNaSajtu") ,",")
' umesto zareza moze biti bilo sta sto si koristio za dodavanje novog
' korisnika u Application("UseriNaSajtu")
strNewsString = "" ' u njega ces da trpash sve osim onog koji ode sa sajta
For i = 0 To UBound(NizUseraNaSajtu)
If Not NizUseraNaSajtu(i) = Request.Cookie("Username") Then
strNewsString = strNewsString & "," & NizUseraNaSajtu(i)
End If
Next
Application.Unlock
End Sub
******************************************
E to je kod za global.asa (auh ispisah ja tog dosta)
E sad ovaj global.asa naravno stavish u root a onda u skripti samo uradish
Response.Write "Trenutno na sajtu je" & Application("BrojUseraNaSajtu")
Response.Write "Na sajtu su korisnici:" & Application("UseriNaSajtu")
Eto to je to. Proveri ima li greskica.
Pozdrav
Marko_L : Dodati code tagovi
[Ovu poruku je menjao Marko_L dana 18.06.2005. u 00:12 GMT+1]
Kaurin Andrej