|
|
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. |
|
|
|
Sad Passion
You say you want to get out
Say you don't need me anymore
But baby, without any doubt
I'm not the kind to love in vain
You took all the love I had
You spent your way easily
My dear, works weren't that bad
Could say it's too late to worry
You're telling tales on me it hurts
I'll eat your lying lips first
And then your hands I love so much
Until you can't lift up the door
No, I'm not crazy, just listen
I'll eat your legs and your belly
It is the only way
I've found to keep you close to me
Sad passion
Don't know what for
It's so dark but the sun keeps shining
In my soul and and in my blood
Sad passion
Don't know what for
It's so dark but the sun keeps shining
In my soul and in my blood
In my soul and in my blood
Never thought you were so deaf
Sweet honey, can't you hear me still
Oh beg your pardon, I forgot
I ate your ears last I think
Just one or two weeks and no more
And only bones will be left
I got you in my blood
And you'll be mine forever
You're telling tales on me it hurts
I'll eat your lying lips first
And then your hands I love so much
Until you can't lift up the door
No, I'm not crazy, just listen
I'll eat your legs and your belly
It is the only way
I've found to keep you close to me
Sad passion
Don't know what for
It's so dark but the sun keeps shining
In my soul and and in my blood
Sad passion
Don't know what for
It's so dark but the sun keeps shining
In my soul and in my blood
|