<%?
Dim?wawa,StarTime,EndTime?
StarTime=Timer()?
Set?wawa=new?Cls_Cache?
wawa.Reloadtime=0.5?
wawa.CacheName="wawa"?
wawa.Name="XmlInfoIndex"?
If?wawa.ObjIsEmpty()?Then?CacheXmlInfoIndex()?
Response.Write?wawa.value?
EndTime=Timer()?
Response.Write?"<br>執行時間："?&?FormatNumber((Endtime-StarTime)*1000,5)?&?"毫秒。"?

Sub?CacheXmlInfoIndex()?
?Dim?BodyText,?xml?
?Set?xml?=?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?
Set?xml?=?Nothing?
End?Sub?
Function?BytesToBstr(body,Cset)?
????????dim?objstream?
????????set?objstream?=?Server.CreateObject("adodb.stream")?
????????objstream.Type?=?1?
????????objstream.Mode?=3?
????????objstream.Open?
????????objstream.Write?body?
????????objstream.Position?=?0?
????????objstream.Type?=?2?
????????objstream.Charset?=?Cset?
????????BytesToBstr?=?objstream.ReadText??
????????objstream.Close?
????????set?objstream?=?nothing?
End?Function?
%>?
<%?
'下面這個類可以保存在單獨的文件里,然后包含到此頁?
Class?Cls_Cache?
?Rem?==================使用說明==============================================?
?Rem?=?本類模塊是動網先鋒原創，作者：迷城浪子。如采用本類模塊，請不要去掉這個說明。這段注釋不會影響執行的速度。=?
?Rem?=?作用：緩存和緩存管理類??????????????????????????????????????????????????????????????????????????????????=?
?Rem?=?公有變量：Reloadtime?過期時間（單位為分鐘）缺省值為14400,???????????????????????????????????????????????=?
?Rem?=?MaxCount?緩存對象的最大值，超過則自動刪除使用次數少的對象。缺省值為300??????????????????????????????????=?
?Rem?=?CacheName?緩存組的總名稱，缺省值為"Dvbbs",如果一個站點中有超過一個緩存組，則需要外部改變這個值。????????=?
?Rem?=?屬性:Name?定義緩存對象名稱，只寫屬性。??????????????????????????????????????????????????????????????????=?
?Rem?=?屬性:value?讀取和寫入緩存數據。?????????????????????????????????????????????????????????????????????????=??
?Rem?=?函數：ObjIsEmpty()判斷當前緩存是否過期。????????????????????????????????????????????????????????????????=?
?Rem?=?方法：DelCahe(MyCaheName)手工刪除一個緩存對象，參數是緩存對象的名稱。???????????????????????????????????=?
?Rem?================================================================?
?Public?Reloadtime,MaxCount,CacheName?
?Private?LocalCacheName,CacheData,DelCount?
?Private?Sub?Class_Initialize()?
??Reloadtime=14400?
??CacheName="Dvbbs"?
?End?Sub?
?Private?Sub?SetCache(SetName,NewValue)?
??Application.Lock?
??Application(SetName)?=?NewValue?
??Application.unLock?
?End?Sub??
?Private?Sub?makeEmpty(SetName)?
??Application.Lock?
??Application(SetName)?=?Empty?
??Application.unLock?
?End?Sub??
?Public??Property?Let?Name(ByVal?vNewValue)?
??LocalCacheName=LCase(vNewValue)?
?End?Property?
?Public??Property?Let?Value(ByVal?vNewValue)?
??If?LocalCacheName<>""?Then??
???CacheData=Application(CacheName&"_"&LocalCacheName)?
???If?IsArray(CacheData)??Then?
????CacheData(0)=vNewValue?
????CacheData(1)=Now()?
???Else?
????ReDim?CacheData(2)?
????CacheData(0)=vNewValue?
????CacheData(1)=Now()?
???End?If?
???SetCache?CacheName&"_"&LocalCacheName,CacheData?
??Else?
???Err.Raise?vbObjectError?+?1,?"DvbbsCacheServer",?"?please?change?the?CacheName."?
??End?If???
?End?Property?
?Public?Property?Get?Value()?
??If?LocalCacheName<>""?Then??
???CacheData=Application(CacheName&"_"&LocalCacheName)??
???If?IsArray(CacheData)?Then?
????Value=CacheData(0)?
???Else?
????Err.Raise?vbObjectError?+?1,?"DvbbsCacheServer",?"?The?CacheData?Is?Empty."?
???End?If?
??Else?
???Err.Raise?vbObjectError?+?1,?"DvbbsCacheServer",?"?please?change?the?CacheName."?
??End?If?
?End?Property?
?Public?Function?ObjIsEmpty()?
??ObjIsEmpty=True?
??CacheData=Application(CacheName&"_"&LocalCacheName)?
??If?Not?IsArray(CacheData)?Then?Exit?Function?
??If?Not?IsDate(CacheData(1))?Then?Exit?Function?
??If?DateDiff("s",CDate(CacheData(1)),Now())?<?60*Reloadtime??Then?
???ObjIsEmpty=False?
??End?If?
?End?Function?
?Public?Sub?DelCahe(MyCaheName)?
??makeEmpty(CacheName&"_"&MyCaheName)?
?End?Sub?
End?Class?
%>?