%@LANGUAGE="VBSCRIPT"%> <% ' Compteur ASP de hits ' Création de l'objet permettant de manipuler les fichiers Set FSO=CreateObject("Scripting.FileSystemObject") ' Le dossier "data" doit être déprotégé en écriture ! ' (voir sinon avec l'admin de l'hébergeur) fichier=Server.MapPath("/data") & "\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 %>
|
|
|||||||||||
|
|
|
Accueil
-> Relookage de votre site internet
|
||||||
|
| © 2002 Conception et réalisation : Agence Webatoll |
| Recherche : | maison | appartement | terrain | commerce | bureaux | locaux industriels |
| Recherche : | maison | appartement | terrain | commerce | bureaux | locaux industriels | vacances |
| ImmoPacte - Annonces immobilières gratuites |