Contoh produksi statistik yang dapat menghitung jumlah pengunjung dan mencatat jumlah kunjungan, IP, dan waktu
Saya membuat situs web, www.zydn.net. Tentu saja, seperti orang lain, saya juga memasang penghitung di atasnya. Saya melihat penghitungnya terus berputar setiap hari, dan saya merasa sangat senang itu? Situs web saya? Apakah mereka teman baru atau teman lama? Saya tidak tahu berapa kali mereka datang, dan saya ingin menomori semuanya, jadi saya mengajukan statistik gratis, tetapi saya mencoba N angka berturut-turut dan masih belum puas cukup makanan dan pakaian untuk melakukannya sendiri. Kering saja, levelnya bau, saya harap para ahli akan menertawakannya, dan saya tidak akan meminta saran.
Saya mengambil perpustakaan ACCESS sebagai contoh. Sebenarnya, untuk menggunakan perpustakaan SQL SERVER, Anda hanya perlu mengubah pernyataan perpustakaan tautan.
Struktur perpustakaan adalah sebagai berikut
Nama file perpustakaan: CONT.ASP Awalnya CONT.MDB tetapi setelah dibuat, ekstensinya diubah menjadi ASP untuk mencegah perpustakaan diunduh.
Nama tabel: tab
Deskripsi tipe data nama bidang
ID Secara otomatis memberi nomor pada nomor pengunjung
Teks IP digunakan untuk mencatat IP pengunjung
tanggal dan waktu dat1 digunakan untuk mencatat terakhir kali pengunjung berkunjung
tanggal dan waktu digunakan untuk mencatat waktu kunjungan pertama pengunjung
Nomor CS, bilangan bulat yang digunakan untuk mencatat jumlah kunjungan pengunjung
Programnya sangat sederhana, hanya dengan dua file, dispcont.asp digunakan untuk menampilkan hasil statistik, dan contpage.asp digunakan untuk informasi statistik.
Mari kita lihat dulu statistik CONTPAGE.ASP. Kodenya adalah sebagai berikut:
<%
Setel Koneksi=Server.CreateObject(ADODB.Connection)
Connstr=DBQ=+server.mappath(cont.asp)+;DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};
Conn.Open connstr '*****Pernyataan di atas digunakan untuk terhubung ke perpustakaan, cont.asp adalah nama file perpustakaan.
keren=request.cookies(keren) 'Baca cookies, nama cookiesnya: keren, haha. . E Ah Yu adalah seorang sastrawan yang menyebalkan, dan dia hanya tahu cara menggunakan pinyin.
if keren= maka 'Pastikan apakah cooksnya kosong, maka pasti teman baru, jika tidak maka teman lama.
sql=PILIH * DARI tab di mana id=-1
set rs=server.createobject(ADODB.Recordset)
rs.Buka sql, samb., 1, 3
rs.addnew 'Jika pengunjung baru, tambahkan catatan baru di perpustakaan.
rs(cs)=1 'Ingat jumlah kunjungan sebagai 1
rs(ip)=request.servervariables(remote_addr) 'Ingat IP-nya,
rs(dat)=now 'Ingat tanggal dan waktu saat ini,
rs(dat1)=date 'Ingat tanggal sekarang dan gunakan sebagai tanggal kunjungan pertama nanti.
respon.cookies(keren)=rs(id) 'Tulis cookie, isinya sama dengan ID.
respon.cookies(keren).expires=date+365 'Tetapkan tanggal validitas cookie mulai sekarang, 365 hari,
else 'Di atas adalah cara menghadapi teman baru. Apa yang sebaiknya kita lakukan terhadap teman lama? Tonton di bawah:
sql=PILIH * DARI tab di mana id=&keren 'Buka database untuk menemukan catatan teman lama kita
set rs=server.createobject(ADODB.Recordset)
rs.Buka sql, samb., 1, 3
rs(cs)=rs(cs)+1 'Oke, ketemu, tambahkan 1 ke jumlah kunjungan
rs(ip)=request.servervariables(remote_addr) 'Lihat IP-nya dan tuliskan.
rs(dat)=now 'Ingat waktu saat ini, yang merupakan waktu kunjungan terakhir,
respon.cookies(keren)=rs(id) 'Tulis cookie lagi. Saya tidak tahu apakah kalimat ini berlebihan, saya belum mencobanya.
respon.cookies(keren).expires=date+365 'Tetapkan waktu kedaluwarsa cookie sehingga saya tidak akan mengenalinya ketika satu tahun telah berlalu.
berakhir jika
rs.update 'Semua yang perlu diperhatikan sudah saya tulis, ayo perbarui perpustakaannya.
rs.close 'Tutup objek kumpulan rekaman.
set conn=nothing 'Rilis samb, menurut saya koneksi harus dibuka dan ditutup kapan saja. Menurut saya, paling tidak diinginkan untuk meletakkannya di SESSION. 4
%>
Oke, catatannya sudah siap, ada lebih dari 20 baris kode. Ini program kecil yang sangat sederhana, tapi menurut saya yang ahli pasti punya trik yang cerdik. Teman-teman yang punya trik yang pandai jangan lupa mengajari Ayu.
Setelah program ditulis, bagaimana cara menaruhnya di halaman? Caranya sangat sederhana, cukup cari tempat di beranda dan tambahkan baris kode ini: <img src=contpage.asp width=0 height=0>.
Langkah selanjutnya adalah menunjukkan rekor. Ada banyak orang yang bisa lebih baik dari Ayu, tapi saya tetap ingin menunjukkan keburukan saya.
Nama file : dispcont.asp, silahkan lihat kodenya :
<%
Setel Koneksi=Server.CreateObject(ADODB.Connection)
Connstr=DBQ=+server.mappath(cont.asp)+;DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};
Conn.Open connstr '*****Pernyataan di atas digunakan untuk terhubung ke perpustakaan, cont.asp adalah nama file perpustakaan.
halaman3=permintaan(halaman)
jika halaman3= maka halaman3=sesi(lanjutanhalaman) 'Jumlah halaman, halaman saat ini
jika halaman3= maka halaman3=1
pa=permintaan(pa)
jika pa= maka pa=sesi(lanjutan) 'Tampilkan nomor per halaman
jika pa= maka pa=15 'Secara default, 15 item ditampilkan di setiap halaman, yang dapat diubah sesuka hati.
sesi(halaman lanjutan)=halaman3
sesi(lanjutan)=pa
page=pa 'Nomor tampilan per halaman******************Program di atas digunakan untuk mengimplementasikan fungsi paging
SQL=PILIH * DARI urutan tab berdasarkan -dat,-id
redup
Setel rs=Server.CreateObject(ADODB.RecordSet)
rs.Buka sql, samb., 1,1
csi=0
cs1=0
cs100=0
csdat1=0
lakukan selagi tidak rs.eof
csi=csi+rs(cs)
jika rs(cs)=1 maka cs1=cs1+1
jika rs(cs)>=100 maka cs100+1
jika nilai tanggal(rs(dat))=tanggal maka
csdat1=csdat1+1
berakhir jika
rs.movenext
lingkaran
ZS=RS.RECORDCOUNT
'******************************************************* ***8Program berikut digunakan untuk tampilan paging
%>
<kepala>
<title>Statistik Komputer yang Luar Biasa</title>
</kepala>
<gaya tubuh=ukuran font: 9pt bgcolor=#D8EDF8>
Ada total catatan <%Response.Write zs%>, dan halaman saat ini adalah <%Response.Write page3%>. Setiap halaman menampilkan: [<a href=dispcont.asp?pag=<%=page3%> &pa=15>15 ] item, [<a href=dispcont.asp?pag=<%=page3%>&pa=20>20] item, [<a href=dispcont.asp?pag=<%=page3%>&pa=30>30] item, [<a href=dispcont.asp?pag=<%=page3%>&pa=40>40] item
[<a href=dispcont.asp>Segarkan]
<div rata=kiri>
<batas tabel=0 cellpadding=0 style=ukuran font: 9pt>
<tr><td>Nomor halaman</td><%page2=1
untuk halaman langkah i=1 hingga zs
jika halaman3=cstr(halaman2) maka
%><td >[<%Response.Tulis halaman2%>]</td>
<% lain %>
<td ><a href=dispcont.asp?pag=<%Response.Write page2%>>[<%Response.Write page2%>]</td>
<% berakhir jika
halaman2=halaman2+1
Berikutnya
sn=pages*(page3-1) 'Nomor catatan saat ini=jumlah yang ditampilkan per halaman*jumlah halaman-nomor yang ditampilkan per halaman
jika sn>zs maka sn=0
rs.pindah sn,1
'************************************Paragraf di atas digunakan untuk paging
%> </tr></tabel>
</div> <gaya tabel=ukuran font: lebar 9pt=100% bordercolorlight=#000000 border=1 bordercolordark=#FFFFFF bgcolor=#A4D1E8 Cellspacing=0 cellpadding=3>
<tr><td>Nomor</td><td>Halaman beranda yang terakhir dikunjungi</td><td>IP yang terakhir dikunjungi</td><td>Jumlah halaman beranda</td><td>Tanggal kunjungan pertama</td > </tr><%
untuk i=1 ke halaman
Respon.Tulis </tr>
Respon.Tulis <td>&rs(ID)&</td>
Respons.Tulis <td>&rs(dat)&</td>
Respons.Tulis <td>&rs(IP)&</td>
Respons.Tulis <td>&rs(CS)&</td>
Respons.Tulis <td>&rs(DAT1)& </td>
Respon.Tulis </tr>
rs.movenext
jika rs.eof lalu keluar untuk
Berikutnya
rs.tutup
%>
<tr><td>Total<%=zs%></td><td>Jumlah kunjungan lebih dari 100 kali<%=cs100%> </td><td>Jumlah kunjungan 1:< % =cs1%></td><td>Jumlah total kunjungan<%=csi%></td><td>Kunjungan hari ini: <%=csdat1%></td></tr>
</tabel>
'****************************** Di atas adalah tampilan paginasi lengkap dan dapat digunakan setelah menyalin semuanya. Kasus dimana tidak ada satu catatan pun tidak dipertimbangkan.