Di Internet, penghitung yang ditulis dalam ASP ada di mana-mana. Saya merasa tidak ada gunanya membicarakan penghitung yang ditulis dalam ASP di sini. Nanti saya pikir perlu dibicarakan, karena ini bukan sekedar menulis counter, tapi juga memperkenalkan ilmu dan skill penerapan ASP kepada semua orang.
Kode asli programnya adalah sebagai berikut:
$#@60 ;%hitungan panjang=8
'countlong menentukan jumlah digit tampilan counterOn Error Resume Next
′ Abaikan semua kesalahan count=server.mappath(″count.txt″)
set cou = server.createobject(″scripting.filesystemobject″)
set out=cou.opentextfile(hitungan,1,salah,salah)
counter=keluar.readline
keluar.dekat
′Kode di atas adalah untuk membuka file count.txt dan membaca baris untuk membaca nilai penghitung saat ini if session(″in″)$#@60;$#@62;″in″ lalu
'Tentukan apakah pengguna telah memasuki beranda untuk memastikan bahwa penghitung tidak akan bertambah 1 ketika dia menekan segarkan atau membuka halaman ini lagi.
sesi(″dalam″)=″dalam″
set out = cou.createtextfile(hitungan,benar,salah)
aplikasi.lock
penghitung=penghitung+1
'Penghitung ditambah 1
keluar.writeline(penghitung)
aplikasi.buka kunci
keluar.dekat
'Kode di atas untuk membuat file baru count.txt dan menulis baris, tulis nilai penghitung setelah menambahkan 1 akhir jika
co=cstr(penghitung)
Fungsi 'cstr digunakan untuk mengubah variabel numerik menjadi tipe karakter untuk i = 1 hingga countlong-len(co)
respon.tulis ″″
Berikutnya
'Pernyataan loop di atas adalah untuk menyelesaikan penjumlahan gambar 0 di depan penghitung' Fungsi len(co) adalah untuk mendapatkan panjang variabel co, countlong-len(co) akan mendapatkan bilangan 0 sebelumnya gambar untuk i= 1 sampai len(co)
respon.tulis ″″
Berikutnya
Fungsi ′mid(co,i,1) digunakan untuk membaca karakter % dimulai dari posisi ke-i variabel co $#@62 ;
Bagian paling sukses dari penghitung ini adalah menggunakan sesi untuk mencegah pengguna menyegarkan penghitung beberapa kali; file teks digunakan untuk mencatat nilai penghitung meskipun kodenya lebih panjang untuk ditulis, ini jauh lebih baik daripada menggunakan aplikasi objek, karena ketika server di-boot ulang atau Ketika global.asa diubah, nilai objek aplikasi akan dihapus dan gambar digunakan sebagai pengganti karakter, yang terlihat lebih indah!
Anda bisa mendesain sendiri gambar counternya. Gunakan nama file 0.gif untuk 0, 1.gif untuk 1, dan seterusnya.