www.cakal.net Forumları YabadabaDuuuee  

Geri Git   www.cakal.net Forumları YabadabaDuuuee > Forum > Eskiler (Arşiv)

Eskiler (Arşiv) Eski konular

CevaplaCevapla
 
Konu Araçları Görünüm Modları
Old 07-11-2007, 11:48 PM   #1
jockeя
Administrator
 
jockeя Kullanıcısının Avatarı
 
Üyelik Tarihi: Aug 2005
Mesajlar: 8,106
Teşekkür Etme: 20
Thanked 155 Times in 28 Posts
Üye No: 1
İtibar Gücü: 70000
Rep Puanı : 434913
Rep Derecesi : jockeя has a reputation beyond reputejockeя has a reputation beyond reputejockeя has a reputation beyond reputejockeя has a reputation beyond reputejockeя has a reputation beyond reputejockeя has a reputation beyond reputejockeя has a reputation beyond reputejockeя has a reputation beyond reputejockeя has a reputation beyond reputejockeя has a reputation beyond reputejockeя has a reputation beyond repute
Cinsiyet :
Ünvan : Admin
Varsayılan [PHP]IP Kontrollu sayaç

<?
##################################
# Ayarlar
##################################
$fark=0; // 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="giris.txt"; //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),dat e(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";
}
################################################## ##################################
?>
jockeя çevrimdışı   Alıntı ile Cevapla
CevaplaCevapla


Konuyu Görüntüleyen Aktif Kullanıcılar: 1 (0 üye ve 1 misafir)
 

Yayınlama Kuralları
Yeni konu açamazsınız
Cevap gönderemezsiniz
Eklenti ekleyemezsiniz
Mesajlarınızı düzenleyemezsiniz

Kodlama is Açık
Smilies are Açık
[IMG] code is Açık
HTML code is Kapalı


Benzer Konular
Konu Konuyu Başlatan Forum Cevaplar Son Mesaj
[ASP]Basit bir sayaç jockeя Eskiler (Arşiv) 0 07-13-2007 06:56 PM
Kuyu suyu için sayaç mecburiyeti gündemde/ 1 temmuz Nǿ ŦΞДЯ™ Eskiler (Arşiv) 0 07-01-2007 11:20 AM
05/24/07 - Yağmur Suyuna Sayaç Tartışması Nǿ ŦΞДЯ™ Eskiler (Arşiv) 0 05-24-2007 07:58 AM

Forum saati GMT +3 olarak ayarlanmıştır. Şu an saat: 07:17 PM

Yazılım: vBulletin® - Sürüm: 3.8.11   Copyright ©2000 - 2025, vBulletin Solutions, Inc.