12.12.2004

PHP - Advence counter

Tento skript je uz chráněn (snad) proti ztrátě dat při zápisu a je i lehce více vypovídající o počtu návštěv (kontroluje IP adresu posledního návševníka).

<?
$Soubor = "pocitadlo.txt";
if (File_Exists($Soubor)){
  $ADRESS = $REMOTE_ADDR;
  $PolePocitadlo = file($Soubor);
  if ($ADRESS != $PolePocitadlo[1]){
    if ($PolePocitadlo[0] != ""){
      $PolePocitadlo[0] = $PolePocitadlo[0] + '1';
      $fp = fopen( $Soubor,"w");
      FPutS($fp,"$PolePocitadlo[0]\n$ADRESS");
      fclose( $fp );
    else {
      $PolePocitadlo[0] = '911';
    }
  }
else {
  $fp = fopen($Soubor,"w");
  $ADRESS = $REMOTE_ADDR;
  $PolePocitadlo[0] = '1';
  FPutS($fp,"$PolePocitadlo[0]\n$ADRESS");
  fclose( $fp );
}
print "$Pocitadlo";
?>

CLOSE