Aktiva besökare!

3 svar · 283 visningar · startad av Asa 25 sep. 2002

AsaMedlem sedan dec. 20011 860 inlägg

Frågan25 sep. 2002 22:35#1

Har en global.asa med en aktiva besökare! Den är för hela sidan! Vill nu ha en för bara en sida! Ex mitt webbforum men hur gör jag? Har hjärnsläpp! Testade å lägga in två lika koder med olika namn men det funkade ej! Tänker jag helt fel?

Denna har jag i global.asa:

<SCRIPT LANGUAGE="VBScript" RUNAT="Server">

Sub Application_OnStart
	Application("ActiveUsers") = 0
End Sub

Sub Session_OnStart
	Session.Timeout = 10
	Session("Start") = Now
	Application.Lock
	Application("ActiveUsers") = Application("ActiveUsers") + 1
	Application.UnLock
End Sub

Sub Session_OnEnd
	Application.Lock
	Application("ActiveUsers") = Application("ActiveUsers") - 1
	Application.UnLock
End Sub

</SCRIPT>

crisse6Medlem sedan dec. 20002 526 inlägg

25 sep. 2002 22:50#2

sokte lite och fann denna, kanske kan hjalpa lite?
http://www.webforum.nu/showthread.php?s=&threadid=11921&highlight=antal+online

AsaMedlem sedan dec. 20011 860 inlägg

25 sep. 2002 22:56#3

Hmm - kanske det! Verkar lite klurigt lr så är jag för trött bara!

PoffeMedlem sedan apr. 20022 743 inlägg

26 sep. 2002 03:58#4

det går väll men server variabler kolla vilken sida man är på och på så sätt endast lägga till/ta bort en aktivbesökare? typ:

<SCRIPT LANGUAGE="VBScript" RUNAT="Server">

Sub Application_OnStart
	Application("ActiveUsers") = 0
	Application("ActiveUsersForum") = 0
End Sub

Sub Session_OnStart
	Session.Timeout = 10
	Session("Start") = Now
	Application.Lock
	Application("ActiveUsers") = Application("ActiveUsers") + 1
	Application.UnLock
	
	If Request.Servervariables("URL") = "forum.asp" Then
		Session.Timeout = 10
		Session("Start") = Now
		Application.Lock
		Application("ActiveUsersForum") = Application("ActiveUsersForum") + 1
		Application.UnLock
	End If
End Sub

Sub Session_OnEnd
	Application.Lock
	Application("ActiveUsers") = Application("ActiveUsers") - 1
	Application.UnLock

	If Request.Servervariables("HTTP_REFERER") = "forum.asp" Then
		Application.Lock
		Application("ActiveUsersForum") = Application("ActiveUsersForum") - 1
		Application.UnLock
	End If
End Sub

</SCRIPT>

har inte testat och kan inte mycket om global.asa men detta kanske kan vara en lösning?