---
title: "counter i Windows 2003"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/97372-counter-i-windows-2003"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "lazat"
published: "2004-02-15T18:23:25.000Z"
updated: "2004-02-16T10:16:57.000Z"
replies: 3
views: 224
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/97372-counter-i-windows-2003"
---

# counter i Windows 2003

## #1 — lazat, 2004-02-15T18:23Z



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

## #2 — Sebbe, 2004-02-15T19:14Z

En liten enkel räknare (hade tråkigt, så jag gjorde en klass):

```
Class Counter
  Private objFSO
  Private objTS
  Private intHits

  Function GetHits()
    Set objFSO = Server.CreateObject("Scripting.FileSystemObject")

    If NOT objFSO.FileExists(Server.MapPath("counter.txt")) Then
      GetHits = 0
    Else
      Set objTS = objFSO.OpenTextFile(Server.MapPath("counter.txt"))
      intHits = CInt(objTS.ReadLine)
      objTS.Close : Set objTS = Nothing
      Set objFSO = Nothing

      GetHits = intHits
    End If

    Set objFSO = Nothing
  End Function

  Function UpdateHits(intHits)
    Set objFSO = Server.CreateObject("Scripting.FileSystemObject")

    If NOT objFSO.FileExists(Server.MapPath("counter.txt")) Then
      Set objTS = objFSO.CreateTextFile(Server.MapPath("counter.txt"))
    Else
      Set objTS = objFSO.OpenTextFile(Server.MapPath("counter.txt"), 2)
    End If

    objTS.Write(intHits)
    objTS.Close : Set objTS = Nothing
    Set objFSO = Nothing
  End Function
End Class

Set objCounter = New Counter
objCounter.UpdateHits(objCounter.GetHits() + 1)
Response.Write("Hits: " & objCounter.GetHits())
Set objCounter = Nothing
```

Ojdå... Nu när jag gjorde en klass kanske den inte blev så "enkel", men men. ;)
Hur som helst, den skapar en textfil som heter counter.txt och uppdaterar antalet besökare i den filen. :)

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

## #3 — Engine^, 2004-02-16T09:30Z

Jag läste på ett forum där någon haft samma problem hade löst det genom att kopiera in dll-filen från xp pro och sedan registrerat den med COM Object Tools.

Det konstiga tycker jag är ju att det står att den ska finnas redan i 2003, så det kanske är så att den inte är registrerad bara.

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

## #4 — lazat, 2004-02-16T10:16Z

Jag har sökt efter dll filen på servern utan att hitta den.
Så jag tror inte den finns. Möjligtvis att dom har döpt om den.

Men tack för svart ändå.

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/97372-counter-i-windows-2003