<?
$fark=1; // 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=(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));
if(!file_exists($isim))
{
$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
{
$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))
{
$deger++;
$i=1;
}
$strdeger=(string) $deger;
goster($strdeger,$uz,$kac,$tip);
fclose($dosya);
if ($i==1)
{
$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)
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)
echo"<img src='resim/".$resim.$uz."'>";
else echo"$resim";
}
?>