!--#include file="command.asp" -->
%
Dim  CurPage
CurPage=cint(Request("page"))
If CurPage = empty or CurPage1 Then 
     CurPage = 1
End If
Response.ContentType="application/xml"
Response.Charset="gb2312" 
Response.Expires=0
Response.Write("?xml version=""1.0"" encoding=""gb2312""?>")
Dim rs,Sql  '定义连接数据库对象
Set rs=Server.CreateObject("ADODB.Recordset")
Sql="SELECT * From rev Order by id Desc"  
rs.Open Sql,Conn,1,3
IF rs.Eof And rs.Bof Then
    Response.Write("data page=""0"" P_Nums=""0"">")
    Response.Write("Content>没有留言/Content>")
    Response.Write("/data>")
    Response.End
Else
    Dim PerPage,P_Nums,PageCountN,D_Nums
    PerPage=3
    Rs.PageSize=PerPage
    Rs.AbsolutePage=CurPage
    P_Nums=Rs.PageCount 
    D_Nums=Rs.RecordCount
    Response.Write("data page="""CurPage""" P_Nums="""P_Nums""" D_Nums="""D_Nums""">")
    Do Until rs.EOF or PageCountN=PerPage
      Response.Write("Author PostTime="""formatTime(rs("PostTime"))""">![CDATA["rs("memContent")"]]>/Author>")
      Response.Write("Content>![CDATA["rs("memContent")"]]>/Content>")
      rs.MoveNext
      PageCountN=PageCountN+1
    Loop
End If
Response.Write("/data>")
%>
打包文件下载