exploration par robot (ou "ROV" Remote Operated Vehicle)
lac Léman leman
epave épave de vapeur voilier avion bateau moteur épaves epaves
Rhône - Cygne - Hirondelle - Aigle II / Simplon - Nemo
wagons de chemin de fer, wagon
...des Compagnies de la Ligne d'Italie, Ligne du Simplon, Ligne du Tonkin.
limnologie: etude du poisson, de la sédimentation
patrimoine lacustre lemanique
et ferroviaire
.
Copyright Sub-rec © 1998-2010
PAILLEX Gilbert
CH Lausanne
compteur : 100'000 +
<%
' Compteur ASP de hits
' Création de l'objet
Set FSO=CreateObject("Scripting.FileSystemObject")
Set FSO=Server.CreateObject("Scripting.FileSystemObject")
fichier=Server.MapPath("/data") & "\compteur.txt"
fichier=Server.MapPath("/_private/cgi-bin") & "\hitcounter.txt"
fichier=Server.MapPath("\_private") & "\cgi-bin" & "\hitcounter.txt"
fichier=Server.MapPath("\_private\cgi-bin") & "\hitcounter.txt"
fichier=Server.MapPath("/_private") & "\compteur.txt"
' Lecture du fichier s'il existe et incrémente
cpt = 1
if FSO.FileExists(fichier) then
set inF = FSO.OpenTextFile(fichier,1,false)
cpt = cLng(inF.readLine) + 1 ' jusqu'à 2 milliards
inF.close
end if
' Sauvegarde du compteur
set inF = FSO.createTextFile(fichier)
inF.writeLine(cpt)
inF.close
cpt = 111
%>
// Compteur PHP de hits
$fichier="compteur.txt";
// Lecture du fichier s'il existe et incrémente
$cpt = 1;
if(file_exists($fichier)) {
$inF = fopen($fichier,"r");
$cpt = intval(trim(fgets($inF, 4096))) + 1;
fclose($inF);
}
// Sauvegarde du compteur
$inF = fopen($fichier,"w");
fputs($inF,$cpt."\n");
fclose($inF);
?>
Visite n° <%=cpt%>
$cpt = 222 ?>
+ =$cpt?>