Asp初学者常见问题之十五如何分页?其原理是什么?

在分页中，我第一页用

sheying4.asp?page=1&ttype=<%=rs("ttype")%> 可以实现，其中page=1

但如果要显示最后一页，由于这个数是不固定的，该怎么定义

就是最后页面的page应该=几？

首先你了解一下分页的原理吧!

set objrs = server.createobject("adodb.recordset")

objrs.open strsql, conn,1,1

recordNum=objrs.recordcount '数据总数

maxperpage=15

objrs.pagesize=maxperpage '每页显示的记录

totalpage=objrs.PageCount '总页数

if request.querystring("page")="" then

page=1

else

page=cint(request.querystring("page"))

end if

if not objrs.eof then

objrs.AbsolutePage=page

end if

if objrs.eof then

response.write "没有找到任何记录!"

else

'开始显示记录

for i=1 to objrs.pagesize

-----------

'显示分页

<%k = page

if k <> 1 then '如果当前不是第一页

<a href=plue.asp?page=1 class=td1>首页</a>&nbsp;

<a href=plue.asp?page=<%=cstr(k-1)%> class=td1>上一页</a>

<%else%>

<span class="td1">首页&nbsp;上一页&nbsp; </span>

<%end if%>

<%if k<>totalpage then%> '如果当前页不是最后一页

<a href=plue.asp?page=<%=cstr(k+1)%> class=td1>下一页</a>&nbsp;<a href=plue.asp?page=<%=totalpage%> class=td1>尾页</a>&nbsp;

<%else%>

<span class="td1">下一页&nbsp;尾页&nbsp;</span>

<%end if%>