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

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

em = items(i)
   Dim attrlength
   attrlength = item.attributes.length
   ReDim Preserve SQLARR(attrlength,num)
   Dim Attribute
   Dim Attributei
   Attributei = 0
   For Attributei = 0 To attrlength-1
    SQLArr(Attributei,num) = item.attributes(Attributei).Nodevalue
   Next
   num = num + 1
Next
Set XmlDoc = Nothing
m_SQLArr = SQLArr
End Function

Rem 从DB中读列表数据
Private Function ReadListAndSearchDataFromDB
Dim rs,TotalRec,CurPage
CurPage = m_CurPage
Set Rs = Server.CreateObject("Adodb.Recordset")
Rs.open m_sql,m_DataConn,1
TotalRec = rs.recordcount
m_RecordCount = TotalRec
rs.pagesize = m_PageSize
If CurPage>rs.PageCount Then CurPage = rs.PageCount
If Not rs.eof Then rs.absolutePage=m_CurPage
Dim SQLARR()
Dim k
k = 0
While Not rs.eof and k<m_PageSize
   Dim fieldlegth
   fieldlegth = rs.Fields.count
   ReDim Preserve SQLARR(fieldlegth,k)

   Dim fieldi
   For fieldi = 0 To fieldlegth-1
    SQLArr(fieldi,k) = rs.Fields(fieldi).value
   Next
   rs.movenext
   k=k+1
Wend
rs.close
Set rs = Nothing
m_SQLArr = SQLArr
End Function

Rem 获取xml文件名称
Private Function getXmlFileName(num)
Dim tmpstr
tmpstr = LCase(m_XmlFile)
If Right(tmpstr,4) = ".xml" Then
tmpstr = Left(tmpstr,Len(tmpstr)-Len(".xml"))
End If
tmpstr = Replace(tmpstr,"%","_")
tmpstr = tmpstr & "_" & num & ".xml"
getXmlFileName = tmpstr
End Function

Rem 公共方法将数据写入xml文件
Public Function WriteDataToXml
If m_CacheType = 1 Then
WriteListAndS

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

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

分享到：更多

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

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

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

随机推荐