| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 528 人关注过本帖
标题:[求助]大家来看看这个分页程序
只看楼主 加入收藏
icebo
Rank: 1
等 级:新手上路
帖 子:62
专家分:0
注 册:2006-6-3
收藏
 问题点数:0 回复次数:1 
[求助]大家来看看这个分页程序

分页程序显示效果如图
首页 上一页 1 2 3 4 5 下一页 转到: 页
点"首页 "没有问题,因为直接指向Index.asp
但是后面的页面都指向最后一页.
代码如下:


<%
sql="select * from ly order by time desc"

set rs= Server.CreateObject("ADODB.RecordSet")
rs.Open sql, Conn, 1, 2

page=Request("page")
if page=0 then
page=1
end if
RecordCount = 0
do while not rs.Eof
RecordCount = RecordCount +1
rs.MoveNext
loop
if not RecordCount=0 then
rs.MoveFirst
end if
pageCount=RecordCount/10
pageCount=int(pageCount)
if (RecordCount mod 10)>0 then
PageCount=PageCount +1
end if
if pagecount=0 then pagecount=1
if page>pagecount then page=pagecount

do while pos<(page-1)*10
pos=pos+1
rs.moveNext
loop
x=0
do while x<10 and not rs.eof%>
//显示内容
<%x=x+1
rs.movenext
loop
rs.close
set rs=nothing
%>
页次:
<%if page="" then
response.write"1"
else
response.write page
end if%>
/ <%=pageCount%> 页 主题数: <%=RecordCount%></td>
<td width="48%" align="right">
<%if page=1 then
response.write"首页"
else
response.write"<a href=index.asp class=a1>首页</a> "
end if%>
<%if page=1 then %>
上一页
<%else%>
<a href="index.asp?page=<%=page-1%>" class="a1">上一页</a>
<%end if%>
<% y=1%>
<%do while y<pagecount+1%>
<a href="index.asp?page=<%=y%>" class=a1><%=y%></a>
<%
y=y+1
loop%>
<%if cint(page)=pagecount then %>
下一页
<%else%>
<a href="index.asp?page=<%=page+1%>" class="a1">下一页</a>
<%end if%>
转到:
<input onMouseOver="this.style.backgroundColor = '#E5F0FF'" style="BORDER-RIGHT: #b4b4b4 1px double; BORDER-TOP:

#b4b4b4 1px double; BORDER-LEFT: #b4b4b4 1px double; COLOR: #8888aa; BORDER-BOTTOM: #b4b4b4 1px double; BACKGROUND-COLOR:

#ffffff" onMouseOut="this.style.backgroundColor = ''" maxlength=3 size=3 name=page value="<%=page%>">

<input onMouseOver="this.style.backgroundColor='#FFC864'" style="BORDER-RIGHT: 1px solid; BORDER-TOP: 1px solid;

BORDER-LEFT: 1px solid; COLOR: #000000; BORDER-BOTTOM: 1px solid; HEIGHT: 18px; BACKGROU

搜索更多相关主题的帖子: 页程序 page RecordCount sql 
2007-03-18 12:25
阳光白雪
Rank: 7Rank: 7Rank: 7
等 级:贵宾
威 望:39
帖 子:2220
专家分:0
注 册:2005-11-18
收藏
得分:0 

[QUOTE]<%
sql="select * from ly order by time desc"
set rs= Server.CreateObject("ADODB.RecordSet")
rs.Open sql, Conn, 1, 2
page = Request("page")
if page = "" Or Not IsNumeric(page) then
page=1
end if
RecordCount = Rs.Recordcount ''统计所有记录数
If Not Rs.Eof Then
Rs.PageSize = 10 ''定义每页显示的记录数
AllPageCount = Rs.PageCount ''统计总共的页数
If Page - AllPageCount > 0 Then
Page = AllPageCount
End If
Rs.AbsolutePage = Page
For Icount = 1 To Auto_PageCount
If Rs.Eof Then Exit For
%>
'要显示的内容
<%
Rs.movenext
Next
End If
rs.close
set rs=nothing
%>
页次:<%=page=%>= / <%=pageCount%> 页 主题数: <%=RecordCount%></td>
<td width="48%" align="right">
<%
if page < 2 then
response.write"首页&nbsp;上一页"
else
response.write"<a href=index.asp class=a1>首页</a> <a href=""index.asp?page="& page-1 &""" class=""a1"">上一页</a>"
end If
For y=1 to pagecount+1
%>
<a href="index.asp?page=<%=y%>" class=a1><%=y%></a>
<%
Next
if cint(page) < AllPageCount then
response.write"<a href=""index.asp?page="& page+1 &""" class=""a1"">下一页</a>")
else
response.write"下一页"
end If
%>
转到:
<input onMouseOver="this.style.backgroundColor = '#E5F0FF'" style="BORDER-RIGHT: #b4b4b4 1px double; BORDER-TOP:
#b4b4b4 1px double; BORDER-LEFT: #b4b4b4 1px double; COLOR: #8888aa; BORDER-BOTTOM: #b4b4b4 1px double; BACKGROUND-COLOR:
#ffffff" onMouseOut="this.style.backgroundColor = ''" maxlength=3 size=3 name=page value="<%=page%>">

<input onMouseOver="this.style.backgroundColor='#FFC864'" style="BORDER-RIGHT: 1px solid; BORDER-TOP: 1px solid;
BORDER-LEFT: 1px solid; COLOR: #000000; BORDER-BOTTOM: 1px solid; HEIGHT: 18px; BACKGROU>[/QUOTE]


专注于WEB前端交互平台开发:[url=http://blog./]blog.[/url](富客户端技术(RIA)交流平台)
2007-03-19 10:58
快速回复:[求助]大家来看看这个分页程序
数据加载中...
 
   



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

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