分页教程，专为新手服务

天泪离星 · 发表于 2009-9-15 02:24:00

如何将数据库中成千上万的记录进行分页显示一直是很让人头疼的问题，尤其是对于我们这些刚刚入门的小菜来说
出于练习的目的我照着参考资料整了一个分页代码，然后想想干脆本着奇文共赏析的原则加上注释来和大家分享一下，参考还是复制随便你，当然正如标题所说这是专为新手服务的~~高手尽管飘过

< % @language="vbscript"%>
<%option explicit%>
<html>
<head>
<title>分页显示</title>
</head>
<body>
<h2>标题</h2>
<%
dim db,rs,sql
set db=server.createobject("adodb.connection") '建立connection对象，以与数据库相连'
db.open"数据库名称"                            '连接数据库
set rs=server.createobject("adodb.recordset") '建立recordset对象，用来记录由数据库取得的数据集对象
sql="select * from 事先做好的表名称"             ’这个我就不说啥了
rs.open aql,db,1                               '执行上面的语句，其中1是cursortype参数，表明在表中可以向前或者向后移动指针
---------------------------------------------------------------------------------------------------------------------------------------------
下面的程序判断是不是第一次打开，是的话则当前页为1.不是的话由传回参数决定
if not rs.bof and not rs.eof
then
if request.querystring("p_no")=""then          '如果p_no参数是空的话
p_no=1
else p_no=cint(request.querystring("p_no"))
end if
-----------------------------------------------------------------------------------------------------------------------------------------------
下面的程序判断程序要指向的页数，并且逐条显示当前页的记录
rs.pagesize=每页显示的记录个数                   ’pagesize:看中文也能猜出来是什么意思
rs.absolutepage=p_no                            '指定当前页
dim p
p=rs.pagesize
<%
do while not rs.eof and p>0
p=p-1                   ’注意参数p的用处，就是控制一页中显示的记录数目
%>
………………             '省略掉的部分是html语句，这部分语句作用是显示所需要的信息
<%
rs.movenext
loop
%>

-----------------------------------------------------------------------------------------------------------------------------------------------
显示页数信息，如果是当前页就只显示页号，不然就加上超链接
<%
response.write"您当前所在页数是:"
for p=1 to p=rs.pagecount             ’pagecount:总页数
if p=p_no then
response.write "&p&"
then response.write"<a href=page.asp?p_no="&p&">"&p&"</a>"
end if
next
else response.write"该记录为空"
end if
rs.close
set rs=nothing
db.close
set db=nothing                         '最后扫尾工作，释放connection和recordset 对象
</body>
</html>

		自动登录	找回密码
密码			注册

分页教程，专为新手服务

浏览过的版块