Hari ini cukup gratis! Perkembangan dua website terbaru ini memberi saya banyak ide baru! Saya juga telah membaca banyak kode bagus, tetapi saya belum pernah menemukan pola yang cocok untuk saya! Berdasarkan desain cache, sepertinya saya telah menemukan cara berpikir yang lebih nyaman. Faktanya, halaman statis di sini tidak statis dalam arti sebenarnya, tetapi halaman tersebut dapat mencapai efisiensi penguraian halaman statis. Halaman tersebut belum diuji oleh proyek dan dibagikan di sini.
<%
'Sumber artikel: http://www.devjs.com
Const DEVJS_INDEX=index.htmlConst INDEX_DEFAULT_INTERVAL=300Dim sLastUpdate' menggunakan Aplikasi untuk menyimpan waktu pembaruan terakhir, dan membuat penilaian pada halaman, menghasilkan halaman setiap 300 detik (5 menit) sLastUpdate=Application(INDEX_LAST_Update)If sLastUpdate= atau DateDiff(s,sLastUpdate,now())>INDEX_DEFAULT_INTERVAL Kemudian 'Panggil MakeIndex() untuk membuat halaman dan mengubah waktu pembaruan terakhir MakeIndex() sLastUpdate=Now() Application(INDEX_LAST_Update)=sLastUpdate Response.Write melebihi waktu default dan diperbarui di & sLastUpdateElse Response.Write membaca halaman statis, diperbarui di & sLastUpdateEnd IfResponse.Write LoadTextFile(Server.MapPath(DEVJS_INDEX),GB2312) Fungsi MakeIndex() sContent=<hr> & Now() Panggil SaveTextFile(Server.MapPath(DEVJS_INDEX),GB2312,sContent)Fungsi Akhir%>
Jika sudah habis masa berlakunya, perbarui halamannya. Jika belum habis masa berlakunya, panggil halaman statis secara langsung. Dua fungsi juga digunakan di sini. Harap dicatat bahwa SaveTextFile() ditulis dalam metode penimpaan.
Ini adalah kalimat oStream.SaveToFile sFilePath,2
<%Fungsi LoadTextFile(sFilePath,sCharset) Redupkan oStream Atur oStream=Server.CreateObject(ADODB.Stream) oStream.Type=2 oStream.Mode=3 oStream.Buka oStream.Charset=sCharset oStream.Position=oStream.Size oStream.LoadFromFile sFilePath LoadTextFile=oStream.ReadText oStream.Tutup Set oStream=Fungsi NothingEnd Fungsi SaveTextFile(sFilePath,sCharset,outString) SaveFile=false Redupkan oStream Set oStream = Server.CreateObject(ADODB.Stream) oStream.Type=2 oStream.Mode=3 oStream.Open oStream.Charset=sCharset oStream.WriteText = outString oStream.SaveToFile sFilePath,2 oStream.Close Set oStream = Tidak Ada SaveTextFile=Fungsi trueEnd%>
Ini tidak terlalu merepotkan dibandingkan caching dan jauh lebih mudah! Faktanya, Anda bisa melakukan banyak hal di MakeIndex(), seperti membaca file template dan menggantinya.