在ASP中数据较多时怎样实现分页显示?

[ask999]

如题,请给出完整代码.谢谢

[ask999]

谢谢seeyouc()!
我的MAIL: [e-mail]

[popcode]

搜索一下，多的是！！！

PS：自己动手丰衣足食！

[DBApower]

我这里我多个最简单的分页
并且有我写的最简单的分页
比起网上写的繁杂的难理解的分页不止要好多少倍
your e-mail is?
MY e-mail : [e-mail]

[aimei2003]

1。

<%

function showpage(totalnumber,maxperpage,filename)

Response.Write("<tr><td><br>")
dim n
if totalnumber mod maxperpage=0 then
n= totalnumber \ maxperpage
else
n= totalnumber \ maxperpage+1
end if
if n<=1 then exit function
response.write "<p align='center'> "
if CurrentPage<2 then
response.write "<font color='#000080'>首页 上一页</font> "
else
response.write "<a href="&filename&"?page=1&fid="& fid & "&sid=" & sid & "&tid=" & tid &">首页</a> "
response.write "<a href="&filename&"?page="¤tPage-1&"&fid="& fid & "&sid=" & sid & "&tid=" & tid & ">上一页</a> "
end if
if n-currentpage<1 then
response.write "<font color='#000080'>下一页 尾页</font>"
else
response.write "<a href="&filename&"?page="& (CurrentPage+1) & "&fid=" & fid & "&sid=" & sid & "&tid=" & tid&">"
response.write "下一页</a> <a href="&filename&"?page="&n&"&fid="& fid & "&sid=" & sid & "&tid=" & tid &">尾页</a>"
end if
response.write "<font color='#000080'> 页次：</font><strong><font color=red>"¤tPage&"</font><font color='#000080'>/"&n&"</strong>页</font> "
response.write "<font color='#000080'> 共<b>"&totalnumber&"</b>篇文章 <b>"&maxperpage&"</b>篇文章/页</font> "
' response.write " <font color='#000080'>转到：</font><input type='text' name='page' size=4 maxlength=10 class=smallInput value="¤tpage&">"
response.write "</span></p>"
Response.Write("</td></tr>")
end function


%>





2。
<% dim page,totle,no,n,ye
totle=0
n=20
pagesize=n
page=request("no")
no=rs.absolutepage
rs.movefirst
do while not rs.eof
totle=totle+1
rs.movenext
loop
ye=int(totle/n*-1)*-1
if page<1 then
page=1
end if%>
<% rs.movefirst
rs.move((page-1)*20)
y=((page-1)*20)
while y<((page-1)*20)+20 and y<totle
%>
<table border="0" width="750" bgcolor="">
<td bgcolor="#FFFFCC">
<font size="3" color="#3300FF"><b><img src="dafeiliu/<%=rs("image")%>" alt="个性头像">留言者:<font size="4" color="#FF00CC"><%=rs("name")%></font>:于<%=rs("time")%>,<font size="4" color="#FF0000">Email:<a href="mailto:<%=rs("email")%>"></font></b><img src="pic/gif1/mail.gif" width="40" height="32" border="2" alt="信箱"></font></a> <a href="<%=rs("page")%>" target="_blank"><img src="pic/gif1/page.gif" width="40" height="32" border="0" alt=""></a>
<p><font size="4" color="#FF00CC"><%=rs("name")%></font>的留言是：<br>
<table border="2" bordercolor="#FF0066">
<tr>
<td width="750" height="80"><%=rs("word")%></td>
</tr>
</table>
</p>
</table>
<% rs.movenext
y=y+1
wend
rs.close %><br>
<%response.write"<a href=dafei3.asp?no="&page-1&"><font size=3 color=#CCCC66>上一页</font></a>"%>共有留言<font size="4" color="#FF0000"><%=totle%></font>条 <font size="4" color="#FF66FF"><%=ye%></font>页 当前是第<font size="4" color="#33FF33"><%=page%></font>页
<%response.write"<a href=dafei3.asp?no="&page+1&"><font size=3 color=#FF00FF>下一页</font></a>"%><p>

[junsisi]

http://www.5ienet.com/guestbook/default.asp

看看这个，下头有源码的下载

俺自已觉着这个是俺写过的最好的分页代码~~

[blueice2002]

http://expert.csdn.net/Expert/topic/2437/2437534.xml?temp=.4696009