<%
\n‘=========================================
\n‘ ClassName: RyM_ClsCache
\n‘ Version: 1.0
\n‘ Date: 2006-8-2
\n‘ Author: \u7f51\u6d77\u306e\u6c42\u751f
\n‘=========================================
\n‘ \u8c03\u7528\u8bf4\u660e:
\n‘ Set CC = New RyM_ClsCache ‘\u521b\u5efa\u5bf9\u8c61
\n‘ CC.CreateXmlObj "Temp.xml","\/ROYAH_CACHE"
\n‘ CC.Name = "CA" ‘\u8bbe\u7f6e\u7f13\u5b58\u540d
\n‘ If CC.IsXmlObj() Then ‘\u5982\u679c\u5b58\u5728\u7f13\u5b58\u5219
\n‘ Temp = CC.Value ‘\u76f4\u63a5xml\u4e2d\u8bfb\u53d6\u503c
\n‘ Else \u5426\u5219
\n‘ Temp = "\u8981\u7f13\u5b58\u7684\u5185\u5bb9\uff0c\u53ea\u80fd\u662f\u5b57\u7b26\u4e32"
\n‘ CC.Value = Temp ‘\u628a\u8981\u7f13\u5b58\u7684\u503c\u5199\u5165xml
\n‘ End If
\n‘ Set CC = Nothing ‘\u91ca\u653e\u5bf9\u8c61
\n‘ \u53d8\u91cfTemp\u5c31\u662f\u7ecf\u8fc7\u7f13\u5b58\u540e\u7684\u5b57\u7b26\u4e32\u503c\u4e86
\n‘=========================================
\nClass RyM_ClsCache
\nPublic Reloadtime
\nPrivate XmlDom, XmlDoc, XmlNode, XmlAttr, AttrTime
\nPrivate CacheName, LocalCacheName, XmlPath
\nPrivate Sub Class_Initialize()
\nReloadtime = 14400
\nEnd Sub
\nPrivate Sub Class_Terminate()
\nClose()
\nEnd Sub
\n‘\u65b0\u5efa\u6587\u672c\u6587\u4ef6
\nPrivate Function SaveToFile(ByVal strBody,ByVal SavePath)
\nSet ObjStream = Server.CreateObject("ADODB.Stream")
\nObjStream.Open
\nObjStream.Type = 2
\nObjStream.Charset = "GB2312"
\nObjStream.WriteText strBody
\nObjStream.SaveToFile SavePath,2
\nObjStream.Close
\nSet ObjStream = Nothing
\nEnd Function
\n‘\u521b\u5efaXml\u5bf9\u8c61
\nPublic Sub CreateXmlObj(ByVal XmlName, ByVal ChName)
\nSet XmlDom = Server.CreateObject("Microsoft.FreeThreadedXMLDOM")
\nXmlPath = Server.MapPath(XmlName)
\nCacheName = ChName
\nIf Not XmlDom.Load(XmlPath) Then ‘\u5982\u679c\u6307\u5b9a\u7684\u7f13\u5b58\u6587\u4ef6\u4e0d\u5b58\u5728\u5219\u81ea\u52a8\u65b0\u5efa
\nSaveToFile "<?xml version=""1.0"" encoding=""GB2312""?><ROYAH_CACHE><\/ROYAH_CACHE>",XmlPath
\nXmlDom.Load(XmlPath)
\nEnd If
\nEnd Sub
\n‘\u8bbe\u7f6e\u8fd4\u56de\u6570\u636e\u8282\u70b9\u540d
\nPublic Property Let Name(ByVal vNewValue)
\nLocalCacheName = vNewValue
\nIf LocalCacheName <> "" Then
\nSet XmlDoc = XmlDom.documentElement.selectSingleNode(CacheName & "\/" & LocalCacheName)
\nEnd If
\nEnd Property
\n‘\u8bbe\u7f6e\u5f53\u524d\u8282\u70b9\u503c
\nPublic Property Let Value(ByVal vNewValue)
\nIf (XmlDoc Is Nothing) Then
\nSet XmlDoc = XmlDom.documentElement.selectSingleNode(CacheName)
\nSet XmlNode = XmlDom.createElement(LocalCacheName)
\nSet XmlAttr = XmlDom.createAttribute("Time")
\nXmlNode.Text = vNewValue
\nXmlAttr.Text = Now()
\nXmlDoc.AppendChild(XmlNode)
\nXmlNode.setAttributeNode XmlAttr
\nXmlDom.Save(XmlPath)
\nElse
\nXmlDoc.Text = vNewValue
\nSet AttrTime = XmlDoc.selectSingleNode(".\/@Time")
\nAttrTime.Text = Now()
\nXmlDom.Save(XmlPath)
\nEnd If
\nEnd Property
\n‘\u8fd4\u56de\u5f53\u524d\u8282\u70b9\u503c
\nPublic Property Get Value()
\nIf Not (XmlDoc Is Nothing) Then
\nValue = XmlDoc.Text
\nEnd If
\nEnd Property
\n‘\u79fb\u9664\u5f53\u524d\u8282\u70b9
\nPublic Sub Remove()
\nIf Not (XmlDoc Is Nothing) Then
\nXmlDoc.ParentNode.RemoveChild(XmlDoc)
\nXmlDom.Save(XmlPath)
\nEnd If
\nEnd Sub
\n‘\u68c0\u6d4b\u5f53\u524d\u8282\u70b9\u662f\u5426\u5b58\u5728
\nPublic Function IsXmlObj()
\nIsXmlObj = False
\nIf Not (XmlDoc Is Nothing) Then
\nIsXmlObj = True
\nSet AttrTime = XmlDoc.selectSingleNode(".\/@Time")
\nIf DateDiff("s",CDate(AttrTime.Text),Now()) > (60*Reloadtime) Then IsXmlObj = False
\nEnd If
\nEnd Function
\n‘\u91ca\u653e\u5168\u90e8\u5bf9\u8c61
\nPublic Sub Close()
\nIf IsObject(XmlDom) Then Set XmlDom = Nothing
\nIf IsObject(XmlDoc) Then Set XmlDoc = Nothing
\nIf IsObject(XmlNode) Then Set XmlNode = Nothing
\nIf IsObject(XmlAttr) Then Set XmlAttr = Nothing
\nIf IsObject(AttrTime) Then Set XmlAttr = Nothing
\nEnd Sub
\nEnd Class
\n%><\/p>\n","protected":false},"excerpt":{"rendered":"
<% ‘========================================= ‘ ClassName: RyM_ClsCache ‘ Version: 1.0 ‘ Date…<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[1],"tags":[],"topic":[],"class_list":["post-164","post","type-post","status-publish","format-standard","hentry","category-technology"],"_links":{"self":[{"href":"http:\/\/www.xiaoyebailong.com\/index.php\/wp-json\/wp\/v2\/posts\/164","targetHints":{"allow":["GET"]}}],"collection":[{"href":"http:\/\/www.xiaoyebailong.com\/index.php\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"http:\/\/www.xiaoyebailong.com\/index.php\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"http:\/\/www.xiaoyebailong.com\/index.php\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"http:\/\/www.xiaoyebailong.com\/index.php\/wp-json\/wp\/v2\/comments?post=164"}],"version-history":[{"count":1,"href":"http:\/\/www.xiaoyebailong.com\/index.php\/wp-json\/wp\/v2\/posts\/164\/revisions"}],"predecessor-version":[{"id":66019,"href":"http:\/\/www.xiaoyebailong.com\/index.php\/wp-json\/wp\/v2\/posts\/164\/revisions\/66019"}],"wp:attachment":[{"href":"http:\/\/www.xiaoyebailong.com\/index.php\/wp-json\/wp\/v2\/media?parent=164"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"http:\/\/www.xiaoyebailong.com\/index.php\/wp-json\/wp\/v2\/categories?post=164"},{"taxonomy":"post_tag","embeddable":true,"href":"http:\/\/www.xiaoyebailong.com\/index.php\/wp-json\/wp\/v2\/tags?post=164"},{"taxonomy":"topic","embeddable":true,"href":"http:\/\/www.xiaoyebailong.com\/index.php\/wp-json\/wp\/v2\/topic?post=164"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}