<%
set conn = server.createobject("adodb.connection")
conn.open Application("sql")
sqlb = "select * from five_he where xianshi=1 order by uptime desc"
set rs = server.createobject("adodb.recordset")
rs.open sqlb,conn,1
rs.pagesize = 20
if request("page")="" then
page=1
else
page=Cint(request("page"))
end if
if page*rs.pagesize>rs.recordcount then
cend=rs.recordcount
else
cend=page*rs.pagesize
end if
on error resume next
rs.AbsolutePage = Page
for i = 1 to rs.pagesize
if rs.eof then exit for
%>
