%
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")
%
打包文件下载 猜你喜欢