---
title: "Aktiva besökare!"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/54296-aktiva-besökare"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Asa"
published: "2002-09-25T22:35:51.000Z"
updated: "2002-09-26T03:58:51.000Z"
replies: 3
views: 297
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/54296-aktiva-besökare"
---

# Aktiva besökare!

## #1 — Asa, 2002-09-25T22:35Z

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>
```

Permalänk: https://www.webforum.nu/p/54296

## #2 — crisse6, 2002-09-25T22:50Z

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

Permalänk: https://www.webforum.nu/p/797122

## #3 — Asa, 2002-09-25T22:56Z

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

Permalänk: https://www.webforum.nu/p/797125

## #4 — Poffe, 2002-09-26T03:58Z

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?

Permalänk: https://www.webforum.nu/p/797140

---

Tråden på webben: https://www.webforum.nu/amne/asp/54296-aktiva-besökare