标题:求助 多行分页
取消只看楼主
1000mb
Rank: 1
等 级:新手上路
帖 子:214
专家分:0
注 册:2005-11-7
 问题点数:0 回复次数:3 
求助 多行分页
在页面中显示很多信息标题时:
这样显示代码要怎么样写:

显不内容:

1。老大哥 2。addanli.asp 3。addanli.asp1 4。addanli.asp
5。addanli.as 6。addanli.asp 7。addanli.asp 8。addanli.asp
。。。。。。。

如果有100条记录 每页显示33条 要怎么写?

[此贴子已经被作者于2005-11-19 9:47:46编辑过]

搜索更多相关主题的帖子: 记录 信息 老大哥 
2005-11-19 09:47
1000mb
Rank: 1
等 级:新手上路
帖 子:214
专家分:0
注 册:2005-11-7
得分:0 

讲得容易,来点代码参考一下。

2005-11-19 10:03
1000mb
Rank: 1
等 级:新手上路
帖 子:214
专家分:0
注 册:2005-11-7
得分:0 

<%
dim top,botten
set rs=server.createobject("adodb.recordset")
sql="select * from anli order by id desc"
rs.open sql,conn,1,1
Response.Write"<table width='100%' border='0' cellspacing='0' cellpadding='0' bgcolor='#ffffff'><tr><td>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;最新更新情况,截止到"&date()&"共有<b> "&rs.RecordCount&" </b>张照片</td></tr></table>"

top=1
if rs.bof and rs.eof then
response.write "没有任何图片"
else
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
rs.PageSize=9 '每页显示num条记录
pageNum=rs.PageCount '共pageNum页
showpage=1 '显示第showpage页
If Not IsNumeric(request("showpage")) Then
showpage=1
else
showpage=Int(request("showpage"))
End if
If showpage<1 Then showpage=1 End If
If showpage>pageNum Then showpage=pageNum End If

rs.AbsolutePage=showpage '当前显示页等于showpage
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
response.write "<table border='0' cellspacing='1' cellpadding='3'><center>"
do while not rs.eof
for botten=1 to 4
if rs.eof then exit for

%>

<td bgcolor="#CAE2F8" width="200" >

&nbsp;<A href="view.asp?id=<%=rs("id")%>" target="_blank"><%=rs("site")%></a>&nbsp;&nbsp;&nbsp;</td>

<%
rs.movenext
top=top+1
next
Response.Write"</tr>"
if top>60 then exit do
loop
end if

Response.Write"</table>"
%>



<%
response.Write("&nbsp;&nbsp;<a href='zhensi.asp?showPage=1' title='第一页'><FONT face=webdings>9</FONT></a>&nbsp;&nbsp;")
for j=1 to pageNum
if showpage=j then
response.Write("<a href='zhensi.asp?showPage="&j&"'><font class='underline'>"&j&"</font></a>&nbsp;&nbsp;")
else response.Write("<a href='zhensi.asp?showPage="&j&"'>"&j&"</a>&nbsp;&nbsp;")
end if
next
response.Write("<a href='zhensi.asp?showPage="&pageNum&"' title='最后一页'><FONT face=webdings>:</FONT></a>")
%>



帮我看看最下面的分页出了什么问题 显示不正常 第一页显示36 第二页27条 第三页18条 第4页 10条

我数据库里才36条记录 为什么会显示成这样 高手帮我改改!

[此贴子已经被作者于2005-11-19 10:41:23编辑过]

2005-11-19 10:38
1000mb
Rank: 1
等 级:新手上路
帖 子:214
专家分:0
注 册:2005-11-7
得分:0 

记录是要添加的嘛 这个数怎么定下来呢?

除几都没关系 就算最后一页一条记录 也是算一页

我现在的问题是 下面的分页 上一页 下一页 首页跟最后页

出了问题,我不知到改 我是让每页显示60条记录

现在才36条记录 怎么会出现 第2页 第3页 第4页的呢?

你是高手帮我看看,改改错在哪里吧! 在线等你。

2005-11-19 11:06



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-34135-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.128631 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved