---
title: "zCounter"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/38086-zcounter"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "PatrikB"
published: "2000-06-28T15:19:00.000Z"
updated: "2000-06-28T15:19:00.000Z"
replies: 0
views: 1002
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/38086-zcounter"
---

# zCounter

## #1 — PatrikB, 2000-06-28T15:19Z

En enkel räknare.

Börja med att skapa en fil som heter:

 count.txt

den kan ligga i tex wwwroot.

I global.asa i SubSession_OnStart:

```
Sub Session_OnStart

	' Start count script
	myFile = Server.MapPath("count.txt")

	' create counter object
	Set objCount = Server.CreateObject("Scripting.FileSystemObject")
	Set myCountFile = objCount.OpenTextFile(myFile)

	' check for counter cookie
	If Request.Cookies("counter") = "1" Then

		Application.Lock

			Application("counter") = CInt(myCountFile.ReadLine)

			myCountFile.Close
			Set myCountFile = nothing

		Application.UnLock

	Else

		Response.Cookies("counter") = "1"
		Response.Cookies("counter").Expires = DateAdd("d",1,Now())

	Application.Lock

		Application("counter") = CInt(myCountFile.ReadLine + 1)

		myCountFile.Close
		Set myCountFile = nothing

		Set myCountFile = objCount.CreateTextFile (myFile,true)

			myCountFile.WriteLine Application("counter")

		Set myCountFile = nothing

	Application.Unlock

End If

		Set	objCount = nothing

End Sub
```

På de sidor som du vill att räknaren ska visas:

```
<%
=Application("counter")
%>
```

Hoppas att det är någon som har användning för denna enkla räknare,

//PatrikB

PS räknaren visar endast text-siffror. Kombinera tex med vides "omvandlare" till bilder DS

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/38086-zcounter