标题:[求助]分页那里有问题.改一下
取消只看楼主
rtc
Rank: 2
等 级:新手上路
威 望:4
帖 子:590
专家分:0
注 册:2007-6-6
 问题点数:0 回复次数:3 
[求助]分页那里有问题.改一下

<%
dim records_pp '存储每页的新闻数
records_pp=5
dim total_pages '总的页数
dim page '当前页码
dim tatal_records
rem 获取页码
page=request.QueryString("p")
if isnumeric(page) then
page=cint(page)
else
page=1
end if
if page=0 then page=1 end if
if page<0 then page=1 end if
%>
<%
set rs=server.CreateObject("adodb.recordset")
sql="select*from liuyanban order by date desc"
rs.open sql,cn,1,3
total_pages=(rs.recordcount-1) \ records_pp + 1

if page>total_pages then page=total_pages
for i=1 to (page-1)*records_pp
rs.movenext
next
tatal_records=rs.recordcount
%>

<%for i= 1 to records_pp

if rs.eof then exit for
%>
<table width="500" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#f0f0f0">
<tr>
<td width="130" height="130"><div align="center"><img src="" width="110" height="117" alt="" /></div></td>
<td width="370" align="left" valign="middle"><table width="370" border="0" cellpadding="0" cellspacing="0" class="titleCopy">
<tr>
<td>留言人:<%=rs("name")%></td>
</tr>
<tr>
<td>签写日期:<%=rs("date")%></td>
</tr>
<tr>
<td>联系方式:<%=rs("lx")%></td>
</tr>
<tr>
<td>留言内容:<%=rs("word")%></td>
</tr>
<tr>
<td><span class="titleCopy2">[回复内容]<%=rs("reword")%></span></td>
</tr>
</table>

</td>
</tr>
</table>


</td>
</tr>
<tr>
<td height="30"><div align="center">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="9" align="center" valign="middle"></td>
</tr>
</table>
<%

rs.movenext
next
rs.close
set rs=nothing
cn.close
set cn=nothing
%>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="40" align="center" valign="middle" class="titleCopy"><p><img src="pic/22.jpg" width="450" height="20" vspace="5" /><br />
[共<%=total_pages%>页]
 [当前第<%=page%>页] 
<a href="guestbook.asp?p=1">首页</a> 
<a href="guestbook.asp?p=<%=page-1%>">上一页</a> 
<a href="guestbook.asp?p=<%=page+1%>">下一页</a> 
<a href="guestbook.asp?p=<%=tatal_page%>">尾页</a></p>
</td>
</tr>
</table>

这是我的分页
觉得有点奇怪!!!!!!!!!!!

搜索更多相关主题的帖子: page dim records end 
2007-07-12 16:13
rtc
Rank: 2
等 级:新手上路
威 望:4
帖 子:590
专家分:0
注 册:2007-6-6
得分:0 
没有错误,.
但是我按尾页的时候有点怪怪.

就是如果我一页显示5条.而当我直接按尾页才一页记录.
但是我按尾页的时候却显示5条, 加上最前4条.
和直接一页一页按到尾页就正常
不知道为什么
2007-07-13 14:38
rtc
Rank: 2
等 级:新手上路
威 望:4
帖 子:590
专家分:0
注 册:2007-6-6
得分:0 

没用.
发一下你的代码!!!!!!!!!

2007-07-14 12:26
rtc
Rank: 2
等 级:新手上路
威 望:4
帖 子:590
专家分:0
注 册:2007-6-6
得分:0 
你是自己写算法
我晕4·!!!!!!!
2007-07-15 12:06



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




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

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