Beranda>Tutorial Pemrograman Jaringan>tutorial ASP

Contoh produksi statistik ASP sederhana

Penulis：Eve Cole Waktu Pembaruan：2025-02-19 06:12:01

Contoh produksi statistik yang dapat menghitung pengunjung dan mencatat jumlah kunjungan, IP, dan waktu. Teman-teman yang membutuhkan bisa merujuknya.

Saya membuat situs web, dan tentu saja, seperti orang lain, saya juga memasang penghitung di dalamnya. Saya terus membaca penghitung tersebut setiap hari, yang membuat saya sangat senang. Tapi kemudian saya berpikir, siapa yang melihat situs web saya? teman atau teman lama? Entah sudah berapa kali mereka datang, tapi saya masih ingin menomori semuanya, jadi saya mengajukan statistik gratis, tapi saya masih belum puas setelah mengganti N angka berturut-turut untuk memiliki cukup makanan dan sandang berarti melakukannya sendiri. Saya tetap berharap para ahli akan menertawakannya dan tidak meminta nasihat.

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:

  1. <%SetConn=Server.CreateObject(ADODB.Koneksi)
  2. Connstr=DBQ=+server.mappath(cont.asp)+;DefaultDir=;DRIVER={MicrosoftAccessDriver(*.mdb)};
  3. Conn.Openconnstr'***** Pernyataan di atas digunakan untuk terhubung ke perpustakaan, dan cont.asp adalah nama file perpustakaan.
  5. keren=request.cookies(keren)'Baca cookies, nama cookiesnya: keren, haha. . E Ah Yu adalah kata sastra yang buruk, dan dia hanya tahu cara menggunakan pinyin.
  6. ifkeren=then' menentukan apakah cookes kosong. Jika kosong, maka itu pasti teman baru, jika tidak maka teman lama.
  8. sql=PILIH*DARItabdimanaid=-1
  9. setrs=server.createobject(ADODB.Recordset)
  10. rs.Opensql,sambungan,1,3
  11. rs.addnew'Jika pengunjung baru, tambahkan catatan baru di perpustakaan.
  12. rs(cs)=1'catat jumlah kunjungan sebagai 1
  13. rs(ip)=request.servervariables(remote_addr)' catat IPnya,
  14. rs(dat)=sekarang'Ingat tanggal dan waktu saat ini,
  15. rs(dat1)=date'Ingat tanggal sekarang dan gunakan sebagai tanggal kunjungan pertama di masa depan.
  16. respon.cookies(keren)=rs(id)'Tulis cookie, isinya sama dengan ID.
  17. respon.cookies(keren).expires=date+365'Tetapkan tanggal validitas cookies mulai dari sekarang, 365 hari,
  1. else'Di atas adalah cara menghadapi teman baru. Apa yang sebaiknya kita lakukan terhadap teman lama? Tonton di bawah:
  2. sql=SELECT*FROMtabwhereid=&keren'Pergi ke perpustakaan untuk menemukan catatan teman lama kita
  3. setrs=server.createobject(ADODB.Recordset)
  4. rs.Opensql,sambungan,1,3
  5. rs(cs)=rs(cs)+1'Oke, ketemu, tambahkan 1 ke jumlah kunjungan
  6. rs(ip)=request.servervariables(remote_addr)'Lihat apa IP-nya dan tuliskan.
  7. rs(dat)=now'Ingat waktu saat ini, yang merupakan waktu kunjungan terakhir,
  8. respon.cookies(keren)=rs(id)' lalu tulis cookie. Saya tidak tahu apakah kalimat ini mubazir, saya belum mencobanya.
  9. respon.cookies(keren).expires=date+365'Tetapkan waktu kedaluwarsa cookie sehingga saya tidak akan mengenalinya setelah satu tahun.
  1. endif
  3. rs.update' Saya sudah menuliskan semua yang harus ditulis, ayo perbarui perpustakaannya.
  4. rs.close'Tutup objek kumpulan rekaman.
  5. setconn=nothing' melepaskan samb. Saya masih berpikir bahwa koneksi harus dibuka dan ditutup kapan saja. 4%〉

Oke, pencatatan sudah selesai. Ada lebih dari dua puluh baris kode, dan ini adalah program kecil yang sangat sederhana.

Setelah program ditulis, bagaimana cara meletakkannya di halaman? 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 :

  1. <%
  2. SetConn=Server.CreateObject(ADODB.Koneksi)
  3. Connstr=DBQ=+server.mappath(cont.asp)+;DefaultDir=;DRIVER={MicrosoftAccessDriver(*.mdb)};
  4. Conn.Openconnstr'***** Pernyataan di atas digunakan untuk terhubung ke perpustakaan, dan cont.asp adalah nama file perpustakaan.
  6. halaman3=permintaan(halaman)
  7. ifpage3=thenpage3=session(contpag)'Jumlah halaman, halaman saat ini
  8. jikahalaman3=makahalaman3=1
  10. pa=permintaan(pa)
  11. ifpa=thenpa=session(contpa)'Jumlah tampilan per halaman
  12. ifpa=thenpa=15' menampilkan 15 item per halaman secara default, yang dapat diubah sesuka hati
  13. sesi(halaman lanjutan)=halaman3
  14. sesi(lanjutan)=pa
  15. page=pa'Nomor tampilan per halaman******************Program di atas digunakan untuk mengimplementasikan fungsi paging
  17. SQL=PILIH*DARItaborderby-dat,-id
  18. redup
  19. Setrs=Server.CreateObject(ADODB.RecordSet)
  20. rs.Opensql,sambungan,1,1
  21. csi=0
  22. cs1=0
  23. cs100=0
  24. csdat1=0
  25. do whilenotrs.eof
  26. csi=csi+rs(cs)
  27. ifrs(cs)=1lalucs1=cs1+1
  28. ifrs(cs)〉=100maka100+1
  29. ifdatevalue(rs(dat))=datethen
  30. csdat1=csdat1+1
  31. endif
  32. rs.movenext
  33. lingkaran
  34. ZS=RS.RECORDCOUNT
  35. '******************************************************* ***8Program berikut digunakan untuk tampilan paging
  36. %〉
  38. <kepala>
  39. 〈judul〉Statistik Komputer Luar Biasa〈/judul〉
  40. </kepala>
  41. 〈gaya tubuh=ukuran font:9ptbgwarna=#D8EDF8〉
  42. Ada total 〈%Response.Writezs%〉 catatan Halaman saat ini adalah 〈%Response.Writepage3%〉. Setiap halaman menampilkan: [〈ahref=dispcont.asp?pag=〈%=page3%〉&pa=15〉15 ], [<ahref=dispcont. asp?pag=〈%=halaman3%〉&pa=20〉20] item, [〈ahref=dispcont.asp?pag=〈%=page3%〉&pa=30〉30] item, [〈ahref=dispcont.asp? halaman=〈%=halaman3%〉&pa=40〉40]
  43. [〈ahref=dispcont.asp〉Segarkan]
  44. 〈divalign=kiri〉
  45. 〈tabelborder=0cellpadding=0style=ukuran font:9pt〉
  46. 〈tr〉〈td〉Nomor halaman〈/td〉〈%halaman2=1
  47. fori=1tozssteppages
  48. ifpage3=cstr(halaman2)lalu
  49. %〉〈td〉[〈%Respon.Halaman Tulis2%〉]〈/td〉
  50. <%kalau tidak%>
  51. 〈td〉〈ahref=dispcont.asp?pag=〈%Response.Writepage2%〉〉[〈%Response.Writepage2%〉]〈/td〉
  52. <%endif
  53. halaman2=halaman2+1
  54. Berikutnya
  55. sn=pages*(page3-1)'Nomor catatan saat ini=jumlah yang ditampilkan per halaman*jumlah halaman-nomor yang ditampilkan per halaman
  56. jikasn〉zsthensn=0
  57. rs.bergerakn,1
  58. '************************************Paragraf di atas digunakan untuk paging
  59. %〉〈/tr〉〈/tabel〉
  60. 〈/div〉〈tablestyle=ukuran font:9ptwidth=100%bordercolorlight=#000000border=1bordercolordark=#FFFFFFbgcolor=#A4D1E8cellspacing=0cellpadding=3〉
  61. 〈tr〉〈td〉Nomor〈/td〉〈td〉Laman yang terakhir dikunjungi〈/td〉〈td〉IP yang terakhir dikunjungi〈/td〉〈td〉Jumlah beranda〈/td〉〈td〉Tanggal kunjungan pertama〈/td 〉 〈/tr〉〈%
  62. fori=1halaman
  63. Respon.Tulis〈/tr〉
  64. Respon.Tulis〈td〉&rs(ID)&〈/td〉
  65. Respon.Tulis〈td〉&rs(dat)&〈/td〉
  66. Respon.Tulis〈td〉&rs(IP)&〈/td〉
  67. Respon.Tulis〈td〉&rs(CS)&〈/td〉
  69. Respon.Tulis〈td〉&rs(DAT1)&〈/td〉
  70. Respon.Tulis〈/tr〉
  71. rs.movenext
  72. ifrs.eofthenexitfor
  73. Berikutnya
  74. rs.tutup
  75. %〉
  76. 〈tr〉〈td〉Total〈%=zs%〉〈/td〉〈td〉Ada yang sudah berkunjung lebih dari 100 kali〈%=cs100%〉〈/td〉〈td〉Ada yang sudah berkunjung 1 : 〈%=cs1%〉〈/td〉〈td〉Jumlah kunjungan total 〈%=csi%〉〈/td〉〈td〉Kunjungan hari ini: 〈%=csdat1%〉〈/td〉〈/tr〉
  77. </meja>

Di atas adalah tampilan halaman lengkap yang dapat disalin dan digunakan (catatan: situasi di mana tidak ada catatan tidak dipertimbangkan). Seperti kata pepatah, hanya dengan melakukannya sendiri Anda dapat memiliki cukup makanan dan pakaian, jadi cepatlah dan cobalah!

Artikel Terkait