Text Counter

Postat pe 4 martie 2009, în ASP de admin

Acum, creaţi un folder numit contoare sau puteţi spune cu totul altceva dacă doriţi doar amintesc şi schimba codul de mai sus. Acum, creaţi un fişier text numit counter1.txt şi introduceţi orice ai vrea să încep de la conta.

<% @ Language = VBScript%>
<%
Dim fso
Setare fso = Server.CreateObject ( "Scripting.FileSystemObject")
/ / aceasta este calea pentru a vă counter1.txt fişier
contra = Server.MapPath ( "/ contoare") & "\ counter1.txt"
/ / deschide fişierul text
Setare InStream = fso.OpenTextFile (contra, 1, false)
oldCount = TRIM (InStream.ReadLine)
/ / spor de oldcount de 1 şi păstra în newcount
newCount = oldCount + 1
Setare OutStream = fso.CreateTextFile (contra, True)
/ / copie newcount la fişier text
OutStream.WriteLine (newCount)
%>

Acum tu ar folllowing de locul unde vrei contra pentru a apărea pe site-ul dvs.

<% = NewCount%>

Legate de posturi:

  1. Mai precis text contra Aceasta este o mai mare precizie decât contra exemplul anterior ...
  2. Afişează un fişier CSV Afişează un fişier CSV CSV sunt comune formate de fisiere pentru a ...
  3. Salvarea unui fisier CSV la o bază de date Crearea unei baze de date de acces la numit stock.mdb. Acum crea ...
  4. rndimage1 Acesta este un simplu aleator imaginea de script-ul, care este ideal ...
  5. Scrieţi într-un fişier text Acest exemplu utilizează fluxuri pentru a scrie un fişier text pentru a ...

Legate de posturi au adus la tine de un alt Related Posts Plug-in-ului.

Adaugă un comentariu