Lebih akurat teks counter

Posted on 4 Maret 2009 di LEU oleh admin

Ini adalah lebih akurat dari counter contoh kami sebelumnya, dalam contoh ini hitungan hanya sekali mendapat incremented per sesi. Ini berarti Anda akan menghitung lebih akurat jika Anda inginkan yang.

Buat txt file dan Anda mulai memasukkan nomor di dalamnya. Kemudian salin kode di bawah ini di mana Anda ingin penghitung untuk ditampilkan di halaman Anda.

Pada contoh di bawah counter.txt ditempatkan dalam direktori yang sama dengan halaman ini, jika Anda menempatkan txt file di tempat lain ingat dan mengubah Server.MapPath bagian dari kode tersebut.

Pengunjung ke

<%
'Membuat FileSystemObject
Set objFSO = CreateObject ( "Scripting.FileSystemObject")
'Ini path ke file kami counter
CounterFile = Server.MapPath ( "counter.txt")
Set objCount = objFSO.OpenTextFile (CounterFile)
visitorcount = CLng (objCount.ReadLine)
Sesi jika ( "visitorcount") = "" kemudian
Session ( "visitorcount") = visitorcount
visitorcount = visitorcount + 1
objCount.close
Set objCount = objFSO.CreateTextFile ( "counter.txt", True)
objCount.WriteLine (visitorcount)
akhir jika
objCount.Close
'Menampilkan count
Response.Write visitorcount
%>

Posting terkait:

  1. Counter teks Sekarang membuat folder bernama counter atau anda dapat menghubungi ...
  2. Menampilkan file CSV Tampilkan file CSV file CSV adalah format umum untuk ...
  3. User aktif dalam LEU kode ini menunjukkan bagaimana cara untuk menampilkan banyak aktif ...
  4. aspactiveusers kode ini menunjukkan bagaimana cara untuk menampilkan banyak aktif ...
  5. Menyimpan file CSV ke database Buat database di akses disebut stock.mdb. Sekarang membuat ...

Terkait posting kepada Anda oleh Namun lain Related Posts Plugin.

Kirim komentar