webForumDet fria alternativet

counter i Windows 2003

3 svar · 220 visningar · startad av lazat

lazatMedlem sedan mars 2001308 inlägg
#1
SebbeMedlem sedan jan. 20032 285 inlägg
#2

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. :)

Engine^Medlem sedan dec. 20003 887 inlägg
#3

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.

lazatMedlem sedan mars 2001308 inlägg
#4

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å.

140 ms totalt · 3 externa anrop · v20260731065814-full.86db40fa
0 ms — hämta forumlista (cache)
0 ms — hämta statistik (cache)
136 ms — hämta tråd, inlägg och bilagor (db)