Direkomendasikan: Penggemar Web Dinamis: HTML Fungsi ASP Penyaringan ASP Kode HTML adalah konten yang direferensikan berikut: fungsi lepas hancur html (strhtml) redup objregexp, cocok, kecocokan set objregexp = regexp obj baru
Contoh produksi statistik yang dapat berjumlah pengunjung, mencatat jumlah kunjungan, IP, dan waktu
Saya mengambil perpustakaan akses sebagai contoh. Bahkan, jika Anda menggunakan pustaka SQL Server, cukup ubah pernyataan 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 merekam kunjungan oleh pengunjung
Program ini sangat sederhana, dengan hanya dua file. Dispcont.asp digunakan untuk menampilkan hasil statistik, dan contpage.asp digunakan untuk menampilkan informasi statistik.
Mari pertama -tama lihat statistik contpage.asp, kodenya adalah sebagai berikut:
| Berikut ini adalah konten yang dikutip: <% Set Conn = 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, dan cont.asp adalah nama file pustaka. keren = request.cookies (keren) '' baca cookie, nama cookie adalah: keren, haha. . Hal yang bau tentang literatur E Ayu adalah dia hanya tahu cara menggunakan pinyin. Jika keren = maka '' menilai apakah cookie kosong. Jika mereka kosong, mereka pasti teman baru, jika tidak mereka adalah teman lama. sql = pilih * dari tab di mana id = -1 Set RS = Server.CreateObject (ADODB.Recordset) rs.open sql, conn, 1, 3 rs.addnew '' Jika itu adalah pengunjung baru, tambahkan catatan baru di perpustakaan. RS (CS) = 1 '' CATATAN Jumlah kunjungan adalah 1 rs (ip) = request.serverVariable (remote_addr) '' Tell Me IP, rs (dat) = sekarang '' Ceritakan tanggal dan waktu saat ini, RS (DAT1) = Tanggal '' Ceritakan tanggal saat ini, dan tanggal yang akan digunakan untuk kunjungan pertama di masa mendatang. response.cookies (keren) = rs (id) '' Tulis cookie dan kontennya sama dengan ID. response.cookies (keren). expires = tanggal 365 '' Tetapkan tanggal cookie yang valid mulai sekarang, 365 hari, lain '' di atas adalah cara untuk menangani teman baru. Apa yang harus saya lakukan dengan teman lama? Lihatlah yang berikut: sql = pilih * dari tab di mana id = & keren '' pergi ke perpustakaan untuk menemukan catatan teman lama kita Set RS = Server.CreateObject (ADODB.Recordset) rs.open sql, conn, 1, 3 RS (CS) = RS (CS) 1 '' Oke, ditemukan, tambahkan 1 kunjungan rs (ip) = request.serverVariable (remote_addr) '' Lihat apa IP -nya dan tuliskan. rs (dat) = sekarang '' beri tahu saya waktu saat ini, yaitu waktu kunjungan terakhir, response.cookies (keren) = rs (id) '' Kemudian tulis cookie masuk. Saya tidak tahu apakah kalimat ini berlebihan, jadi saya tidak mencobanya. response.cookies (Keren) .Expires = Tanggal 365 '' Tetapkan waktu kadaluwarsa sehingga saya tidak akan mengenalinya jika satu tahun datang. akhiri jika rs.update '' Saya telah merekam semua yang harus saya ingat, perbarui perpustakaan. rs.close '' Tutup objek Recordset. Set Conn = Nothing '' Release Conn, saya masih berpikir koneksi harus dihidupkan dan dimatikan sesegera mungkin. Saya pikir itu adalah sesi yang paling tidak diinginkan. 4 %> |
Oke, catatan selesai, ada lebih dari dua puluh baris kode, program kecil yang sangat sederhana. Setelah program ditulis, bagaimana bisa ditempatkan di halaman? Ini sangat sederhana. Temukan saja tempat di beranda dan tambahkan baris kode ini: <img src = contpage.asp width = 0 tinggi = 0>.
Langkah selanjutnya adalah menampilkan catatan.
Nama file: dispcont.asp, silakan lihat kode:
| Berikut ini adalah konten yang dikutip: <% Set Conn = 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, dan cont.asp adalah nama file pustaka. Page3 = Request (PAG) Jika Page3 = maka Page3 = Sesi (Contpag) 'Jumlah halaman, halaman saat ini Jika Page3 = maka Page3 = 1 pa = request (pa) jika pa = maka pa = sesi (contpa) 'jumlah tampilan per halaman Jika pa = maka pa = 15 '' secara default, 15 item ditampilkan per halaman, dan dapat diubah sesuka hati sesi (contpag) = Page3 sesi (contpa) = pa Halaman = PA 'Jumlah tampilan per halaman ***************** Program di atas digunakan untuk mengimplementasikan fungsi pagination SQL = SELECT * Dari pesanan tab oleh -dat, -id redup Set RS = Server.CreateObject (ADODB.Recordset) Rs.open SQL, Conn, 1,1 CSI = 0 CS1 = 0 CS100 = 0 csdat1 = 0 lakukan sementara tidak rs.eof CSI = CSI RS (CS) Jika Rs (CS) = 1 maka CS1 = CS1 1 Jika Rs (CS)> = 100 maka CS100 1 jika datevalue (rs (dat)) = tanggal lalu csdat1 = csdat1 1 akhiri jika rs.movenext lingkaran Zs = rs.recordcount '' ******************************************** 8 Program berikut ini digunakan untuk tampilan pagination %> <head> <title> Statistik online </iteme> </head> <gaya tubuh = ukuran font: 9pt bgcolor =#d8edf8> Ada total <%respons. Menulis zs%> catatan, dan sekarang <%response.write page3%> page menampilkan setiap halaman: [<a href = dispcont.asp? Pag = <%= page3%> & pa = 15> 15], [<a href = dispcont.asp? Pag = <%= page3%> & pa = 20> 20> 20], <a href = dispcont href = dispcont.asp? pag = <%= page3%> & pa = 30> 30], [<a href = dispcont.asp? pag = <%= page3%> & pa = 40> 40] [<a href = dispcont.asp> refresh] <Div Align = Left> <tabel border = 0 cellpadding = 0 style = font-size: 9pt> <tr> <td> Nomor halaman </td> <%page2 = 1 untuk halaman langkah i = 1 hingga zs jika halaman3 = cstr (halaman2) lalu %> <td> [<%response.write page2%>] </td> < % else %> <td> <a href = dispcont.asp? pag = <%response.write page2%>> [<%response.write page2%>] </td> <% end if Page2 = Page2 1 Berikutnya Sn = halaman * (halaman3-1) '' Nomor catatan saat ini = Jumlah tampilan per halaman * Jumlah halaman - Jumlah tampilan per halaman Jika Sn> zs maka sn = 0 rs.move sn, 1 '' ********************************** Paragraf di atas digunakan untuk paging %> </tr> </able> </Div> <Table Style = Font-size: Lebar 9PT = 100% BorderColorlight =#000000 BORDER = 1 BORTERCOLORDARK =#FFFFF BGCOLOR =#A4D1E8 CellPacing = 0 CellPadding = 3> <tr> <td> Nomor </td> <td> Kunjungan terakhir ke Halaman Beranda </td> <td> Kunjungan terakhir ke IP </td> <td> Jumlah halaman rumah </td> <td> Jumlah Tanggal Kunjungan Pertama </td> </TR> <% untuk i = 1 ke halaman Response.write </tr> Response.write <td> & rs (id) & </td> Response.write <td> & rs (dat) & </td> Response.write <td> & rs (IP) & </td> Response.write <td> & rs (CS) & </td> Response.write <td> & rs (DAT1) & </td> Response.write </tr> rs.movenext Jika rs.eof maka keluar untuk Berikutnya rs.close %> <tr> <td> Total <%= zs%> </td> <td> Jumlah kunjungan lebih dari 100 kali <%= CS100%> </td> <td> Jumlah kunjungan 1: <%= CS1%> </td> <td> Jumlah kunjungan TODAY adalah <%= CSI%> </td> <td> TODAY: TODAY adalah <%= CSI%> </td> <td> TODAY <tder> <%= csdat1%> </td> </tr> </boable> |
'' ******************************** Tampilan di atas adalah tampilan halaman lengkap. Semuanya tersedia. Tidak ada catatan atau situasi apa pun yang dipertimbangkan.
Bagikan: Game Tetris ditulis dalam ASP Berikut ini adalah konten yang direferensikan: <%jika tidak meminta.queryString (ven) = t kemudian%> <html> <head> <nama meta