|
|
Bienvenue - Nous sommes
le
.
Il y a actuellement
/* -------------------------------------------------------- */
/* Script Compteur Temps Réel */
/* Auteur: Matthieu Chevalier */
/* Web-Site: http://matthieu.chevalier.free.fr/ */
/* Email: matthieu.chevalier@free.fr */
/* */
/* -------------------------------------------------------- */
/* Valeur à modifier pour appliquer à votre site */
$tempmax = 180; // temps au bout duquel le visiteur n'est plus compté présent s'il ne racharge pas une page. (en secondes)
$userfile="data/visitonline.dat"; // nom de votre fichier de comptage(recommandé de ne pas le changer)
$tempfile="data/tempfile.dat"; //nom du fichier temporaire
/* Ne plus rien modifier en dessous de cette ligne */
$sec = time();
$expire=$sec + $tempmax;
$ipvisit="$REMOTE_ADDR";
function substrcount($haystack, $needle) {
$offset=0;
$i = 0;
$counter = 0;
while ($i==0) {
$longueur = strlen($haystack);
$position=strpos($haystack,$needle,$offset);
if ($position && ($offset + strlen($needle)) <= $longueur) {
$offset = $position+strlen($needle);
$counter++;
} else {
$i++;
}}
return $counter;
}
$cont=fopen("$userfile","r+");
$contenu="";
while (!feof($cont)) {
$suite=fgets($cont, 4096);
$contenu.="$suite";
}
fclose($cont);
$nbreligne=substrcount("$contenu","\n");
$visit = explode("\n",$contenu);
$j=0;
$ligneecrite="$ipvisit|$expire\n";
$tempfi=fopen("$tempfile","a+");
fwrite($tempfi,"$ligneecrite");
fclose($tempfi);
$nbreonline++;
while ($j < $nbreligne){
$idvisit=explode("|",chop($visit[$j]));
if ($idvisit[0] != $ipvisit){
if ($idvisit[1] >= $sec){
$ligneecrite="$idvisit[0]|$idvisit[1]\n";
$tempfi=fopen("$tempfile","a+");
fputs($tempfi,"$ligneecrite");
fclose($tempfi);
}}
$j++;
}
copy("$tempfile","$userfile");
$conte = fopen("$userfile","r");
$contenu2 = "";
$contenu="";
while (!feof($conte)) {
$suite2=fgets($conte, 4096);
$contenu2.="$suite2";
}
fclose ($conte);
$nbreligne2 = substrcount("$contenu2","\n");
$nbreonline = "$nbreligne2";
$testtemp=fopen("$tempfile","w+");
fseek($testtemp,0);
fputs($testtemp,"");
fclose($testtemp);
if ($nbreonline==1){$afficher="$nbreonline personne";}
if ($nbreonline>1){$afficher="$nbreonline personnes";}
if ($voir=="js"){
print "document.write('".$afficher."');";
}
if ($voir=="php"){
echo("$afficher");
}
if ($voir=="no"){
}
?> sur le site.
Il y a eu
include("compteur.php");
?>
pages vues. |
|
|
|
Pour que tu m'aimes encore Chanson écrite pour Céline Dion
J'ai compris tous les mots, j'ai bien compris, merci
Raisonnable et nouveau, c'est ainsi par ici
Que les choses ont changé, que les fleurs ont fané
Que le temps d'avant, c'était le temps d'avant
Que si tout zappe et lasse, les amours aussi passent
Il faut que tu saches
J'irai chercher ton coeur si tu l'emportes ailleurs
Même si dans tes danses d'autres dansent tes heures
J'irai chercher ton âme dans les froids dans les flammes
Je te jetterai des sorts pour que tu m'aimes encore
Fallait pas commencer m'attirer me toucher
Fallait pas tant donner moi je sais pas jouer
On me dit qu'aujourd'hui, on me dit que les autres font ainsi
Je ne suis pas les autres
Avant que l'on s'attache, avant que l'on se gâche
Je veux que tu saches
J'irai chercher ton coeur si tu l'emportes ailleurs
Même si dans tes danses d'autres dansent tes heures
J'irai chercher ton âme dans les froids dans les flammes
Je te jetterai des sorts pour que tu m'aimes encore
Je trouverai des langages pour chanter tes louanges
Je ferai nos bagages pour d'infinies vendanges
Les formules magiques des marabouts d'Afrique
J'les dirai sans remords pour que tu m'aimes encore
Je m'inventerai reine pour que tu me retiennes
Je me ferai nouvelle pour que les feu reprenne
Je deviendrai ces autres qui te donnent du plaisir
Vos jeux seront les nôtres si tel est ton désir
Plus brillante plus belle pour une autre étincelle
Je me changerai en or pour que tu m'aimes encore.
|