<>

<%

DimCurPage

CurPage=cint(Request("page"))

IfCurPage=emptyorCurPage<1Then

CurPage=1

EndIf

Response.ContentType="application/xml"

Response.Charset="gb2312"

Response.Expires=0

Response.Write("<?xmlversion=""1.0""encoding=""gb2312""?>")

Dimrs,Sql'定义连接数据库对象

Setrs=Server.CreateObject("ADODB.Recordset")

Sql="SELECT*FromrevOrderbyidDesc"

rs.OpenSql,Conn,1,3

IFrs.EofAndrs.BofThen

Response.Write("<datapage=""0""P_Nums=""0"">")

Response.Write("<Content>没有留言</Content>")

Response.Write("</data>")

Response.End

Else

DimPerPage,P_Nums,PageCountN,D_Nums

PerPage=3

Rs.PageSize=PerPage

Rs.AbsolutePage=CurPage

P_Nums=Rs.PageCount

D_Nums=Rs.RecordCount

Response.Write("<datapage="""&CurPage&"""P_Nums="""&P_Nums&"""D_Nums="""&D_Nums&""">")

DoUntilrs.EOForPageCountN=PerPage

Response.Write("<AuthorPostTime="""&formatTime(rs("PostTime"))&"""><![CDATA["&rs("memContent")&"]]></Author>")

Response.Write("<Content><![CDATA["&rs("memContent")&"]]></Content>")

rs.MoveNext

PageCountN=PageCountN+1

Loop

EndIf

Response.Write("</data>")

%>

打包文件下载