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 'Penayangan bulan ini + 1
kalau tidak
rs1("hitmonths") = 1 'Penayangan bulan ini + 1
berakhir jika
jika tanggaliff("d",hittime,now()) > 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 ada ditumpangkan.
rs1("minggu hits") = 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("minggu hits") = 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
%>