Informasi statistik ASP/metode artikel harian, mingguan, bulanan, dan total kunjungan, teman-teman yang membutuhkan dapat merujuknya. Copy kode kodenya sebagai berikut:
<%
'//tipe tanggal hittime: dapatkan waktu akses terakhir
'//hit tipe numerik: dapatkan total tampilan halaman
'//tipe numerik hitsday: dapatkan jumlah penayangan hari ini
'//tipe numerik hitsweeks: dapatkan jumlah penayangan minggu ini
'//tipe numerik hitmonths: dapatkan jumlah penayangan bulan ini
'Tambahkan 5 bidang ini ke database.
setel rs1=server.CreateObject(adodb.recordset)
rs1.open pilih * dari qwbmnewssss di mana id=26,sambung,1,3
jika rs1.eof dan rs1.bof maka
respon.tulis erry
kalau tidak
hittime = rs1(hittime) 'Dapatkan waktu akses terakhir
redup hariSekarang, bulanSekarang, minggu sekarang
dayNow = day(date()) 'Sekarang hari apa?
moonNow = bulan(tanggal()) 'Sekarang bulan apa?
weekNow = weekday(date()) 'Hari saat ini dalam minggu 0 adalah Minggu
rs1(hits) = rs1(hits) + 1 'Jumlah total penayangan + 1
if dateiff(d,hittime,now()) = 0 maka 'Bandingkan tanggal akses terakhir dengan waktu dan jumlah hari saat ini
rs1(hitsday) = rs1(hitsday) + 1 'Penayangan hari ini + 1
kalau tidak
rs1(hitsday) = 1 'Penayangan hari ini = 1
berakhir jika
jika bulanSekarang = bulan(waktu klik) maka
rs1(hitmonths) = rs1(hitmonths) + 1 'Tayangan bulan ini + 1
kalau tidak
rs1(hitmonths) = 1 'Tayangan bulan ini + 1
berakhir jika
jika tanggaliff(d,hittime,sekarang()) > 6 maka 'Ada masalah saat memproses periode minggu ini. Jika waktu sebelumnya adalah hari Jumat dan akses berikutnya adalah hari Selasa minggu berikutnya, catatan akan tetap ditumpangkan .
rs1(hitsweek) = 1
kalau tidak
jika mingguSekarang <> 1 lalu
rs1(minggu hits) = rs1(minggu hits) + 1
kalau tidak
weekNowss = weekday(hittime) 'Hari terakhir dikunjungi
jika mingguSekarang = mingguSekarang, maka
rs1(minggu hits) = rs1(minggu hits) + 1
kalau tidak
rs1(hitsweek) = 1
berakhir jika
berakhir jika
berakhir jika
rs1(hittime) = now() 'Perbarui pertanyaan kunjungan terakhir
rs1.perbarui
%>
Perbandingan waktu: <%=datediff(d,hittime,now())%><br />
Waktu saat ini: <%=sekarang()%><br />
Waktu klik terakhir: <%=hittime%><br />
Hari ini: <%=dayNow%><br />
Bulan ini: <%=monthNow%><br />
Minggu ini: <%=weekNow%><br />
Total penayangan: <%=rs1(hits)%><br />
Kunjungan hari ini: <%=rs1(hitsday)%><br />
Kunjungan mingguan: <%=rs1(hitsweeks)%><br />
Jumlah kunjungan bulan ini: <%=rs1(hitmonths)%><br />
<%
berakhir jika
rs1.tutup
atur rs1=tidak ada
%>