Programalama > PHP

<?
##################################
# Ayarlar 
##################################
$fark=3; // Kaç saatte bir aynı ip girişinde sayaç arttırılmasına izin verilecek!###
$kac=3; //Minimum görüntülenecek hane sayısı...                                  ###
$uz=".gif"; //Sayacımızın resim uzantisi...                                      ###
$tip=1; //değer 0 ise grafik, farklı ise text sayaç olacaktır...                 ###
$isim="adres.inc"; //Sayac dosyasının adı...                                     ###
####################################################################################

### Ip Adresini Bulma ###
if (getenv(HTTP_X_FORWARDED_FOR))
 {
  $ip=getenv(HTTP_X_FORWARDED_FOR);
 }
else
 {
 $ip=getenv(REMOTE_ADDR);
 }
####################################################################################

### Saat işlemleri #################################################################
$saat=(int) mktime(date(H),date(i),date(s),date(n),date(z),date(y));
$saat1=(int) mktime(date(H)-$fark,date(i),date(s),date(n),date(z),date(y));
####################################################################################

## Ana Blok ########################################################################
if(!file_exists($isim)) // Counter ilk kez kullanılıyor ise bu bölüm kullanılır.
 {
  $dosya=fopen($isim,"w");
  $deger=1;
  $strdeger=(string) $deger;
  goster($strdeger,$uz,$kac,$tip);
  $bilgi="$deger;$ip;$saat;\n";
  fwrite($dosya,$bilgi);
  fclose($dosya);
 }
else  // Eğer counter ilk kez kullanılmıyorsa bu bölüm işletilir.
 {
  $i=0;
  $dosya=fopen($isim,"r");
  $satir=fgetcsv($dosya , 2048 , ";");
  $onceki=(int) $satir[2];

   if (!$deger) $deger=(int) $satir[0];
   if(($ip!=$satir[1]) || ($onceki<$saat1))
   /* Eğer ip farklı veya gerekli saat dolmuş ise bu bölüm işletilir*/
    {
     $deger++;
     $i=1;
    }
  $strdeger=(string) $deger;
  goster($strdeger,$uz,$kac,$tip);
  fclose($dosya);

   if ($i==1) //Eğer counter arttırılmış ise bu bölüm işletilir.
    {
     unlink($isim);
     $dosya=fopen($isim,"w");
     $bilgi="$deger;$ip;$saat;\n";
     fwrite($dosya,$bilgi);
     fclose($dosya);
    }
 }
####################################################################################

### Resim Veya Text Olarak Görüntüleme #############################################
function goster($strdeger,$uz,$kac,$tip)
 {
  $bu=strlen($strdeger);
  $sifir=$kac-$bu;

   for($j=0;$j<$sifir;$j++)
    if ($tip==0) //Eğer grafik ise bu bölüm değil ise else işletilir.
     echo"<img src='resim/0.gif'>";
    else echo"0";

   for($j=0;$j<$bu;$j++)
    $hane[$j]=substr($strdeger,$j,1);

   foreach($hane as $resim)
    if ($tip==0) //Eğer grafik ise bu bölüm değil ise else işletilir.
     echo"<img src='resim/".$resim.$uz."'>";
    else echo"$resim";
 }
####################################################################################
?>




Eğer resim adında bir klasör açıp sayı resimlerini gif formatında resim klasörüne koyarsanız hoş durur