<%
DimCurPage
CurPage=cint(Request("page"))
IfCurPage=emptyorCurPage<1Then
CurPage=1
EndIf
Response.ContentType="application/xml"
Response.Charset="gb2312"
Response.Expires=0
Response.Write("")
Dimrs,Sql'定义连接数据库对象
Setrs=Server.CreateObject("ADODB.Recordset")
Sql="SELECT*FromrevOrderbyidDesc"
rs.OpenSql,Conn,1,3
IFrs.EofAndrs.BofThen
Response.Write("
Response.Write("
Response.Write("")
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("
DoUntilrs.EOForPageCountN=PerPage
Response.Write("
Response.Write("
rs.MoveNext
PageCountN=PageCountN+1
Loop
EndIf
Response.Write("")
%>
打包文件下载
