Могу.
$data="online.dat";
$time=time();
$past_time=time()-600;
if(is_file($data) && is_readable($data)):
$readdata=fopen($data,"r") or die("Не могу открыть файл $data");
$data_array=file($data);
fclose($readdata);
endif;
if (getenv(\'HTTP_X_FORWARDED_FOR\'))
$user = getenv(\'HTTP_X_FORWARDED_FOR\');
else
$user = getenv(\'REMOTE_ADDR\');
$d=count($data_array);
for($i=0;$i<$d;$i++)
{
list($live_user,$last_time)=explode("::","$data_array[$i]");
if($live_user!=""&&$last_time!=""):
if($user==$live_user)
$last_time="$time\\r\\n";
if($last_time<$past_time):
$live_user="";
$last_time="";
endif;
if($live_user!=""&&$last_time!="") $online_array[]="$live_user::$last_time";
endif;
}
if(is_file($data) && is_writable($data)):
$writedata=fopen($data,"w") or die("Не могу открыть файл $data");
flock($writedata,2);
if($online_array=="")
$online_array[]="$user::$time";
foreach($online_array as $str)
fputs($writedata,"$str");
flock($writedata,3);
fclose($writedata);
endif;
$online=count($data);
echo "document.write(\'Сейчас на сайте: $online чел.\');";
P.S. Драть и распространять запрещено! Использовать - пожалуйста.
P.P.S. Ворон больно клюется.