Webstudios Counter nollställs :(

2 svar · 204 visningar · startad av nill 13 okt. 2001

nillMedlem sedan okt. 2001387 inlägg

Trådstart13 okt. 2001 14:47#1

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 ?

jorgenMedlem sedan feb. 20012 412 inlägg

13 okt. 2001 15:05#2

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

LarsGMedlem sedan dec. 200012 464 inlägg

13 okt. 2001 15:16#3

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.