Κείμενο Counter

Καταχωρήθηκε στις 4 Μαρ, 2009 σε ASP από admin

Τώρα, δημιουργούν ένα φάκελο που ονομάζεται μετρητές ή μπορείτε να καλέσετε είναι κάτι άλλο, αν θέλετε μόνο να θυμόμαστε και να αλλάξετε τον κωδικό παραπάνω. Τώρα να δημιουργήσετε ένα αρχείο κειμένου που ονομάζεται counter1.txt και καταχωρήστε ό, τι θέλετε να ξεκινήσετε την καταμέτρηση σε.

<% @ Language = VBScript%>
<%
Dim FSO
Set FSO = Server.CreateObject ( "Scripting.FileSystemObject")
/ / αυτή είναι η διαδρομή προς το αρχείο counter1.txt
counter = Server.MapPath ( "/ μετρητές") & "\ counter1.txt"
/ / άνοιγμα του αρχείου κειμένου
Ορισμός InStream = fso.OpenTextFile (counter, 1, False)
oldCount = TRIM (InStream.ReadLine)
/ / oldcount την αύξηση κατά 1 και φυλάσσεται στο newcount
newCount = oldCount + 1
Ορισμός OutStream = fso.CreateTextFile (counter, Αληθές)
/ / αντίγραφο newcount στο αρχείο κειμένου
OutStream.WriteLine (newCount)
%>

Τώρα μπορείτε να τοποθετήσετε το folllowing όπου θέλετε τα αντίβαρα να εμφανίζονται στην ιστοσελίδα σας

<% = NewCount%>

Σχετικές θέσεις:

  1. Πιο ακριβές κείμενο της Αυτή είναι πιο ακριβή από την προηγούμενη παράδειγμα μας ...
  2. Εμφάνιση CSV αρχείου Εμφάνιση CSV αρχείο CSV αρχεία είναι κοινά μορφότυπα για την ...
  3. Η αποθήκευση μιας CSV αρχείο σε μια βάση δεδομένων Δημιουργήστε μια βάση δεδομένων για την πρόσβαση που ονομάζεται stock.mdb. Τώρα, δημιουργούν ...
  4. rndimage1 Αυτή είναι μια απλή τυχαία εικόνα σενάριο το οποίο είναι ιδανικό ...
  5. Γράψτε το κείμενο σε ένα αρχείο Το παράδειγμα αυτό χρησιμοποιεί ρεύματα για να γράψετε το κείμενο σε ένα αρχείο ...

Σχετικές θέσεις έφερε σε σας από ένα ακόμη Σχετικές Θέσεις Plugin.

Καταχωρίστε ένα σχόλιο