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

作者佚名技术来源 ASP编程浏览发布时间 2012-03-12

elasttime = FSOGetFileLastModifiedTime(file)
If DateAdd("s",seconds,filelasttime) < Now Then
   isXmlCacheExpired = True
Else
   isXmlCacheExpired = False
End If
End Function
Rem 文件是否存在
Private Function FSOExistsFile(file)
Dim fso
Set fso = Server.CreateObject("Scripting.FileSystemObject")
If fso.FileExists(file) Then
   FSOExistsFile = true
Else
   FSOExistsFile = false
End If
Set fso = nothing
End Function

Rem 生成详细数据的xml
Private Function CreateContentXmlFile(xmlfile,Rs)
Dim xmlcontent
xmlcontent = "<?xml version=""1.0"" encoding=""gb2312""?>" & vbnewline
xmlcontent = xmlcontent & "<root>" & vbnewline

Dim field
For Each field In rs.Fields
   xmlcontent = xmlcontent & "<"&field.name&">"
   Dim value
   value = field.value
   If TypeName(value) = "String" Then
    xmlcontent = xmlcontent & "<![CDATA[" & Trim(value) & "]]>"
   Else
    xmlcontent = xmlcontent & Trim(value)
   End If
   xmlcontent = xmlcontent & "</"&field.name&">" & vbnewline
Next
rs.close
Set rs = Nothing
xmlcontent = xmlcontent & "</root>" & vbnewline

Dim folderpath
folderpath = Trim(left(xmlfile,InstrRev(xmlfile,"\")-1))
Call CreateDIR(folderpath&"") ''创建文件夹
WriteStringToXMLFile xmlfile,xmlcontent
End Function

Rem 生成列表的xml
Private Function CreateListAndSearchXMLFile(xmlfile,TotalRec,Rs,sPagesize)
Dim xmlcontent
xmlcontent = ""
xmlc

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

上一页 1 2 3 4 5 6 7 8 9 下一页

分享到：更多

你可能对下面的文章感兴趣

上一篇: WEB共享与IIS相结合快速建立本地网站下一篇: ASP程序直接连接MYSQL数据库

关于实践xml缓存技术构建高性能web站点的所有评论

随机推荐