<?php
ob_start();
session_start();
$num=0;
$dirpt = "online";
$reftime = 1;
if (is_dir($dirpt) && $dir = opendir($dirpt)) {
while (($file = readdir($dir)) !== false) {
if(strcmp($file,"..")==0 || strcmp($file,".")==0){
continue;
}
$d_[date("y-m-d h:i:s",filemtime($dirpt."/".$file))]=$file;
$num++;
unset($cum);
}
closedir($dir);
$filename = session_id();
$fp = fopen($dirpt."/".$filename,"w");
fputs($fp,"");
fclose($fp);
$ntime = date("y-m-d h:i:s",mktime(date("h"),date("i")-1,0,date("m"),date("d"),date("y")));
$d_[$ntime]="-";
krsort($d_);
$onlinenumber=0;
while(1){
$vkey=key($d_);
$onlinenumber++;
if(strcmp($ntime,$vkey)==0){
break;
}else{
array_shift($d_);
}
}
array_shift($d_);
reset($d_);
while(count($d_)>0){
$ckey=key($d_);
unlink($dirpt."/".$d_[$ckey]);
if(!next($d_)){
break;
}
}
}else{
@chmod("..",0777);
@mkdir($dirpt,0777);
}
$online=$onlinenumber-1;
$retime=60*$reftime;
echo "当前在线<strong><font color=red>$online</font></strong>人<meta http-equiv=refresh content=/"{$retime},url=/">";
ob_end_flush();
?>
<!--
《利用文件属性结合session进行在线人数统计》
作者：sports98
编写日期: 2003-3-19
-->
