<!--#include file="command.asp" --> <% Dim CurPage CurPage=cint(Request("page")) If CurPage = empty or CurPage<1 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>") %> 打包文件下載
