ASP的XML缓存类,代替了Application

<%
'=========================================
' ClassName:    RyM_ClsCache
' Version:    1.0
' Date:        2006-8-2
' Author:    网海の求生
'=========================================
' 调用说明:
' Set CC = New RyM_ClsCache      '创建对象
' CC.CreateXmlObj "Temp.xml","/ROYAH_CACHE"
' CC.Name = "CA"               '设置缓存名
' If CC.IsXmlObj() Then    '如果存在缓存则
'   Temp = CC.Value       '直接xml中读取值
' Else 否则
'   Temp = "要缓存的内容，只能是字符串"
'   CC.Value = Temp   '把要缓存的值写入xml
' End If
' Set CC = Nothing               '释放对象
'       变量Temp就是经过缓存后的字符串值了
'=========================================
Class RyM_ClsCache
    Public Reloadtime
    Private XmlDom, XmlDoc, XmlNode, XmlAttr, AttrTime
    Private CacheName, LocalCacheName, XmlPath
    Private Sub Class_Initialize()
        Reloadtime = 14400
    End Sub
    Private Sub Class_Terminate()
        Close()
    End Sub
    '新建文本文件
    Private Function SaveToFile(ByVal strBody,ByVal SavePath) 
        Set ObjStream = Server.CreateObject("ADODB.Stream") 
        ObjStream.Open
        ObjStream.Type = 2 
        ObjStream.Charset = "GB2312"
        ObjStream.WriteText strBody
        ObjStream.SaveToFile SavePath,2
        ObjStream.Close
        Set ObjStream = Nothing 
    End Function
    '创建Xml对象
    Public Sub CreateXmlObj(ByVal XmlName, ByVal ChName)
        Set XmlDom = Server.CreateObject("Microsoft.FreeThreadedXMLDOM")
        XmlPath = Server.MapPath(XmlName)
        CacheName = ChName
        If Not XmlDom.Load(XmlPath) Then '如果指定的缓存文件不存在则自动新建
            SaveToFile "<?xml version=""1.0"" encoding=""GB2312""?><ROYAH_CACHE></ROYAH_CACHE>",XmlPath
            XmlDom.Load(XmlPath)
        End If
    End Sub
    '设置返回数据节点名
    Public Property Let Name(ByVal vNewValue)
        LocalCacheName = vNewValue
        If LocalCacheName <> "" Then
            Set XmlDoc = XmlDom.documentElement.selectSingleNode(CacheName & "/" & LocalCacheName)
        End If
    End Property
    '设置当前节点值
    Public Property Let Value(ByVal vNewValue)
        If (XmlDoc Is Nothing) Then
            Set XmlDoc = XmlDom.documentElement.selectSingleNode(CacheName)
            Set XmlNode = XmlDom.createElement(LocalCacheName)
            Set XmlAttr = XmlDom.createAttribute("Time")
            XmlNode.Text = vNewValue
            XmlAttr.Text = Now()
            XmlDoc.AppendChild(XmlNode)
            XmlNode.setAttributeNode XmlAttr
            XmlDom.Save(XmlPath)
        Else
            XmlDoc.Text = vNewValue
            Set AttrTime = XmlDoc.selectSingleNode("./@Time")
            AttrTime.Text = Now()
            XmlDom.Save(XmlPath)
        End If
    End Property
    '返回当前节点值
    Public Property Get Value()
        If Not (XmlDoc Is Nothing) Then
            Value = XmlDoc.Text
        End If        
    End Property
    '移除当前节点
    Public Sub Remove()
        If Not (XmlDoc Is Nothing) Then
            XmlDoc.ParentNode.RemoveChild(XmlDoc)
            XmlDom.Save(XmlPath)
        End If
    End Sub
    '检测当前节点是否存在
    Public Function IsXmlObj()
        IsXmlObj = False
        If Not (XmlDoc Is Nothing) Then
            IsXmlObj = True
            Set AttrTime = XmlDoc.selectSingleNode("./@Time")
            If DateDiff("s",CDate(AttrTime.Text),Now()) > (60*Reloadtime) Then IsXmlObj = False
        End If
    End Function
    '释放全部对象
    Public Sub Close()
        If IsObject(XmlDom) Then Set XmlDom = Nothing
        If IsObject(XmlDoc) Then Set XmlDoc = Nothing
        If IsObject(XmlNode) Then Set XmlNode = Nothing
        If IsObject(XmlAttr) Then Set XmlAttr = Nothing
        If IsObject(AttrTime) Then Set XmlAttr = Nothing
    End Sub
End Class
%>