!--#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>") %> 打包文件下載
