簡單介紹:一般一個網站的首頁訪問量是最大的,如果您的網站的首頁打開的非常緩慢,您的客戶將會陸續離開你的網站.通常我們把需要經過複雜運算或者查詢數據庫得出的數據緩存起來或者生成靜態網頁來提高web應用的性能,這次我們直接把首頁的輸出緩存成一個字符串,然後定時更新,即照顧了性能,又不影響首頁的時效性.這裡用到了一些VBS自定義類,Application對象,XmlHttp對象,adodb.stream對象的一些東西,相關知識大家可以查資料了解.
最好讓這個頁和你要緩存的頁在一個目錄下,要不有些相對路徑的圖片就無法顯示了,另外緩存有的頁面會出現亂碼,我還不知道怎麼解決這個問題呢,可能在Response的時候需要設置一下編碼類型,大家可以試試
複製代碼代碼如下:
<%
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>執行時間："&FormatNumber((Endtime-StarTime)*1000,5)&"毫秒。"
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=Nothing
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=nothing