<%
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
%>