Je viens de trouver un comptoir. Étant donné que le site Web a trop peu de visites, il est vraiment un peu minable de mettre un comptoir là-bas, donc je ne peux en faire qu'un simple, qui peut être accessible et enregistré une fois pour prendre en charge la vitrine. J'en avais un, mais j'étais déprimé de ne pas le trouver. Je l'ai chanté en ligne et je l'ai finalement fait. Le code de programme spécifique est le suivant.
Le code de Count.asp est:
La copie de code est la suivante:
<%
option Explicit
DIMFS, nom de fichier, txt, contenu, total, compteur_lenth
Counter_Lenth = 1 'définit la longueur minimale des données affichées. S'il est inférieur à la longueur réelle, la longueur réelle doit prévaloir.
setfs = server.createObject ("scripting.filesystemObject")
filename = server.mappath ("count.txt")
ifnotfs.fileexists (nom de fichier) puis
fs.CreateTextFileFileName, vrai, vrai
Settxt = fs.OpentextFile (nom de fichier, 2, true)
txt.write0'if il n'y a pas de fichier qui enregistre les données, créent un nouveau fichier et écrivez des données 0
setfs = rien
endire
Settxt = fs.OpentextFile (nom de fichier)
Iftxt.atendofstreamhen
Application ("compter") = 0 'S'il n'y a pas de données dans le fichier, la valeur de l'application ("compteur") est initialisée (pour la tolérance aux défauts)
autre
Application ("compteur") = txt.readline
endire
Application.lock
Application ("compteur") = application ("compteur") + 1
Application.unlock
FonctionsAVE_'save Count Fonction
setfs = server.createObject ("scripting.filesystemObject")
filename = server.mappath ("count.txt")
contenu = application ("compteur")
Settxt = fs.OpentextFile (nom de fichier, 2, true)
txt.writeContent
setfs = rien
Finition de fin
Save_'Call Save Fonction pour enregistrer les données
Fonction FunctionDigital (compteur) 'Afficher la fonction de données
Dimi, Mystr, Sunter
dynamisme = CSTR (compteur)
Fori = 1ToCounter_Lenth-Len (SONDER)
Mystr = mystr & "0"
'Mystr = mystr & "<imgsrc = le transformez-le dans le répertoire relatif où vous stockez votre propre image / 0.gif>"' S'il y a des photos, vous pouvez appeler cette déclaration
Suivant