拓文网络 → 网站编程 → ASP - asp 精典分页代码［正文］


		《拓文asp.net网站内容管理系统》官方演示站。	设为首页
			收藏本站
			作者：黄振安
			ＱＱ：53854651

站内搜索：

您现在的位置：拓文网络 → 网站编程 → ASP → asp 精典分页代码［正文］

热门文章

asp.net开发wap必备：更好的匹配手机设备

用ashx动态生成文件

windows 2003下asp.Net站点无法使用用户名＋密码的方

ASP.NET中17种正则表达式

提高ASP.Net应用程序性能的十大方法

一个通过web.Mail发送邮件的类

asp 精典分页代码

［作者：不详转贴自：不详点击数：更新时间：2006-3-13 8:46:32］

<%page=cint(request("page"))
set rs=server.createobject("adodb.recordset")
rs.open"select * from news order by id desc ",conn,3,3
rall=rs.recordcount
url="news.asp"
if not rs.eof then
const size=8
rs.pagesize=size
tpage=int(rall/size)
if rall mod size<>0 then tpage=tpage+1
if page>tpage or page<1 then page=1
rs.absolutepage=page
end if%>

'---------------------------------

<font color="#000000"> 分页>>
<%if tpage=1 then%>
首页上页下页末页<%=page%>页/共<%=tpage%>页
<%else%>
<%select case page
case 1%>
首页上页<a href="<%=url%>?page=2"> 下页</a> <a href="<%=url%>?page=<%=tpage%>">末页</a>
<%=page%>页/共<%=tpage%>页
<%case tpage%>
<a href="<%=url%>?page=1">首页</a> <a href="<%=url%>?page=<%=tpage-1%>">上页</a>
下页末页 <%=page%>页/共<%=tpage%>页
<%case else%>
<a href="<%=url%>.asp?page=1">首页</a> <a href="<%=url%>?page=<%=page-1%>">上页</a>
<a href="<%=url%>?page=<%=page+1%>">下页</a> <a href="<%=url%>?page=<%=tpage%>">末页</a>
<%=page%>页/共<%=tpage%>页
<%end select
end if
%>
</font>

首页 | 1 | 尾页共 1 页

hch004

打印本页

关闭窗口

文章评论

	评论人	查看该文章的评论	发表时间
笔名* ： 0 50分 60分 70分 80分 90分 100分评论内容 *：（最多1000字。当前字数：0）
没有相关评论，欢迎您参与！