Sur Internet, les compteurs écrits en ASP sont partout. Je pense que cela n'a aucun sens de parler ici de compteurs écrits en ASP. Plus tard, j'ai pensé qu'il était nécessaire d'en parler, car il ne s'agit pas seulement d'écrire des compteurs, mais aussi de présenter à chacun les connaissances et les compétences d'application de l'ASP.
Le code original du programme est le suivant :
$#@60 ;%countlong=8
'countlong définit le nombre de chiffres affichés du compteur. On Error Resume Next
′ Ignorer toutes les erreurs count=server.mappath(″count.txt″)
set cou = server.createobject(″scripting.filesystemobject″)
set out=cou.opentextfile(count,1,false,false)
compteur=out.readline
dehors.fermer
′Le code ci-dessus consiste à ouvrir le fichier count.txt et à lire une ligne pour lire la valeur actuelle du compteur si session(″in″)$#@60;$#@62;″in″ alors
'Déterminez si l'utilisateur est entré dans la page d'accueil pour vous assurer que le compteur n'augmentera pas de 1 lorsqu'il appuie sur Actualiser ou revient sur cette page.
session(″dans″)=″dans″
exposé = cou.createtextfile(count,true,false)
application.lock
compteur=compteur＋1
'Compteur plus 1
out.writeline(compteur)
application.déverrouiller
dehors.fermer
'Le code ci-dessus consiste à créer un nouveau fichier count.txt et à écrire une ligne, à écrire la valeur du compteur après avoir ajouté 1 fin si
co=cstr(compteur)
La fonction 'cstr est utilisée pour convertir des variables numériques en types de caractères pour i = 1 en countlong-len(co)
réponse.écrire ″″
suivant
'L'instruction de boucle ci-dessus consiste à terminer l'ajout des 0 images devant le compteur' La fonction len(co) consiste à obtenir la longueur de la variable co, countlong-len(co) obtiendra le numéro du 0 précédent images pour i= 1 à len(co)
réponse.écrire ″″
suivant
La fonction ′mid(co,i,1) permet de lire un caractère % à partir de la i-ème position de la variable co $#@62 ;
La partie la plus réussie de ce compteur est d'utiliser la session pour empêcher les utilisateurs d'actualiser le compteur plusieurs fois ; un fichier texte est utilisé pour enregistrer la valeur du compteur. Bien que le code soit plus long à écrire, c'est bien mieux que d'utiliser l'application. objet, car lorsque le serveur redémarre ou lorsque global.asa est modifié, la valeur de l'objet d'application sera effacée et des images sont utilisées à la place des caractères, ce qui est plus beau !
Vous pouvez concevoir vous-même l'image du compteur. Utilisez le nom de fichier 0.gif pour 0, 1.gif pour 1, etc.