![]() |
![]() |
#1 |
Administrator
![]() Ü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 :
![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() Cinsiyet :
Ünvan : Admin
|
![]() <?
################################## # 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"; } ################################################## ################################## ?> |
![]() |
![]() |
![]() ![]() |
Konuyu Görüntüleyen Aktif Kullanıcılar: 1 (0 üye ve 1 misafir) | |
|
|
![]() |
||||
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 |