实践xml缓存技术构建高性能web站点

 Rem 写具体某条信息的详情xml
 Private Function WriteContentDataToXml
  Rem xml未过期则直接退出
  Dim xmlfile
  xmlfile = m_XmlFile
  If FSOExistsFile(xmlfile) Then
   If Not isXmlCacheExpired(xmlfile,m_CacheTime) Then  Exit Function
  End If
  Dim rs
  Set rs = Server.CreateObject("Adodb.Recordset")
  Rs.open m_sql,m_DataConn
  CreateContentXmlFile xmlfile,Rs
 End Function

 Rem 列表和搜索xml数据
 Private Function WriteListAndSearchDataToXml
 
  Dim sPagesize,TotalPage,CurPage,TotalRec
  sPagesize = m_PageSize * m_CachePageNum
  m_CurPage = CLng(m_CurPage)
 
  If m_CurPage Mod m_CachePageNum = 0 Then
   CurPage = m_CurPage/m_CachePageNum
  Else
   CurPage = int(clng(m_CurPage)/m_CachePageNum)+1
  End If
  Dim xmlfile
  xmlfile = getXmlFileName(CurPage)
  Rem 如果xml未过期则直接退出
  If FSOExistsFile(xmlfile) Then
   If Not isXmlCacheExpired(xmlfile,m_CacheTime) Then  Exit Function
  End If
  Dim rs
  Set Rs = Server.CreateObject("Adodb.Recordset")
  Rs.open m_sql,m_DataConn,1
  TotalRec = rs.recordcount
  rs.pagesize = sPagesize
  If  CurPage>rs.PageCount Then  CurPage = rs.PageCount
  CreateListAndSearchXMLFile xmlfile,TotalRec,Rs,sPagesize
 End Function
 
 Rem 私有方法
 Rem 得到文件的最后修改时间
 Private Function FSOGetFileLastModifiedTime(file)
  Dim fso,f,s  
  Set fso=CreateObject("Scripting.FileSystemObject")  
  Set f=fso.GetFile(file)  
  FSOGetFileLastModifiedTime = f.DateLastModified
  Set f = Nothing
  Set fso = Nothing
 End Function

 Rem 判断xml缓存是否到期
 Private Function isXmlCacheExpired(file,seconds)
  Dim filelasttime
  fil

凌众科技专业提供服务器租用、服务器托管、企业邮局、虚拟主机等服务，公司网站：http://www.lingzhong.cn 为了给广大客户了解更多的技术信息，本技术文章收集来源于网络,凌众科技尊重文章作者的版权，如果有涉及你的版权有必要删除你的文章，请和我们联系。以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!