簡単な紹介:一般的に、ウェブサイトのホームページには訪問数が最も多くあります。あなたのウェブサイトのホームページが非常にゆっくりとオープンした場合、顧客はあなたのウェブサイトを次々と離れます。通常、複雑な操作によって取得されたデータをキャッシュしたり、データベースをクエリしたり、静的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 =何もない