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

\u7279\u70b9\uff1a<\/p>\n

<\/strong>\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<\/font><\/p>\n

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

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

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

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

\"\"<<\/span>!<\/span>—<\/span>#include file<\/span>=<\/span>"<\/span>include\/xmlcachecls.asp<\/span>"<\/span> <\/span>–><\/span>
\n\"\"strSel<\/span>=<\/span>""<\/span>
\n\"\"ReadOn<\/span>=<\/span>0<\/span>
\n\"\"rsArray<\/span>=<\/span>ReadCache(Server.Mappath(<\/span>"<\/span>xmlcache\/index\/*********.xml<\/span>"<\/span>),Conn,strSel,ReadOn)
\n\"\"<\/span>‘<\/span>response.Write("###### "&ReadOn&" ######<br>") \u6d4b\u8bd5\u6570\u636e\u4ece\u54ea\u91cc\u8bfb\u53d6\u7684   \u4f7f\u7528\u65f6\u6ce8\u91ca\u6389<\/span>
\n\"\"<\/span>If<\/span> <\/span>IsArray<\/span>(rsArray) <\/span>then<\/span>
\n\"\"      <\/span>for<\/span> i<\/span>=<\/span>0<\/span> <\/span>to<\/span> <\/span>ubound<\/span>(rsarray,<\/span>2<\/span>)
\n\"\"            <\/span>*********<\/span>
\n\"\"      <\/span>next<\/span>
\n\"\"<\/span>End<\/span> <\/span>If<\/span>
\n\"\"strSel<\/span>=<\/span>""<\/span>
\n\"\"rsarray<\/span>=<\/span>""<\/span>
\n\"\"<\/span><\/div>\n

\n2\u3001\u7f13\u5b58\u6570\u636e
\ncache.asp
\n <\/p>\n

\"\"<<\/span>!<\/span>—<\/span>#include file<\/span>=<\/span>"<\/span>..\/conn.asp<\/span>"<\/span> <\/span>–><\/span>
\n\"\"<\/span><<\/span>!<\/span>—<\/span>#include file<\/span>=<\/span>"<\/span>..\/include\/xmlcachecls.asp<\/span>"<\/span> <\/span>–><\/span>
\n\"\"Sql<\/span>=<\/span>""<\/span>
\n\"\"<\/span>call<\/span> SetCache(Server.Mappath(<\/span>"<\/span>..\/xmlcache\/index\/**********.xml<\/span>"<\/span>),<\/span>60<\/span>*<\/span>10<\/span>,Conn,Sql) <\/span>‘<\/span>60*10 \u8868\u793a\u7f13\u5b58\u7684\u65f6\u95f4<\/span>
\n\"\"<\/span><\/div>\n

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

\"\"<\/font><<\/span>script type<\/span>=<\/span>"<\/span>text\/javascript<\/span>"<\/span> src<\/span>=<\/span>"<\/span>cache.asp<\/span>"<\/span>><\/<\/span>script<\/span>><\/span><\/div>\n","protected":false},"excerpt":{"rendered":"

\u7279\u70b9\uff1a \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…<\/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-170","post","type-post","status-publish","format-standard","hentry","category-technology"],"_links":{"self":[{"href":"http:\/\/www.xiaoyebailong.com\/index.php\/wp-json\/wp\/v2\/posts\/170","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=170"}],"version-history":[{"count":1,"href":"http:\/\/www.xiaoyebailong.com\/index.php\/wp-json\/wp\/v2\/posts\/170\/revisions"}],"predecessor-version":[{"id":66053,"href":"http:\/\/www.xiaoyebailong.com\/index.php\/wp-json\/wp\/v2\/posts\/170\/revisions\/66053"}],"wp:attachment":[{"href":"http:\/\/www.xiaoyebailong.com\/index.php\/wp-json\/wp\/v2\/media?parent=170"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"http:\/\/www.xiaoyebailong.com\/index.php\/wp-json\/wp\/v2\/categories?post=170"},{"taxonomy":"post_tag","embeddable":true,"href":"http:\/\/www.xiaoyebailong.com\/index.php\/wp-json\/wp\/v2\/tags?post=170"},{"taxonomy":"topic","embeddable":true,"href":"http:\/\/www.xiaoyebailong.com\/index.php\/wp-json\/wp\/v2\/topic?post=170"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}