Recommandé: ASP Counter de texte simple % Set fs = createObject (scripting.fileSystemObject) wfile = server.mappath () cgi-binwww.111cn.cn/asp/asp.html.txt sur l'erreur reprendre la prochaine
Jetons un coup d'œil au tutoriel d'exemple ci-dessous.
Jetons un coup d'œil à la page soumise:
<Form action = SaveInfo.asp Method = Post>
<! - Vos champs ici ->
<Type d'entrée = soumettre une valeur = soumettre>
</ form>
Jetons un coup d'œil à la page qui reçoit des données et les enregistre.
<%
Set fs = createObject (scripting.fileSystemObject)
Folderpath = server.mappath () & / cgi-bin / messages143718
WCounter = FolderPath & / Counter.txt
Set fs = createObject (scripting.fileSystemObject)
Si fs.folderexists (FolderPath) alors
Définir A = Fs.OpentextFile (WCounter)
Hits = CLNG (A.Readline)
Hits = Hits + 1
a.close
autre
Définir A = Fs.CreateFolder (FolderPath)
Hits = 1
terminer si
Set a = fs.CreateTextFile (WCounter, true)
A.Writeline (Hits)
a.close
Définir FS = rien
Set fs = createObject (scripting.fileSystemObject)
Définir A = Fs.CreateTextFile (FolderPath & & Hits & .txt)
Pour chaque x dans la demande.form
A.WriteLine (x &: & request.form (x))
Suivant
a.close
Définir A = rien
Définir FS = rien
%>
Partager: Code des statistiques des utilisateurs en ligne ASP Copiez simplement la table de code dans un fichier texte et enregistrez-le sur le site Web (/global.asa) dans le répertoire domestique. Script Language = VBScript Runat = Server Sub Application_onStart Application (ActiveVisiTors) = 0 End Sub Sub Application_onend End Sub Sub Session_onstart Application.lock AP