{"id":165,"date":"2008-11-30T02:35:54","date_gmt":"2008-11-29T18:35:54","guid":{"rendered":""},"modified":"2014-02-27T22:57:28","modified_gmt":"2014-02-27T14:57:28","slug":"xml%e7%bc%93%e5%ad%98%e7%b1%bb","status":"publish","type":"post","link":"http:\/\/www.xiaoyebailong.com\/index.php\/2008\/11\/30\/165.htm","title":{"rendered":"xml\u7f13\u5b58\u7c7b"},"content":{"rendered":"

\u8bfb\u53d6\u673a\u5236\uff1a\u81ea\u52a8\u5224\u65ad\u6709\u65e0\u7f13\u5b58\u4e86\u7684xml\u6587\u4ef6\uff0c\u5f53xml\u6587\u4ef6\u5b58\u5728\u6570\u636e\uff0c\u4fa7\u4ecexml\u83b7\u53d6\u6570\u636e\uff0c\u53cd\u4e4b\u4ece\u6570\u636e\u5e93\u8bfb\u53d6\uff1b
\n\u7f13\u5b58\u673a\u5236\uff1a\u6839\u636exml\u6587\u4ef6\u751f\u5b58\u65f6\u95f4\u548c\u7528\u6237\u81ea\u5b9a\u4e49\u7684\u7f13\u5b58\u65f6\u95f4\u5224\u65ad\u7f13\u5b58\u6709\u65e0\u8fc7\u671f\uff0c\u8fc7\u671f\u4fa7\u751f\u5b58\u65b0\u7684xml\u6587\u4ef6\uff1b<\/p>\n

\u6709\u6548\u51cf\u5c11\u6570\u636e\u5e93\u67e5\u8be2\u8bfb\u53d6\u6b21\u6570\uff0c\u7f13\u5b58\u6570\u636e\u91cf\u5c0f\u8bfb\u53d6\u66f4\u5feb<\/p>\n

<\/font>\u4fee\u6539\u4e86\u4e00\u4e0b\uff0c\u52a0\u4e86\u4e24\u4e2a\u65b9\u6cd5\uff0c\u4f7f\u7528\u66f4\u65b9\u4fbf<\/font><\/p>\n

<\/p>\n\n\n\n
\u4ee5\u4e0b\u662f\u5f15\u7528\u7247\u6bb5\uff1a<\/font>
\n \u4ee3\u7801:
\n <%
\n Rem xml\u7f13\u5b58\u7c7b
\n ’——————————————————————–
\n ’\u8f6c\u8f7d\u7684\u65f6\u5019\u8bf7\u4fdd\u7559\u7248\u6743\u4fe1\u606f
\n ’\u4f5c\u8005:\u2570\u2465\u6708\u306e\u96e8\u256e
\n ’\u535a\u5ba2: http:\/\/chthp.cnblogs.com\/
\n ’\u7248\u672c:ver1.0
\n ’\u672c\u7c7b\u90e8\u5206\u501f\u9274 walkmanxml\u6570\u636e\u7f13\u5b58\u7c7b\uff0c\u4f7f\u7528\u66f4\u4e3a\u65b9\u4fbf \u6b22\u8fce\u5404\u4f4d\u4ea4\u6d41\u8fdb\u6b65
\n ’——————————————————————–
\n Class XmlCacheCls
\n     Private m_DataConn                ’\u6570\u636e\u6e90,\u5fc5\u987b\u5df2\u7ecf\u6253\u5f00
\n     Private m_CacheTime                ’\u7f13\u5b58\u65f6\u95f4\uff0c\u5355\u4f4d\u79d2  \u9ed8\u8ba410\u5206\u949f
\n     Private m_XmlFile                ’xml\u8def\u5f84\uff0c\u7528\u7edd\u5bf9\u5730\u5740,\u4e0d\u9700\u8981\u52a0\u6269\u5c55\u540d
\n     Private m_Sql                    ’SQL\u8bed\u53e5
\n     Private m_SQLArr                ’(\u53ea\u8bfb)\u8fd4\u56de\u7684\u6570\u636e\u6570\u7ec4
\n     Private m_ReadOn                ’(\u53ea\u8bfb)\u8fd4\u56de\u8bfb\u53d6\u65b9\u5f0f 1-\u6570\u636e\u5e93 2-xml \u68c0\u6d4b\u7528
\n     
\n     ’\u7c7b\u7684\u5c5e\u6027=========================================
\n     
\n     ’\u6570\u636e\u6e90
\n     Public Property Set  Conn(v)
\n         Set m_DataConn = v 
\n     End Property
\n     Public Property Get  Conn 
\n         Conn = m_DataConn 
\n     End Property
\n     
\n     ’\u7f13\u5b58\u65f6\u95f4
\n     Public Property Let  CacheTime(v)
\n         m_CacheTime = v 
\n     End Property
\n     Public Property Get  CacheTime
\n         CacheTime = m_CacheTime 
\n     End Property
\n     
\n     ’xml\u8def\u5f84\uff0c\u7528\u7edd\u5bf9\u5730\u5740
\n     Public Property Let  XmlFile(v)
\n         m_XmlFile = v 
\n     End Property
\n     Public Property Get  XmlFile
\n         XmlFile = m_XmlFile 
\n     End Property
\n     
\n     ’Sql\u8bed\u53e5
\n     Public Property Let  Sql(v)
\n         m_Sql = v 
\n     End Property
\n     Public Property Get  Sql 
\n         Sql = m_Sql 
\n     End Property
\n     ’\u8fd4\u56de\u8bb0\u5f55\u6570\u7ec4
\n     Public Property Get  SQLArr 
\n         SQLArr = m_SQLArr 
\n     End Property
\n     
\n     ’\u8fd4\u56de\u8bfb\u53d6\u65b9\u5f0f
\n     Public Property Get  ReadOn 
\n         ReadOn = m_ReadOn 
\n     End Property
\n     
\n     ’\u7c7b\u7684\u6790\u6784=========================================
\n     
\n     Private Sub Class_Initialize()    ’\u521d\u59cb\u5316\u7c7b
\n         m_CacheTime=60*10     ’\u9ed8\u8ba4\u7f13\u5b58\u65f6\u95f4\u4e3a10\u5206\u949f
\n     End Sub
\n     
\n     Private Sub Class_Terminate()    ’\u91ca\u653e\u7c7b
\n         
\n     End Sub
\n     
\n     ’\u7c7b\u7684\u516c\u5171\u65b9\u6cd5=========================================
\n     
\n     Rem \u8bfb\u53d6\u6570\u636e
\n     Public Function ReadData
\n         If FSOExistsFile(m_XmlFile) Then    ’\u5b58\u5728xml\u7f13\u5b58\uff0c\u76f4\u63a5\u4ecexml\u4e2d\u8bfb\u53d6
\n             ReadDataFromXml
\n             m_ReadOn=2
\n         Else
\n             ReadDataFromDB
\n             m_ReadOn=1
\n         End If 
\n     End Function
\n     
\n     Rem \u5199\u5165XML\u6570\u636e
\n     Public Function WriteDataToXml
\n         If FSOExistsFile(m_XmlFile) Then   ’\u5982\u679cxml\u672a\u8fc7\u671f\u5219\u76f4\u63a5\u9000\u51fa
\n             If Not isXmlCacheExpired(m_XmlFile,m_CacheTime) Then  Exit Function 
\n         End If
\n         Dim rs
\n         Dim xmlcontent
\n         Dim k
\n         xmlcontent = ""
\n         xmlcontent = xmlcontent & "<?xml version=""1.0"" encoding=""gb2312""?>" & vbnewline
\n         xmlcontent = xmlcontent & " <root>" & vbnewline
\n         k=0
\n         Set Rs = Server.CreateObject("Adodb.Recordset")
\n         Rs.open m_sql,m_DataConn,1
\n         While Not rs.eof
\n             xmlcontent = xmlcontent & "  <item "
\n             For Each field In rs.Fields
\n                 xmlcontent = xmlcontent & field.name & "=""" & XMLStringEnCode(field.value) & """ "
\n             Next 
\n             rs.movenext
\n             k=k+1
\n             xmlcontent = xmlcontent &  "><\/item>" & vbnewline
\n         Wend
\n         rs.close
\n         Set rs = Nothing
\n         xmlcontent = xmlcontent & " <\/root>" & vbnewline
\n         
\n         Dim folderpath
\n         folderpath = Trim(left(m_XmlFile,InstrRev(m_XmlFile,"\\")-1))
\n         Call CreateDIR(folderpath&"") ’\u521b\u5efa\u6587\u4ef6\u5939
\n         WriteStringToXMLFile m_XmlFile,xmlcontent
\n     End Function
\n     
\n     ’\u7c7b\u7684\u79c1\u6709\u65b9\u6cd5=========================================
\n     
\n     Rem \u4eceXml\u6587\u4ef6\u8bfb\u53d6\u6570\u636e
\n     Private Function ReadDataFromXml    
\n         Dim SQLARR()            ’\u6570\u7ec4
\n         Dim XmlDoc              ’XmlDoc\u5bf9\u8c61
\n         Dim objNode             ’\u5b50\u8282\u70b9
\n         Dim ItemsLength         ’\u5b50\u8282\u70b9\u7684\u957f\u5ea6
\n         Dim AttributesLength    ’\u5b50\u8282\u70b9\u5c5e\u6027\u7684\u957f\u5ea6
\n         Set XmlDoc=Server.CreateObject("Microsoft.XMLDOM")
\n         XmlDoc.Async=False 
\n         XmlDoc.Load(m_XmlFile)
\n         Set objNode=XmlDoc.documentElement  ’\u83b7\u53d6\u6839\u8282\u70b9
\n         ItemsLength=objNode.ChildNodes.length  ’\u83b7\u53d6\u5b50\u8282\u70b9\u7684\u957f\u5ea6
\n         For items_i=0 To ItemsLength-1
\n             AttributesLength=objNode.childNodes(items_i).Attributes.length ’\u83b7\u53d6\u5b50\u8282\u70b9\u5c5e\u6027\u7684\u957f\u5ea6
\n             For Attributes_i=0 To AttributesLength-1
\n                 ReDim Preserve SQLARR(AttributesLength-1,items_i)
\n                 SQLArr(Attributes_i,items_i) = objNode.childNodes(items_i).Attributes(Attributes_i).Nodevalue
\n             Next
\n         Next
\n         Set XmlDoc = Nothing 
\n         m_SQLArr = SQLARR
\n     End Function
\n     
\n     Rem \u4ece\u6570\u636e\u5e93\u8bfb\u53d6\u6570\u636e
\n     Private Function ReadDataFromDB
\n         Dim rs
\n         Dim SQLARR()
\n         Dim k
\n         k=0
\n         Set Rs = Server.CreateObject("Adodb.Recordset")
\n         Rs.open m_sql,m_DataConn,1
\n         If Not (rs.eof and rs.bof) Then
\n             While Not rs.eof
\n                 Dim fieldlegth
\n                 fieldlegth = rs.Fields.count
\n                 ReDim Preserve SQLARR(fieldlegth,k)
\n                 Dim fieldi
\n                 For fieldi = 0 To fieldlegth-1
\n                     SQLArr(fieldi,k) = rs.Fields(fieldi).value
\n                 Next 
\n                 rs.movenext
\n                 k=k+1
\n             Wend
\n         End If
\n         rs.close
\n         Set rs = Nothing 
\n         m_SQLArr = SQLArr
\n     End Function
\n     
\n     ’\u7c7b\u7684\u8f85\u52a9\u79c1\u6709\u65b9\u6cd5=========================================
\n     
\n     Rem \u5199xml\u6587\u4ef6
\n     Private Sub WriteStringToXMLFile(filename,str)
\n         Dim fs,ts
\n         Set fs= createobject("scripting.filesystemobject")
\n         If Not IsObject(fs) Then Exit Sub         
\n         Set ts=fs.OpenTextFile(filename,2,True)
\n         ts.writeline(str)
\n         ts.close
\n         Set ts=Nothing
\n         Set fs=Nothing
\n     End Sub
\n     
\n     Rem \u5224\u65adxml\u7f13\u5b58\u662f\u5426\u5230\u671f
\n     Private Function isXmlCacheExpired(file,seconds)
\n         Dim filelasttime
\n         filelasttime = FSOGetFileLastModifiedTime(file)
\n         If DateAdd("s",seconds,filelasttime) < Now Then
\n             isXmlCacheExpired = True 
\n         Else
\n             isXmlCacheExpired = False
\n         End If 
\n     End Function
\n     
\n     Rem \u5f97\u5230\u6587\u4ef6\u7684\u6700\u540e\u4fee\u6539\u65f6\u95f4
\n     Private Function FSOGetFileLastModifiedTime(file)
\n         Dim fso,f,s   
\n         Set fso=CreateObject("Scripting.FileSystemObject")   
\n         Set f=fso.GetFile(file)   
\n         FSOGetFileLastModifiedTime = f.DateLastModified
\n         Set f = Nothing
\n         Set fso = Nothing 
\n     End Function 
\n     
\n     Rem \u6587\u4ef6\u662f\u5426\u5b58\u5728
\n     Public Function FSOExistsFile(file)
\n         Dim fso
\n         Set fso = Server.CreateObject("Scripting.FileSystemObject")
\n         If fso.FileExists(file) Then
\n             FSOExistsFile = true
\n         Else
\n             FSOExistsFile = false
\n         End If 
\n         Set fso = nothing
\n     End Function 
\n     
\n     Rem xml\u8f6c\u4e49\u5b57\u7b26
\n     Private Function XMLStringEnCode(str)
\n         If str&"" = "" Then XMLStringEnCode="":Exit Function
\n         str = Replace(str,"<","&lt;")
\n         str = Replace(str,">","&gt;")
\n         str = Replace(str,"’","&apos;")
\n         str = Replace(str,"""",""")
\n         str = Replace(str,"&","&")
\n         XMLStringEnCode = str
\n     End Function 
\n     
\n     Rem \u521b\u5efa\u6587\u4ef6\u5939
\n     Private function CreateDIR(byval LocalPath)
\n         On  Error  Resume  Next 
\n         Dim i,FileObject,patharr,path_level,pathtmp,cpath
\n         LocalPath = Replace(LocalPath,"\\","\/")
\n         Set  FileObject = server.createobject("Scripting.FileSystemObject")
\n         patharr = Split(LocalPath,"\/")
\n         path_level = UBound (patharr)
\n         For  i = 0 To  path_level
\n             If  i=0 Then  
\n                 pathtmp=patharr(0) & "\/" 
\n             Else  
\n                 pathtmp = pathtmp & patharr(i) & "\/"
\n             End If 
\n             cpath = left(pathtmp,len(pathtmp)-1)
\n             If  Not  FileObject.FolderExists(cpath) Then 
\n                 ’Response.write cpath
\n                 FileObject.CreateFolder cpath
\n             End  If 
\n         Next 
\n         Set  FileObject = Nothing 
\n         If  err.number<>0 Then 
\n             CreateDIR = False 
\n             err.Clear
\n         Else 
\n             CreateDIR = True 
\n         End  If 
\n     End  Function
\n End Class
\n ’\u8bbe\u7f6e\u7f13\u5b58
\n Function SetCache(xmlFilePath,CacheTime,Conn,Sql)
\n     set cache=new XmlCacheCls
\n     Set cache.Conn=Conn
\n     cache.XmlFile=xmlFilePath
\n     cache.Sql=Sql
\n     cache.CacheTime=CacheTime
\n     cache.WriteDataToXml
\n     Set cache = Nothing 
\n End Function
\n ’\u8bfb\u53d6\u7f13\u5b58
\n Function ReadCache(xmlFilePath,Conn,Sql,ByRef ReadOn)
\n     set cache=new XmlCacheCls
\n     Set cache.Conn=conn
\n     cache.XmlFile=xmlFilePath
\n     cache.Sql=Sql
\n     cache.ReadData
\n     ReadCache=cache.SQLArr
\n     ReadOn=cache.ReadOn
\n     Set cache = Nothing 
\n End Function
\n %><\/td>\n<\/tr>\n<\/tbody>\n<\/table>\n

<\/font><\/p>\n

\u4f7f\u7528\u65b9\u6cd5\uff1a<\/p>\n

1\u3001\u8bfb\u53d6\u6570\u636e<\/p>\n

<\/p>\n

\n\n\n\n
\u4ee5\u4e0b\u662f\u5f15\u7528\u7247\u6bb5\uff1a<\/font>
\n \u4ee3\u7801:
\n <!--#include file="include\/xmlcachecls.asp" -->
\n strSel=""
\n ReadOn=0
\n rsArray=ReadCache(Server.Mappath("xmlcache\/index\/*********.xml"),Conn,strSel,ReadOn)
\n ’response.Write("###### "&ReadOn&" ######<br>") \u6d4b\u8bd5\u6570\u636e\u4ece\u54ea\u91cc\u8bfb\u53d6\u7684   \u4f7f\u7528\u65f6\u6ce8\u91ca\u6389
\n If IsArray(rsArray) then
\n       for i=0 to ubound(rsarray,2)
\n             *********
\n       next
\n End If
\n strSel=""
\n rsarray=""<\/td>\n<\/tr>\n<\/tbody>\n<\/table>\n<\/h5>\n

2\u3001\u7f13\u5b58\u6570\u636e
\ncache.asp<\/p>\n\n\n\n
\u4ee5\u4e0b\u662f\u5f15\u7528\u7247\u6bb5\uff1a<\/font>
\n \u4ee3\u7801:
\n <!--#include file="..\/conn.asp" -->
\n <!--#include file="..\/include\/xmlcachecls.asp" -->
\n Sql=""
\n call SetCache(Server.Mappath("..\/xmlcache\/index\/**********.xml"),60*10,Conn,Sql) ’60*10 \u8868\u793a\u7f13\u5b58\u7684\u65f6\u95f4<\/td>\n<\/tr>\n<\/tbody>\n<\/table>\n

3\u3001\u8c03\u7528<\/p>\n

\u5728\u9875\u9762\u5e95\u90e8\u52a0\u5165\uff0c\u8fd9\u6837\u5c31\u4e0d\u4f1a\u5f71\u54cd\u9875\u9762\u6253\u5f00\u7684\u901f\u5ea6<\/p>\n

<\/p>\n

\n\n\n\n
\u4ee5\u4e0b\u662f\u5f15\u7528\u7247\u6bb5\uff1a<\/font>
\n \u4ee3\u7801:
\n <script type="text\/javascript" src="cache.asp"><\/script><\/td>\n<\/tr>\n<\/tbody>\n<\/table>\n<\/h5>\n

\u7f13\u5b58\u65f6\u95f4\uff0c\u5355\u4f4d\u79d2  \u9ed8\u8ba410\u5206\u949f\uff1b\u4e5f\u53ef\u4ee5\u81ea\u5df1\u8bbe\u5b9a cache.CacheTime=60*30 30\u5206\u949f<\/p>\n

<\/code><\/code><\/p>\n","protected":false},"excerpt":{"rendered":"

\u8bfb\u53d6\u673a\u5236\uff1a\u81ea\u52a8\u5224\u65ad\u6709\u65e0\u7f13\u5b58\u4e86\u7684xml\u6587\u4ef6\uff0c\u5f53xml\u6587\u4ef6\u5b58\u5728\u6570\u636e\uff0c\u4fa7\u4ecexml\u83b7\u53d6\u6570\u636e\uff0c\u53cd\u4e4b\u4ece\u6570\u636e\u5e93\u8bfb\u53d6\uff1b \u7f13\u5b58\u673a\u5236\uff1a\u6839\u636exml\u6587\u4ef6\u751f\u5b58\u65f6\u95f4\u548c\u7528\u6237\u81ea\u5b9a\u4e49\u7684\u7f13\u5b58\u65f6\u95f4\u5224\u65ad\u7f13\u5b58\u6709\u65e0\u8fc7\u671f\uff0c\u8fc7\u671f\u4fa7\u751f\u5b58\u65b0\u7684xml\u6587\u4ef6\uff1b \u6709\u6548\u51cf\u5c11\u6570\u636e\u5e93\u67e5\u8be2\u8bfb\u53d6\u6b21\u6570\uff0c\u7f13\u5b58\u6570\u636e…<\/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-165","post","type-post","status-publish","format-standard","hentry","category-technology"],"_links":{"self":[{"href":"http:\/\/www.xiaoyebailong.com\/index.php\/wp-json\/wp\/v2\/posts\/165","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=165"}],"version-history":[{"count":1,"href":"http:\/\/www.xiaoyebailong.com\/index.php\/wp-json\/wp\/v2\/posts\/165\/revisions"}],"predecessor-version":[{"id":66018,"href":"http:\/\/www.xiaoyebailong.com\/index.php\/wp-json\/wp\/v2\/posts\/165\/revisions\/66018"}],"wp:attachment":[{"href":"http:\/\/www.xiaoyebailong.com\/index.php\/wp-json\/wp\/v2\/media?parent=165"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"http:\/\/www.xiaoyebailong.com\/index.php\/wp-json\/wp\/v2\/categories?post=165"},{"taxonomy":"post_tag","embeddable":true,"href":"http:\/\/www.xiaoyebailong.com\/index.php\/wp-json\/wp\/v2\/tags?post=165"},{"taxonomy":"topic","embeddable":true,"href":"http:\/\/www.xiaoyebailong.com\/index.php\/wp-json\/wp\/v2\/topic?post=165"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}