< % @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>