读取机制：自动判断有无缓存了的xml文件，当xml文件存在数据，侧从xml获取数据，反之从数据库读取；

　　缓存机制：根据xml文件生存时间和用户自定义的缓存时间判断缓存有无过期，过期侧生存新的xml文件；

　　有效减少数据库查询读取次数，缓存数据量小读取更快

　　修改了一下，加了两个方法，使用更方便

　　viewsourceprint?001<% 　　002Remxml缓存类 　　003'-------------------------------------------------------------------- 　　004'转载的时候请保留版权信息 　　005'作者：╰⑥月の雨╮ 　　006'博客：http://chthp.cnblogs.com/ 　　007'版本：ver1.0 　　008'本类部分借鉴walkmanxml数据缓存类，使用更为方便欢迎各位交流进步 　　009'-------------------------------------------------------------------- 　　010ClassXmlCacheCls 　　011Privatem_DataConn'数据源，必须已经打开 　　012Privatem_CacheTime'缓存时间，单位秒默认10分钟 　　013Privatem_XmlFile'xml路径，用绝对地址，不需要加扩展名 　　014Privatem_Sql'SQL语句 　　015Privatem_SQLArr'（只读）返回的数据数组 　　016Privatem_ReadOn'（只读）返回读取方式1-数据库2-xml检测用 　　017 　　018'类的属性========================================= 　　019 　　020'数据源 　　021PublicPropertySetConn（v） 　　022Setm_DataConn=v 　　023EndProperty 　　024PublicPropertyGetConn 　　025Conn=m_DataConn 　　026EndProperty 　　027 　　028'缓存时间 　　029PublicPropertyLetCacheTime（v） 　　030m_CacheTime=v 　　031EndProperty 　　032PublicPropertyGetCacheTime 　　033CacheTime=m_CacheTime 　　034EndProperty 　　035 　　036'xml路径，用绝对地址 　　037PublicPropertyLetXmlFile（v） 　　038m_XmlFile=v 　　039EndProperty 　　040PublicPropertyGetXmlFile 　　041XmlFile=m_XmlFile 　　042EndProperty 　　043 　　044'Sql语句 　　045PublicPropertyLetSql（v） 　　046m_Sql=v 　　047EndProperty 　　048PublicPropertyGetSql 　　049Sql=m_Sql 　　050EndProperty 　　051'返回记录数组 　　052PublicPropertyGetSQLArr 　　053SQLArr=m_SQLArr 　　054EndProperty 　　055 　　asp开发中的XML缓存类文件缓存机制是什么 　　056'返回读取方式 　　057PublicPropertyGetReadOn 　　058ReadOn=m_ReadOn 　　059EndProperty 　　060 　　061'类的析构========================================= 　　062 　　063PrivateSubClass_Initialize（）'初始化类 　　064m_CacheTime=60*10'默认缓存时间为10分钟 　　065EndSub 　　066 　　067PrivateSubClass_Terminate（）'释放类 　　068 　　069EndSub 　　070 　　071'类的公共方法========================================= 　　072 　　073Rem读取数据 　　074PublicFunctionReadData 　　075IfFSOExistsFile（m_XmlFile）Then'存在xml缓存，直接从xml中读取 　　076ReadDataFromXml 　　077m_ReadOn=2 　　078Else 　　079ReadDataFromDB 　　080m_ReadOn=1 　　081EndIf 　　082EndFunction 　　083 　　084Rem写入XML数据 　　085PublicFunctionWriteDataToXml 　　086IfFSOExistsFile（m_XmlFile）Then'如果xml未过期则直接退出 　　087IfNotisXmlCacheExpired（m_XmlFile,m_CacheTime）ThenExitFunction 　　088EndIf 　　089Dimrs 　　090Dimxmlcontent 　　091Dimk 　　092xmlcontent="" 　　093xmlcontent=xmlcontent&""&vbnewline

　　094xmlcontent=xmlcontent&""&vbnewline

　　095k=0

　　096SetRs=Server.CreateObject（"Adodb.Recordset"）

　　097Rs.openm_sql,m_DataConn,1

　　098WhileNotrs.eof

　　099xmlcontent=xmlcontent&""&vbnewline

　　106Wend

　　107rs.close

　　108Setrs=Nothing

　　109xmlcontent=xmlcontent&""&vbnewline

　　110

　　111Dimfolderpath

　　112folderpath=Trim（left（m_XmlFile,InstrRev（m_XmlFile,"\"）-1））

　　113CallCreateDIR（folderpath&""）'创建文件夹

　　114WriteStringToXMLFilem_XmlFile,xmlcontent

　　115EndFunction

　　116

　　117'类的私有方法=========================================

　　118

　　119Rem从Xml文件读取数据

　　120PrivateFunctionReadDataFromXml

　　121DimSQLARR（）'数组

　　122DimXmlDoc'XmlDoc对象

　　123DimobjNode'子节点

　　124DimItemsLength'子节点的长度

　　125DimAttributesLength'子节点属性的长度

　　126SetXmlDoc=Server.CreateObject（"Microsoft.XMLDOM"）

　　127XmlDoc.Async=False

　　128XmlDoc.Load（m_XmlFile）

　　129SetobjNode=XmlDoc.documentElement'获取根节点

　　130ItemsLength=objNode.ChildNodes.length'获取子节点的长度

　　131Foritems_i=0ToItemsLength-1

　　132AttributesLength=objNode.childNodes（items_i）。Attributes.length'获取子节点属性的长度

　　133ForAttributes_i=0ToAttributesLength-1

　　134ReDimPreserveSQLARR（AttributesLength-1,items_i）

　　135SQLArr（Attributes_i,items_i）=objNode.childNodes（items_i）。Attributes（Attributes_i）。Nodevalue