简单的ASP分页代码(测试正确)


本文匆匆已经全面测试,支持ASP+ACCESS以及ASP+SQL,请修改相关部分就可以了。
注意,匆匆谢绝基础问题回答,已经本代码已经很简单,如果还不懂可以参阅本站其他栏目。

<!--#include file="conn.asp"-->
<% '以上为包含数据库衔接文件
'--------------------------------------------查询开始数据库

set rs=server.CreateObject("adodb.recordset")
rs.open "select * from books where id="&id&" order by id desc",conn,1,1
if err.number<>0 then
response.write "数据库中无数据"
end if

'------------------------------------------分页开始
if rs.recordcount=0 then
respose.write "没有数据"
else
rs.PageSize =10 '每页记录条数
iCount=rs.RecordCount '记录总数
iPageSize=rs.PageSize
maxpage=rs.PageCount
page=request("page")

if Not IsNumeric(page) or page="" then
page=1
else
page=cint(page)
end if

if page<1 then
page=1
elseif page>maxpage then
page=maxpage
end if

rs.AbsolutePage=Page

if page=maxpage then
x=iCount-(maxpage-1)*iPageSize
else
x=iPageSize
end if

For i=1 To x



相关阅读:
PHP中通过语义URL防止网站被攻击的方法分享
聊天室实现私聊(三)
AMD显卡最新Linux系统版本驱动大幅更新(图)
Visual Studio 2010自动执行属性
JavaBean实现多文件上传的两种方法
CSS网页布局入门教程1:一列固定宽度
Vista版本Plus Pack新功能抢先看
微软给出购买Netbook的建议
查看“直接查询结果为空”的视图
如何在Access 2007数据库中添加附件
linux下飞快的BT客户端rtorrent设置
Prototype使用指南之hash.js
用JavaScript实现 铁甲无敌奖门人 “开口中”猜数游戏
改善用户体验的五款jQuery插件分享
快速导航

Copyright © 2016 phpStudy |