<%
'id=Request("id")
'session("sid")=id
sql = "select * from Photo where ok=0 order by hit desc"
Set rs=Server.CreateObject("Adodb.Recordset")
rs.Open sql, conn, 1, 1
if not rs.eof then
pages = 30 '定义每页显示的记录数
mpage = pages
mrs = rs.Recordcount
rs.pageSize = pages '定义每页显示的记录数
allPages = rs.pageCount'计算一共能分多少页
page = Request.QueryString("page")'通过浏览器传递的页数
'if语句属于基本的排错处理
if isEmpty(page) or Cint(page) < 1 then
page = 1
elseif Cint(page) > allPages then
page = allPages
end if
rs.AbsolutePage = page
Do while not rs.eof and pages > 0
%>
<%
rs.MoveNext
%>
<%
loop
end if
rs.Close
Set rs=Nothing
%>
页次：<%=page%>/<%=allpages%> 每页<%=mpage%> 共<%=mrs%> 分页：
<%
for i=1 to allpages
if i=Cint(page) then
Response.Write("["&i&"]")
else
Response.Write("["&i&"]")
end if
next
%>
