Apa yang saya tulis sebelumnya: Artikel ini masih terkait dengan ASP. Saya yakin semua orang yang memainkan ASP merasakan hal yang sama ketika ada lebih dari 50.000 data - sama seperti jaringan musik, 10 data terbaru perlu dipanggil dan ditampilkan. halaman. ,Hal buruknya adalah ketika n banyak pengguna membuka halaman untuk akses, setiap pengguna harus membaca database satu kali setiap kali, yang tentunya mengurangi efisiensi , Ini tentu saja mempercepat prosesnya. Yang disebut cache sebenarnya untuk membuka ruang di memori untuk menyimpan data. Dengan menggunakan cache, Anda tidak perlu sering-sering mengakses data yang Anda simpan di hard disk, karena kami berharap bahwa setiap pengguna dapat melihat data ini. Efeknya sama. Pertimbangkan untuk menggunakan objek aplikasi karena merupakan objek umum untuk semua pengunjung. Informasi yang disimpan dan peristiwa yang ditentukan dapat digunakan oleh pengunjung pemilik APLIKASI objek bawaan. Mengenai aplikasi, ada 2 Satu metode [mengunci dan membuka kunci], dua koleksi [konten dan objek statis], dua peristiwa [application_onstart dan application_end], variabel aplikasi tidak akan hilang karena pengguna keluar. itu akan menunggu sampai situs web ditutup dan program dihapus. Oleh karena itu, Anda harus sangat berhati-hati saat menggunakannya!, Jika tidak maka akan memakan memori. Saya tidak perlu mengatakan lebih banyak di sini. lihat informasi yang relevan. Kira-kira seperti ini. Kami menulis data ke dalam aplikasi khusus. Ide umumnya adalah membaca dan menyegarkan pada waktu yang ditentukan.
Pertama buat database sederhana, tulis fungsi untuk membacanya , dan tuliskan ke dalam variabel redup temp:
Berikut ini adalah fragmen referensi:
Fungsi Catatan Tampilan()
'Fungsi ini awalnya menetapkan nilai tercatat Dim sql, conn, rs ke variabel temp
'Pernyataan sql bersyarat sql = "PILIH id, [szd_f], [szd_t] DARI admin"
'Buka koneksi database Set conn = Server.CreateObject("ADODB.Connection")
samb.Buka "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="&Server.MapPath("db.mdb")
Setel rs = Server.CreateObject("ADODB.Recordset")
rs.Buka sql, samb, 1, 3
'Ketika data yang cocok dengan pernyataan sq l belum ditampilkan, Jika Tidak rs.EOF Lalu
'Tetapkan Dim temp ke variabel temp
temp = "<lebar tabel=""90%"" align=""center"""
temp = temp & " border=""1"" bordercolor=""perak"""
suhu = suhu & " spasi sel=""2"" bantalan sel=""0"">"
temp = temp & "<tr bgcolor=""#CCDDEE""><td lebar=""5%"""
temp = temp & ">ID</td><td>Operasi</td>"
temp = temp & "<td>Nomor</td></tr>"
Meskipun Bukan rs.EOF
temp = temp & "<tr><td bgcolor=""#CCDDEE"">"
temp = temp & rs("ID") & "</td><td>" & rs("szd_f")
suhu = suhu & "</td><td>" & rs("szd_t")
suhu = suhu & "</td></tr>"
rs.MoveNext
Pergi ke
suhu = suhu & "</tabel>"
'Setelah penetapan sementara selesai, kembalikan ke fungsi DisplayRecords = temp
Kalau tidak
DisplayRecords = "Data Tidak Tersedia."
Akhiri Jika
'Lepaskan memori rs.Tutup
samb.Tutup
Setr=Tidak ada
Setel samb = Tidak ada
Fungsi Akhir
oke, fungsi di atas telah diubah, dan menjadi DisplayRecords saat dipanggil.
Di sinilah aplikasi berperan:
'Fungsi ini untuk menulis ke cache Fungsi DisplayCachedRecords(Detik)
Redupkan retVal, datVal, temp1
'Detik adalah waktu untuk me-refresh data setiap kali, retVal adalah datanya, datVal adalah waktu yang tersisa retVal = Application("cache_demo") 'Dapatkan nilai aplikasi datVal = Application("cache_demo_date") 'Dapatkan nilai aplikasi ' Menilai nilai datVal , yaitu menghitung apakah waktu telah berlalu
'Jika kosong, nilai datVal adalah waktu saat ini dalam hitungan detik ditambah waktu yang ditentukan oleh secs datVal = DateAdd("s",Secs,Now)
Akhiri Jika
'temp1 adalah perbedaan kedua antara waktu saat ini dan datVal temp1 = DateDiff("s", Now, datVal)
'Jika retVal sudah menjadi nilai kembalian dari fungsi di atas dan waktunya lebih besar dari 0
Jika temp1 > 0 Dan retVal <> "" Lalu
'Fungsi ini mengembalikan jumlah catatan DisplayCachedRecords = retVal
Response.Tulis "<b><font color=""green"">Gunakan cache untuk membaca data"
Respon.Tulis " ... (" & temp1 & " detik tersisa)</font></b>"
Respon.Tulis "<br><br>"
Kalau tidak
Jika 'retVal kosong, tetapkan nilai DisplayRecords ke variabel temp2
Redupkan suhu2
temp2 = Catatan Tampilan()
'Simpan ke Aplikasi.------------------>Fokus Aplikasi.Kunci
Aplikasi("cache_demo") = temp2
Aplikasi("cache_demo_date") = TanggalTambah("s",Dtk,Sekarang)
Aplikasi.Buka Kunci
DisplayCachedRecords = temp2
' Waktu lampau dari cache yang direkam ditulis dengan santai di sini, dan perbedaan relatif terhadap jumlah detik adalah:
Response.Tulis "<b><font color=""red"">Segarkan tampilan cache..."
Respon.Tulis "</font></b><br><br>"
Akhiri Jika
Fungsi Akhir
%>
Penjelasan selesai.
Berikut
cara pemanggilan kode tanpa komentar secara lengkap: <%=DisplayCachedRecords(20)%>
Ditulis di bagian akhir: Jika Anda merasa memori server Anda tidak cukup besar, jangan gunakan dalam jumlah besar. cache.