Contoh statistik yang dapat berjumlah pengunjung, kunjungan catatan, IP, dan waktu
Saya membuat situs web, www.zydn.net, tentu saja, seperti orang lain, saya juga bertanding di atasnya. Saya melihat penghitung terus -menerus terbalik setiap hari, dan saya sangat senang, tetapi kemudian saya berpikir, siapa yang menonton situs web saya? Teman baru atau teman lama? Saya tidak tahu berapa kali mereka datang, tetapi saya masih ingin memberi nomor semuanya, jadi saya mengajukan statistik gratis, tetapi saya tidak puas dengan perubahan N dalam satu baris. Sayangnya, tampaknya hanya dengan melakukannya sendiri, Anda dapat memiliki cukup makanan dan pakaian, dan melakukannya seperti yang Anda katakan. Levelnya bau. Saya berharap para tuan akan menertawakannya dan tidak meminta nasihat.
Saya mengambil perpustakaan akses sebagai contoh. Bahkan, menggunakan pustaka SQLServer, Anda bisa mengubah pernyataan di pustaka tautan.
Struktur perpustakaan adalah sebagai berikut
Nama File Perpustakaan: Cont.asp awalnya cont.mdb, tetapi setelah build, ekstensi diubah menjadi ASP untuk mencegah perpustakaan diunduh.
Nama Tabel: Tab
Nama Data Nama Data Deskripsi
ID secara otomatis memberi nomor nomor pengunjung
Teks IP digunakan untuk merekam IP pengunjung
Waktu tanggal DAT1 digunakan untuk merekam pengunjung pengunjung terakhir
waktu tanggal waktu digunakan untuk mencatat waktu ketika pengunjung pertama kali kunjungan
Nomor CS, Jenis Integer digunakan untuk mencatat jumlah kunjungan ke pengunjung
Program ini sangat sederhana, hanya ada dua file, Dispcont.asp digunakan untuk menampilkan hasil statistik, contpage.asp digunakan untuk menampilkan informasi statistik,
Pertama -tama mari kita lihat statistik contpage.asp, dan kodenya adalah sebagai berikut:
<%
SetConn = server.CreateObject ("adodb.connection")
Connstr = "dbq ="+server.mappath ("cont.asp")+"; defaultdir =; driver = {microsoft accessDriver (*. Mdb)};"
Conn.openconnstr '***** Pernyataan di atas digunakan untuk terhubung ke perpustakaan, dan cont.asp adalah nama file pustaka.
keren = request.cookies ("keren") 'baca cookie, nama cookie adalah: "keren", haha. . Literatur E Yu sangat buruk sehingga dia hanya tahu cara menggunakan pinyin.
ifkeren = "" Lalu tute apakah cookie kosong. Jika mereka kosong, mereka pasti teman baru, jika tidak mereka adalah teman lama.
sql = "pilih*fromtabwhereid = -1"
setRs = server.CreateObject ("adodb.recordset")
rs.opensql, Conn, 1,3
rs.addnew'if Ini adalah pengunjung baru, tambahkan catatan baru di perpustakaan.
RS ("CS") = 1 'Perhatikan jumlah kunjungan adalah 1
rs ("ip") = request.serverVariable ("remote_addr") 'Perhatikan IP,
rs ("dat") = Now'tell Me the Date and Time saat ini,
rs ("dat1") = Date'tell tanggal saat ini, dan tanggal yang akan digunakan untuk kunjungan pertama di masa depan.
response.cookies ("keren") = rs ("id") 'Tulis cookie dan kontennya sama dengan ID.