<% Page=Request.QueryString("Page") if Int(Page)="" or int(page)<1 then currentPage=1 else currentPage=cint(Page) end if set rs=server.createobject("adodb.recordset") sql="select * from tbl_article order by exacttime desc" rs.open sql,conn,1,1 if rs.eof and rs.bof then rseof=1 else rseof=2 MaxPerPage=23 PageUrl="admin_art_mnr.asp" totalPut=rs.recordcount if currentpage<1 then currentpage=1 if (currentpage-1)*MaxPerPage>totalput then if (totalPut mod MaxPerPage)=0 then currentpage= totalPut \ MaxPerPage else currentpage= totalPut \ MaxPerPage + 1 end if end if end if %>
<% i=i+1 if i>=MaxPerPage then exit do rs.movenext loop end sub
function showpage(totalnumber,maxperpage,filename) if totalnumber mod maxperpage=0 then n= totalnumber \ maxperpage else n= totalnumber \ maxperpage+1 end if %>
共<%=totalnumber%>篇文章 <%if CurrentPage<2 then%> 首页 上一页 <%else%> 首页 上一页 <% end if if n-currentpage<1 then %> 下一页 末页 <%else%> 下一页 末页 <%end if%> 页次:<%=CurrentPage%>/<%=n%>页
<% end function %>
控制面板
文章管理中心
ID
标题
作者
时间
管理项目
<% if rseof=1 then %>
没有任何文章
<% else if currentPage=1 then showContent
else if (currentPage-1)*MaxPerPage rs.move (currentPage-1)*MaxPerPage dim bookmark bookmark=rs.bookmark showContent