asp如何让他分页显示?.每页显示10行

2024-12-20 13:33:06
推荐回答(2个)
回答1:

直接改好就算了
下面给你贴段分页的代码你参考一下
这个是我刚写的一个系统的管理后台的分页显示管理
自己研究才有进步

说明 注意那个PAGE是分页的页码
conn.asp是一个数据库连接文件


<%
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
%>

<%
sub showContent
i=0

%>

<%
do while not rs.eof
%>

<%=rs("id")%>
" target="_blank"><% if len(rs("title"))<26 then %><%=rs("title")%><%else%><%=left(rs("title"),25)&"..."%><%end if%>
<%=rs("username")%>
<%=rs("time")%>
" class="STYLE3">编|">|?


<%
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

else
currentPage=1
showContent

end if
end if
end if
%>
<% if rseof<>1 then
%>



<%
end if
%>
没有任何文章

<%
showpage totalput,MaxPerPage,PageUrl
%>




回答2:

ASP.NET 2.0中的页面输出缓存