counter i Windows 2003
3 svar · 220 visningar · startad av lazat
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. :)
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.
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å.