PENDAHULUAN Singkat: Umumnya, beranda situs web memiliki jumlah kunjungan terbesar. Jika beranda situs web Anda dibuka dengan sangat lambat, pelanggan Anda akan meninggalkan situs web Anda satu demi satu. Biasanya, kami menyimpan data yang diperoleh dengan operasi yang kompleks atau meminta database atau menghasilkan halaman web statis untuk meningkatkan kinerja aplikasi web. Kali ini, kami secara langsung menyimpan output beranda menjadi string dan memperbaruinya secara teratur, yang menangani kinerja tanpa mempengaruhi ketepatan waktu beranda. Di sini kami menggunakan beberapa kelas khusus VBS, objek aplikasi, objek XMLHTTP, dan objek ADODB.Stream. Anda dapat memeriksa informasi untuk memahami pengetahuan terkait.
Yang terbaik adalah memiliki halaman ini dan halaman yang ingin Anda cache di direktori yang sama. Kalau tidak, beberapa gambar dengan jalur relatif tidak dapat ditampilkan. Selain itu, beberapa halaman di -cache akan memiliki kode yang kacau. Saya tidak tahu bagaimana menyelesaikan masalah ini. Mungkin Anda perlu mengatur jenis pengkodean saat merespons, Anda dapat mencobanya.
Salinan kode adalah sebagai berikut:
<%
Dimwawa, startime, endtime
Startime = timer ()
SetWawa = newcls_cache
wawa.reloadtime = 0,5
wawa.cachename = "wawa"
wawa.name = "xmlinfoindex"
Ifwawa.objisempty () thencachexmlinfoindex ()
Response.writeWawa.Value
Endtime = timer ()
Response.write "<br> Waktu eksekusi:" & formatNumber ((endtime-startime)*1000,5) & "MS."
SubcachexmlinfoIndex ()
DIMBOBYTEXT, XML
Setxml = server.createObject ("microsoft.xmlhttp")
'Ganti alamat berikut dengan alamat file beranda Anda. Pastikan untuk menggunakan jalur absolut yang dimulai dengan http: //, dan Anda tidak dapat menulis jalur relatif.
xml.open "get", "http: //onlytiancai/bak/vote/infoindex.asp", false
xml.send
BodyText = xml.responseBody
BodyText = bytestoBstr (bodyText, "gb2312")
wawa.value = bodyText
Setxml = tidak ada
Endsub
FunctionByTestObstr (body, cset)
dimobjstream
setoBjStream = server.CreateObject ("adodb.stream")
objstream.type = 1
objstream.mode = 3
objstream.open
objstream.writeBody
objstream.position = 0
objstream.type = 2
objstream.charset = cset
BytestoBstr = objstream.readtext
objstream.close
setobjstream = tidak ada