Dúvida

[Guest Mc Bolacha]

Será que alguém sabe com faço para colocar um script em uma página e obter o número de pessoas online sem utilizar banco de dados?

[Principe]

usa um arquivo texto !

[digo5150]

Segue um script que utiliza um arquivo *.txt que nesse caso deve-se chamar online.txt e estar no mesmo diretório do script, caso você queira modificar o nome do arquivo *.txt, modifique a variável em vermelho:

<?php

class UsersOnline{

var $StrPatch;

var $TimeOut;

    //Verifica se o ip consta na lista

    function Verifica($IpNow){

        $Arquivo = @file($this->StrPatch);

        $Reg = count($Arquivo);

        for($i=0;$i<$Reg;$i++){

            list($Ip,,) = explode("|",$Arquivo[$i]);

            if($Ip!=$IpNow)

                continue;

                return $i;

        }

    }

   

    //Limpa ips com data expirada

    function Limpar(){

        $DataAgora = date("YmdHis");

        $Arquivo = @file($this->StrPatch);

        $Arquivo2 = @fopen($this->StrPatch,"w+");

        $Reg = count($Arquivo);

        for($i=0;$i<$Reg;$i++){

            list($Ip,$Data) = explode("|",$Arquivo[$i]);

            if($Data>$DataAgora){

                fwrite($Arquivo2,"$Ip|$Data");

            }

        }

        fclose($Arquivo2); 

    }

   

    //Cadastra o novo ip na lista

    function Salva(){

        $IpAgora = $_SERVER['REMOTE_ADDR'];

        $DataAgora = (date("YmdHis")+$this->TimeOut);

        $Arquivo = fopen($this->StrPatch,"a");

        fwrite($Arquivo,"$IpAgora|$DataAgora\n");

        fclose($Arquivo);

    }

   

    //Atualiza o ip na lista

    function Update($Linha){

        $IpAgora = $_SERVER['REMOTE_ADDR'];

        $DataAgora = (date("YmdHis")+$this->TimeOut);

        $Arquivo = @file($this->StrPatch);

        $Arquivo2 = @fopen($this->StrPatch,"w+");

        $Reg = count($Arquivo);

        for($i=0;$i<$Reg;$i++){

            list($Ip,$Data) = explode("|",$Arquivo[$i]);

            if($i == $Linha)

                fwrite($Arquivo2,"$IpAgora|$DataAgora\n");

            else

                fwrite($Arquivo2,"$Ip|$Data");

        }

        fclose($Arquivo2);

    }

   

    //Verifica quantos estão online

    function Online(){

        $Arquivo = @file($this->StrPatch);

        $Reg = count($Arquivo);

        return $Reg;

    }

}

//Inicio

$online = new UsersOnline();

$online->StrPatch = 'online.txt';

$online->TimeOut = 200;

$Linha = $online->Verifica($_SERVER['REMOTE_ADDR]);

if(is_null($Linha)){

    $online->Limpar();

    $online->Salva();

    $On = $online->Online();

}

else{

    $online->Update($Linha);

    $online->Limpar();

    $On = $online->Online();

}

echo($On." usuário online!");

?>

espero que ajude!!!

[Gladisson]

Eu fiz um tb utilizando arquivo de texto, veja nos script's daqui do fórum.