Ich habe gerade einen Zähler gefunden. Da die Website zu wenige Besuche enthält, ist es wirklich ein bisschen schäbig, dort einen Schalter zu setzen, sodass ich nur einen einfachen erstellen kann, auf das einmal zugegriffen und aufgezeichnet werden kann, um die Ladenfront zu unterstützen. Früher hatte ich einen, aber ich war depressiv, dass ich es nicht finden konnte. Ich habe es online gesungen und schließlich erledigt. Der spezifische Programmcode ist wie folgt.
Der Code für count.asp ist:
Die Codekopie lautet wie folgt:
<%
OptionExPlicit
Dimfs, Dateiname, TXT, Inhalt, Total, counter_lenth
counter_lenth = 1 'legt die minimale Länge der angezeigten Daten fest. Wenn es geringer ist als die tatsächliche Länge, muss die tatsächliche Länge herrschen.
setfs = server.createObject ("scripting.filesystemObject")
Dateiname = Server.MAppath ("count.txt")
ifnotfs.FileExists (Dateiname) dann
fs.CreateTextFileFileName, wahr, wahr
settxt = fs.opentextfile (Dateiname, 2, true)
txt.write0'wenn es keine Datei gibt, die Daten speichert, eine neue Datei erstellen und Daten 0 schreiben
setfs = nichts
Endif
settxt = fs.opentextfile (Dateiname)
Iftxt.atendofstreamthen
Anwendung ("Zähler") = 0 'Wenn in der Datei keine Daten vorhanden sind, wird der Wert der Anwendung ("Zähler") initialisiert (für die Fehlertoleranz)
anders
Application ("counter") = txt.readline
Endif
Application.lock
Application ("counter") = application ("counter")+1
Application.unlock
Funktionen für die Anzahl der Funktionen
setfs = server.createObject ("scripting.filesystemObject")
Dateiname = Server.MAppath ("count.txt")
content = application ("counter")
settxt = fs.opentextfile (Dateiname, 2, true)
txt.writecontent
setfs = nichts
Endfunktion
Speichern Sie die Funktion speichern, um Daten zu speichern
FunktionDigital (Zähler) 'Anzeigedatenfunktion
Dimi, Mystr, Scott
SCOSTRENTE = CSTR (Zähler)
Fei = 1Tocounter_lenth-len (Scott)
Mystr = mystr & "0"
'Mystr = mystr & "<imgsrc = Ändern Sie es in das relative Verzeichnis, in dem Sie Ihr eigenes Bild/0.gif>"' Wenn Bilder vorhanden sind, können Sie diese Anweisung anrufen
Nächste