kopkop
Sohbet Odası
codeBase="http://irc.kardelen.gen.tr/" width=750 height=450>
XPJAVA programını yükleyerek
sorunu gideriniz. codebase="http://activex.microsoft.com/activex/controls/mplayer/en/nsmp2inf.cab#Version=5,1,52,701"
standby="Microsoft Windows Media Player bileşenleri yükleniyor..."...
Date: 13 January 2007, Saturday
Comments (0) | Add Comment | More
8
Date: 13 January 2007, Saturday
Comments (0) | Add Comment | More
hava durumu
<%'XMLHTTP Open
private Function GETHTTP(adres)
Set StrHTTP = Server.CreateObject("Microsoft.XMLHTTP" )
StrHTTP.Open "GET" , adres, false
StrHTTP.sEnd
GETHTTP = StrHTTP.Responsetext
Set StrHTTP = Nothing
End Function
'XMLHTTP Close
URL = "http://meteo.tr.net/cgi-bin/wfa.pl?Aksaray+ "
bilgicek = GETHTTP(URL)
a=InStr(1,bilgicek,"Pztesi" )
Ptesi=Mid(bilgicek,a+10,79)
ptesi=Replace(ptesi,"/images/" , "http://meteo.tr.net/images/" )
c=InStr(1,bilgicek,"Sali" )
SalI=Mid(bilgicek,a+10,79)
SalI=Replace(SalI,"/images/" , "http://meteo.tr.net/images/" )
c=InStr(1,bilgicek,"Çrs" )
crs=Mid(bilgicek,a+10,79)
crs=Replace(crs,"/images/" , "http://meteo.tr.net/images/" )
%>
face="Verdana">Aksaray | ||
Ptesi | Sali | Çrs |
...
Date: 13 January 2007, Saturday
Comments (0) | Add Comment | More
ş
################################### 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"
";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"
else echo"$resim";
}
####################################################################################
?>...
Date: 13 January 2007, Saturday
Comments (0) | Add Comment | More
radyo
...
Date: 13 January 2007, Saturday
Comments (0) | Add Comment | More
32
...Date: 13 January 2007, Saturday
Comments (0) | Add Comment | More