Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2007.02.25;
Скачать: CL | DM;

Вниз

Вопрос по HTML?   Найти похожие ветки 

 
Calibr ©   (2007-01-30 14:23) [0]

Как можно узнать кто присутствует на сайте и вывести список присутствующих?


 
IMHO ©   (2007-01-30 14:25) [1]

это вопрос не по HTML


 
Плохиш ©   (2007-01-30 16:04) [2]


> Calibr ©   (30.01.07 14:23)  
> Как можно узнать кто присутствует на сайте и вывести список
> присутствующих?

Ответ известен - Никого.


 
санёк   (2007-01-30 16:19) [3]

<?
$ip = $REMOTE_ADDR;
$data_file = "online.txt";
$minut=3;
$new = true;
$data_ar=Array();
$temp_ar=Array();
$new_ar=Array();

$data_ar = file($data_file);

for($i=0;$i<count($data_ar);$i++){
$temp_ar = explode("|",$data_ar[$i]);
if(trim($temp_ar[1])>time()-60*$minut){
 $new_ar[count($new_ar)]=$data_ar[$i];
}
}

for($i=0;$i<count($new_ar);$i++){
$temp_ar = explode("|",$new_ar[$i]);
if($ip==$temp_ar[0]){
 $temp_ar[1] = time()."\n";
 $new_ar[$i] = implode("|",$temp_ar);
 $new = false;
}
}

if($new){
$temp_ar[0] = $ip;
$temp_ar[1] = time()."\n";
$new_ar[count($new_ar)]=implode("|",$temp_ar);
}

$online = count($new_ar);

$fp=fopen($data_file,"w+");
if(flock($fp,LOCK_EX)){
for ($i=0;$i<count($new_ar);$i++){
 fputs($fp,$new_ar[$i]);
}
}
flock($fp,LOCK_UN);
fclose($fp);

$im=ImageCreateFromPNG("online.png");
$w=ImagecolorAllocate($im,255,255,255);
$px=(imagesx($im)-5*strlen($online));
Imagestring($im,1,$px-3,3,$online,$w);
Header("Content-type: image/png");
ImagePng($im);
ImageDestroy($im);
?>


 
Megabyte ©   (2007-01-30 17:30) [4]

Сдается мне, что это PHP, а не HTML :)


 
санёк   (2007-01-30 23:53) [5]


> Сдается мне, что это PHP, а не HTML :)

Ну да. А просто на HTML не получиться!



Страницы: 1 вся ветка

Текущий архив: 2007.02.25;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.045 c
2-1170543203
Wind
2007-02-04 01:53
2007.02.25
Изменить размер поля в таблице


15-1170517896
Суслик
2007-02-03 18:51
2007.02.25
Свободный newsgroups client


11-1146737401
AndreyRus
2006-05-04 14:10
2007.02.25
Отрисовка XP контролов. Bug.


15-1170333880
boriskb
2007-02-01 15:44
2007.02.25
История PC в рекламных роликах


2-1170935401
niil
2007-02-08 14:50
2007.02.25
Копии TabSheet в рантайме