Saya baru saja menemukan konter. Karena situs web ini memiliki terlalu sedikit kunjungan, itu benar -benar sedikit lusuh untuk menempatkan konter di sana, jadi saya hanya bisa membuat yang sederhana, yang dapat diakses dan direkam sekali untuk mendukung etalase. Saya dulu punya satu, tetapi saya tertekan karena saya tidak dapat menemukannya. Saya menyanyikannya secara online dan akhirnya menyelesaikannya. Kode program spesifik adalah sebagai berikut.
Kode untuk Count.asp adalah:
Salinan kode adalah sebagai berikut:
<%
OptionExplicit
dimfs, nama file, txt, konten, total, counter_lenth
counter_lenth = 1 'Mengatur panjang minimum dari data yang ditampilkan. Jika kurang dari panjang aktual, panjang sebenarnya akan berlaku.
setfs = server.CreateObject ("Scripting.FilesystemObject")
filename = server.mappath ("count.txt")
Ifnotfs.fileexists (nama file) lalu
fs.createTextFileFileName, true, true
settxt = fs.opentextfile (nama file, 2, true)
txt.write0'if tidak ada file yang menyimpan data, membuat file baru dan menulis data 0
setfs = tidak ada
endif
settxt = fs.opentextFile (nama file)
Iftxt.atendofstreamThen
Aplikasi ("Counter") = 0 'Jika tidak ada data dalam file, nilai aplikasi ("counter") diinisialisasi (untuk toleransi kesalahan)
kalau tidak
Aplikasi ("counter") = txt.readline
endif
Application.lock
Aplikasi ("Counter") = Aplikasi ("Penghitung")+1
Application.unlock
Fungsi Hitungan FunctionsAve_Save
setfs = server.CreateObject ("Scripting.FilesystemObject")
filename = server.mappath ("count.txt")
konten = aplikasi ("penghitung")
settxt = fs.opentextfile (nama file, 2, true)
txt.writecontent
setfs = tidak ada
Fungsi endfungsi
save_'call simpan fungsi untuk menyimpan data
FunctionDigital (Counter) 'Tampilan Fungsi Data
Dimi, mystr, scounter
scounter = cstr (counter)
Fori = 1tocounter_lenth-len (scounter)
Mystr = mystr & "0"
'Mystr = mystr & "<imgsrc = ubah menjadi direktori relatif tempat Anda menyimpan gambar Anda sendiri/0.gif>"' Jika ada gambar, Anda dapat memanggil pernyataan ini
Berikutnya