<! -- # 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 and SQL 'define database connection objects
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> no message </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> ")
%>
Package File Download