Webstudios Counter nollställs :(

Webstudio beskriver en räknare med denna koden:

<% Application.Lock
Application.Contents("Besokare") = Application.Contents("Besokare") + 1
Application.Unlock

	Set F = CreateObject("Scripting.FileSystemObject")
	Set T = F.CreateTextFile(Server.MapPath("\\partyzone\\counter.txt")) 

	T.WriteLine Application.Contents("Besokare") 

	T.Close 

	Set A = CreateObject("Scripting.FileSystemObject")
	Set B = A.OpenTextFile(Server.MapPath("\\partyzone\\counter.txt")) 

	Visits = B.ReadLine 

	B.Close %\> 

	\<b\>\<% =Visits %\>\</b\>

Visst det fungerar ju bra och sånt fast ibland så kolla jag på sidan och då har den nollställt sig själv.. lite tråkigt.

Hur kan detta komma sig ?

Hej!

Inget ovanligt, webstudios kodexempel brukar inte vara särskilt genomtänkta.

Klicka på sök uppe till höger och skriv in räknare eller dyl, så lär du hitta bättre exempel på en räknare.

mvh Jörgen :)

------------------
Varför bråka när man kan kramas?

IDG-skriptet borde (nästan) fungera så länge man inte startar om webbservern.

<% 
Application.lock
Set F = CreateObject("Scripting.FileSystemObject")
if  F.FileExists(Server.MapPath("\partyzone\counter.txt")) then
Set B = A.OpenTextFile(Server.MapPath("\partyzone\counter.txt")) 
Visits = Clng(B.ReadLine) + 1 
b.close
else
Visits = Clng(1)
end if
Set T = F.CreateTextFile(Server.MapPath("\partyzone\counter.txt"),true) 
T.WriteLine Visits 
T.Close 
Application("Besokare") = Visits
Application.unlock
%>
<b><% =Visits %></b>

Nu är ju denna kod lika otestad som IDG's skript.

------------------
essentitia preter non sans multiplicandum

[Redigerat av LarsG den 13 okt 2001]