Salve a tutti, ho trovato in rete il codice che mi permette di contare il numero di visitatori di un sito, il problema è che a quanto pare il Global.asa non venga proprio considerato e quindi non viene effettuato alcun incremento, sapete dirmi dove è l'errore? Premetto che il file si trova nella directory principale del sito (lo sto testando in locale) e ho i permessi necessari. Questo è il codice:
Global.asa:
<script language="VBScript" RUNAT="Server">
Sub Session_OnStart()
posizione=server.mappath("contatore.txt")
set fsy=server.createobject("scripting.filesystemobjec t")
set fsytesto=fsy.opentextfile(posizione,1,true,-2)
valore=fsytesto.readline
fsy.close
set fsy=nothing
fsytesto.close
set fsytesto=nothing
set fsy=server.createobject("scripting.filesystemobjec t")
set fsytesto=fsy.opentextfile(posizione,2,false,-2)
fsytesto.writeline(valore)+1
fsy.close
set fsy=nothing
fsytesto.close
set fsytesto=nothing
end sub
Sub Session_OnEnd()
Session.Abandon()
end sub
</Script>
Mentre il seguente è il codice che dovrebbe stampare a video il n° di visite:
<%
posizione=server.mappath("contatore.txt")
set fsy=server.createobject("scripting.filesystemobjec t")
set fsytesto=fsy.opentextfile(posizione,1,false,-2)
if not fsytesto.AtEndOfStream then
valore=fsytesto.readline
end if
fsy.close
set fsy=nothing
fsytesto.close
set fsytesto=nothing
response.Write(valore)
%>
Errori a video non compaiono, quello che fa è stampare a video l'unico valore (quello iniziale) presente nel file contatore.txt e cioè 0, senza mai incrementare, sapete aiutarmi per favore? Grazie.
Rispondi quotando