strona główna
kasy fiskalne
drukarki fiskalne
pobierz
Licznik:
//Skrypt licznika odwiedzin opartego na numerach ip:)
//Copyright 2002 by Micha³ Lipski. All rights reserved.
//adres www: strefa-delphi.net , e-mail: michal_lipski@interia.pl
//KONFIGURACJA
//nazwa pliku gdzie bêd± spisywane nr ip.
$plik_ip = "ip.dat"; //chmod 666
//nazwa pliku gdzie bêdzie przechowywana ilo¶æ odwiedzin.
$plik_count = "count.dat"; //chmod 666
//czas po jakim bêdzie mo¿na zliczyc wejscie z tego samego nr ip podawany w MINUTACH.
$ilosc_min = "720";
//KONIEC KONFIGURACJI
$ip = getenv ("REMOTE_ADDR");
$czas = time();
$datag = "$ip|$czas|\n";
$file = fopen($plik_count, "r");
flock($file, 1);
$ile = fgets($file, 4096);
flock($file, 3);
fclose($file);
$ile = str_replace("2", "2", $ile);
$plik = file($plik_ip);
$i = 0;
while($i < count($plik)){
$nr = explode("|", $plik[$i]);
$plik[$i] = "";
if ($czas >= ($nr[1]+720*$ilosc_min))
{
$file = fopen($plik_ip, "w");
flock($file, 2);
fwrite($file, join("", $plik));
flock($file, 3);
fclose($file);
$file=fopen($plik_ip, "a");
flock($file, 2);
fwrite($file, $datag);
flock($file, 3);
fclose($file);
$ile++;
}
if ($nr[0]==$ip)
{$jest++;}
$i++;
}
if ($jest==0)
{
$file=fopen($plik_ip, "a");
flock($file, 2);
fwrite($file, $datag);
flock($file, 3);
fclose($file);
$ile++;
}
$file=fopen($plik_count, "w");
flock($file, 2);
fwrite($file, $ile);
flock($file, 1);
fclose($file);
echo $ile;
?>
Wszelkie prawa zastrzeżone © 2010 - 2025
dla
CCV-POLSKA