Nel
2003 i visitatori sono
|
<%
'nomesito="http://www.iustitia.it"
'L=len(nomesito)
'referer=request.servervariables("HTTP_REFERER")
Set fs = CreateObject("Scripting.FileSystemObject")
Path = server.mappath("contatore\counter.txt")
Set a = fs.OpenTextFile(path)
conta = a.ReadLine
a.Close
'if left(referer,L)<>left(nomesito,L) then
conta=conta+1
'end if
Set a = fs.CreateTextFile(path, True)
a.WriteLine(conta)
a.Close
Set a=Nothing
Set fs=Nothing
response.write conta
%>
|