%
Dim objrs1,strsql1
strsql1="select count(*) as recount from invite"
set objrs1=server.createobject("ADODB.Recordset")
objrs1.open strsql1,objconn,1,2,1
pagesize=15
pagecount=cint(objrs1("recount")-1)\pagesize+1
pageno=checkpage(rp(Request.querystring("page")),pagecount)
m=(pageno-1)*pagesize
Dim objrs,strsql
if m=0 then
strsql="select top " & pagesize & " id,name,xlevel,wexp,pnum,addtime from invite order by addtime desc,id"
else
strsql="select top " & pagesize & " id,name,xlevel,wexp,pnum,addtime from invite where id not in(select top " & m & " id from invite order by addtime desc,id) order by addtime desc,id"
End if
set objrs=server.createobject("ADODB.Recordset")
objrs.open strsql,objconn,1,2,1
%>