簡単な紹介：一般的に、ウェブサイトのホームページには訪問数が最も多くあります。あなたのウェブサイトのホームページが非常にゆっくりとオープンした場合、顧客はあなたのウェブサイトを次々と離れます。通常、複雑な操作によって取得されたデータをキャッシュしたり、データベースをクエリしたり、静的Webページを生成してWebアプリケーションのパフォーマンスを向上させたりします。今回は、ホームページの出力を文字列に直接キャッシュし、定期的に更新します。これは、ホームページの適時性に影響を与えることなくパフォーマンスを処理します。ここでは、いくつかのVBSカスタムクラス、アプリケーションオブジェクト、XMLHTTPオブジェクト、およびADODB.Streamオブジェクトを使用します。関連する知識を理解するために情報を確認できます。
このページと、同じディレクトリにキャッシュするページを用意するのが最善です。それ以外の場合、相対パスを持ついくつかの写真を表示できません。さらに、Cachedの一部のページには文字化けされたコードがあります。この問題を解決する方法がわかりません。応答するときにエンコードタイプを設定する必要があるかもしれません。試してみることができます。
コードコピーは次のとおりです。
<％
Dimwawa、Startime、Endtime
startime = timer（）
setwawa = newcls_cache
WAWA.RELOADTIME = 0.5
wawa.cachename = "wawa"
wawa.name = "xmlinfoindex"
ifwawa.objisempty（）thencachexmlinfoindex（）
respons.writewawa.value
EndTime = Timer（）
Response.Write "<br>実行時間："＆formatnumber（（endtime-Startime）*1000,5）＆ "ms"。
subcachexmlinfoindex（）
dimbodytext、xml
setxml = server.createObject（ "microsoft.xmlhttp"）
'次のアドレスをホームページのファイルアドレスに置き換えます。 http：//で始まる絶対パスを必ず使用してください。そうすれば、相対パスを書くことはできません。
xml.open "get"、 "http：//onlytiancai/bak/vote/infoindex.asp"、false
xml.send
bodytext = xml.responsebody
bodytext = bytestobstr（bodytext、 "gb2312"）
wawa.value = bodytext
setxml =何もない
Endingub
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 =何もない