Empfohlen: ASP Einfacher Textzähler %SET fs = createObject (scripting.FilesSystemObject) WFILE = Server.Mappath () cgi-bininwww.111cn.cn/asp/asp.html.txt auf Fehlerresume Nächstes Set a = fs.opentextfile
Schauen wir uns das Beispiel -Tutorial unten an.
Schauen wir uns die eingereichte Seite an:
<Form action = SaveInfo.asp -Methode = post>
<!-Ihre Felder hier->
<Eingabe type = value = surven>
</Form>
Schauen wir uns die Seite an, die Daten empfängt und sie speichert.
<%
Setzen Sie fs = createObject (scripting.FilesSystemObject)
OrdnerPath = Server.MAppath () & /CGI-bin /messages143718
WCounter = OrdnerPath &/counter.txt
Setzen Sie fs = createObject (scripting.FilesSystemObject)
Wenn fs.Foderexists (OrdnerPath) dann
Setzen Sie a = fs.opentextFile (WCounter)
Hits = clng (A.Readline)
Hits = Hits + 1
A.CLOSE
anders
Setzen Sie a = fs.createfolder (OrdnerPath)
Hits = 1
Ende wenn
Setzen Sie a = fs.createTextfile (WCounter, True)
A. WriteLine (Hits)
A.CLOSE
Setzen Sie fs = nichts
Setzen Sie fs = createObject (scripting.FilesSystemObject)
Setzen Sie a = fs.createTextFile (OrdnerPath & & Hits & .txt)
Für jedes x in request.form.FORM
A.WriteLine (X &: & Request.Form (x))
Nächste
A.CLOSE
Setzen Sie a = nichts
Setzen Sie fs = nichts
%>
Teilen: ASP Online -Benutzerstatistikcode Kopieren Sie einfach die Code -Tabelle in eine Textdatei und speichern Sie sie in der Website (/global.asa) im Home -Verzeichnis. Skript Sprache = VBScript Runat = Server sub application_onstart application (ActiveVISITORS) = 0 End sub application_onend End sub sub session_onstart application.lock ap