Buat statistik situs web sederhana
Ide Desain: Memicu Sesi Server untuk merekam status login pengguna saat menggunakan permintaan halaman web pengguna karena aktivitas paling banyak dari setiap halaman web adalah file confon.asp, kami menggunakan file ini untuk melakukan pemrosesan informasi pengguna online Pengguna adalah 20 menit, pengguna ketika tidak ada permintaan halaman web, hapus pengguna ini.
1. Tabel Data: Kami menambahkan dua tabel ke database
Tabel Baris: Karakter Sesi Tipe 20 -Bit untuk merekam tanda unik dari permintaan halaman web pelanggan
Jenis Waktu Tanggal Pengguna Untuk Merekam Waktu Permintaan Halaman Web Terakhir Pelanggan
ID Jenis Angka Otomatis
Anda juga dapat merekam informasi lain dalam tabel ini, seperti akun, IP dan informasi lainnya
Tabel Hitung: Jenis Waktu Tanggal Pengguna digunakan untuk merekam tanggal hari ini
Hitung Jenis Digital digunakan untuk merekam volume klik situs web
Jenis digital saat ini digunakan untuk merekam volume akses saat ini
Max Digital Type digunakan untuk merekam kunjungan maksimum hari ini
Dalam tabel ini, karena hanya ada satu catatan, tidak perlu menggunakan bidang ID, tetapi mempertahankan bidang ID adalah kebiasaan yang baik
2. Gunakan con.asp untuk memproses tabel garis
(1) Sambungkan database
redup conn
Connstr
redup db
db = "date/date.mdb"
Set Conn = Server.CreateObject ("AdodB.Connection")
Connstr = "provider = microsoft.jet.oledb.4.0; sumber data =" & server.mappath ("" & db & "")
Conn.open Connstr
(2) CLEAR CATATAN Timeout
Conn.execute ("Hapus dari baris di mana tanggal (" "s", userdate, now ())> = 1200 ")
(3) Catat informasi pelanggan ke tabel garis dan lakukan pemrosesan statistik situs
Diml DIM, SQL1, RS, RS1
Set RS = Server.CreateObject ("ADODB.OldSet")
sql = "pilih * dari baris di mana [sessionid] =" "" & session.SessionId & "" "Tentukan apakah permintaan halaman web awal pelanggan tersebut
Rs.oopen Sql, Conn, 1,3
Jika tidak rs.eof maka "Jika itu adalah permintaan halaman web asli, catat informasi pelanggan, jika tidak, ia hanya akan mengubah waktu permintaan
Rs ("userdate") = now ()
kalau tidak
Set RS1 = server.CreateObject ("adodb.oldset") "
sql1 = "pilih * dari [hitungan]"
RS1.Open SQL1, Conn, 1,3
Jika rs.eof maka "Jika tidak ada catatan dalam tabel, inisialisasi tabel ini
rs.addnew
Rs ("count") = 1
rs ("max") = 1
Rs ("hari ini") = 1
Rs ("userdate") = date ()
kalau tidak
Rs1 ("count") = rs1 ("count") 1 "situs web klik hitungan hitungan
Jika RS1 ("UserDate") = Date () maka "Jika tanggal sistem sama dengan tanggal terakhir catatan data, tambahkan 1 kunjungan 1
Rs1 ("hari ini") = rs1 ("hari ini") 1
Jika lain berbeda, atur Volume Akses Harian 1, dan ubah tanggal catatan data ke Tanggal Server
Rs1 ("hari ini") = 1
Rs1 ("userdate") = date ()
akhiri jika
RS1.Pdate
Jika RS1 ("Max") <= RS1 ("Hari Ini") maka 'Jika statistik hari itu melebihi kunjungan harian maksimum, perbarui kunjungan harian maksimum
Rs1 ("max") = rs1 ("hari ini")
akhiri jika
akhiri jika
RS1.Pdate
Rs1.close
atur rs1 = tidak ada
Rs.addnew "Berikut ini adalah informasi pengguna
rs ("sessionId") = session.SessionId "untuk menulis sessionid ke dalam tabel data
rs ("userdate") = now () Tulis tanggal sistem ke tabel data
akhiri jika
rs.update
Rs.close
Setel RS = Tidak Ada
Pemrosesan di atas hanya siap untuk statistik.
<!-#termasuk file = "conn.asp"->
<% Jumlah redup, hari ini, maks, baris
Set RS = Server.CreateObject ("ADODB.OldSet")
SQL = "SELECT * from [count]" "
Rs.oopen Sql, Conn, 1,1
Hari ini = rs ("hari ini")
Count = RS ("Count")
max = rs ("max")
Rs.close
Setel RS = Tidak Ada
Set RS = Server.CreateObject ("ADODB.OldSet")
sql = "Pilih hitungan (*) dari baris"
Rs.oopen Sql, Conn, 1,1
Baris = rs (0)
Rs.close
Setel RS = Tidak Ada
%>
Kami telah menyiapkan statistik situs web di atas, dan menempatkannya dalam jumlah variabel, hari ini, max, line. Tidak, jadi kita harus menggunakan kalimat berikut untuk mengeluarkan konten statistik:
Document.write ("Kunjungan Situs Web: <%= Count%> People <br>")
Document.write ("Hari ini: <%= hari ini%> Orang mengunjungi situs ini <br>")
Document.write ("Kunjungan harian tertinggi dari Situs ini: <%= Max%> People <br>")
Document.write ("Online Saat Ini: <%= line%> People")
Kami menggunakan <skrip src = "line.asp"> </script> untuk mengutip file ini