Teks Counter

Posted on 4 Maret 2009 di LEU oleh admin

Sekarang membuat folder bernama counters Anda dapat memanggil atau hal lainnya jika Anda ingin hanya ingat dan mengganti kode di atas. Sekarang membuat sebuah file teks bernama counter1.txt dan memasukkan apa yang ingin Anda mulai menghitung di.

<% @ Language = VBScript%>
<%
Dim fso
Set fso = Server.CreateObject ( "Scripting.FileSystemObject")
/ / ini adalah path ke file counter1.txt
counter = Server.MapPath ( "/ counter") & "\ counter1.txt"
/ / membuka file teks
Set InStream = fso.OpenTextFile (counter, 1, False)
oldCount = Trim (InStream.ReadLine)
/ / kenaikan yang oldcount oleh 1 dan simpan di newcount
newCount = oldCount + 1
Set OutStream = fso.CreateTextFile (counter, True)
/ / salin newcount ke file teks
OutStream.WriteLine (newCount)
%>

Sekarang Anda akan menempatkan folllowing di mana Anda ingin penghitung untuk muncul di situs Anda

<% = NewCount%>

Posting terkait:

  1. Lebih akurat teks counter ini adalah yang lebih akurat dari counter contoh kami sebelumnya ...
  2. Menampilkan file CSV Tampilkan file CSV file CSV adalah format umum untuk ...
  3. Menyimpan file CSV ke database Buat database di akses disebut stock.mdb. Sekarang membuat ...
  4. rndimage1 Ini adalah gambar acak script sederhana yang sangat ideal ...
  5. Menulis teks ke file Contoh ini menggunakan sungai untuk menulis teks ke file ...

Terkait posting kepada Anda oleh Namun lain Related Posts Plugin.

Kirim komentar