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

具体的调用代码：

list.asp

只显示相关代码。

<%
。。。。。。
Dim classid
classid = Request("classid")
If classid = "" Or (Not IsNumeric(classid)) Then Response.write "参数错误！":Response.End()
classid = CLng(classid)
Dim sPagesize,TotalPage,CurPage,TotalRec,CachePageNum
sPagesize = 20
CachePageNum = 10
CurPage = Trim(Request("page"))
IF CurPage="" Or (Not IsNumeric(CurPage)) Then
  CurPage=1
Else
  CurPage=Clng(CurPage)
End IF
Dim myarr
myarr = GetListarr(classid,CurPage,sPagesize,CachePageNum,TotalRec)
'总页数
TotalPage = int(clng(TotalRec)/sPagesize*-1)*-1
If Clng(TotalRec)>0 Then
 showData myarr
End If
................
%>

最后在页面最底部调用一个asp的script语句来更新xml缓存。

<script type="text/javascript" src="setcache.asp?action=list&curpage=<%=curpage%>&classid=<%=classid%>"></script>