<html>
<head>
	<title>分页显示数据</title>
</head>
<body>
<%
 '建立connection对象
 dim db,rs,strsql,strconn
 strconn="dbq="&server.mappath("jxgl.mdb")& _
 ";driver={microsoft access driver (*.mdb)}"
 set db=server.createobject("adodb.connection")
 db.open strconn                                '这里利用非数据源连接
 set rs=server.createobject("adodb.recordset")
 strsql ="select * from xsxx"
 rs.open strsql,db,1                             '注意参数设置
 '如果记录集不是空的，就执行分页显示
 if not rs.bof and not rs.eof then
'------------------------------------------------------------------
 '下面一段判断当前显示第几页，如是第一次打开，为1，否则由传回参数决定
  dim page_no                            
  if request.querystring("page_no")=""  then  '条件判断
   page_no=1 
  else
   page_no=cint(request.querystring("page_no"))'用cint将字符串变为整数
  end if
'------------------------------------------------------------------
  '下面一段开始分页显示，指向要显示的页，然后逐条显示当前页的所有记录。
  rs.pagesize=2
  rs.absolutepage=page_no                 '设置当前显示第几页
  dim i                                  '该变量用来控制显示当前页记录
  if page_no=rs.pagecount then
%>
 <p>当前【最后一页】【共<% =rs.pagecount %>页】</p>
<% else %>
  <p>当前【第<% =page_no %>页】【共<% =rs.pagecount %>页】</p>
<%
  end if
'------------------------------------------------------------------
  i=rs.pagesize
  do while not rs.eof and i>0     '循环直到当前页结束或记录集结尾
	i=i-1
	response.write rs("姓名") & "<br>"      '输出姓名字段值
	rs.movenext
  loop
	response.write"<p>"
'------------------------------------------------------------------
'下面开始分页导航
	showf=true:showp=true:shown=true:showl=true     '赋初始值
	if rs.pagecount<2 then         '总数为1时，不显示分页导航条
	 showf=false:showp=false:shown=false:showl=false
	else                                              '如果有多页时
	 select case page_no
	  case 1             '当前页码为1时，只需显示下一页和最后一页
		showf=false:showp=false
	  case  rs.pagecount   '页码为最后一页，只需显示第一页和上一页
		shown=false:showl=false
	 end select
	end if
'------------------------------------------------------------------
'定义一个分页导航的函数
 sub showlink(npage,atitle)
  response.write("<a href='9-12.asp?page_no=")
  response.write(cstr(npage)&"'>"&atitle&"</a>&nbsp;")
 end sub
'------------------------------------------------------------------
  '根据前面的分页显示相关的分页导航条
  if showf then call showlink(1,"第1页")
  if showp then   call showlink(page_no-1,"上一页")
  if shown then call showlink(page_no+1,"下一页")
  if showl then call showlink(rs.pagecount,"最后一页")
'------------------------------------------------------------------
  else
   response.write "该记录集为空"
  end if
  '关闭对象就省略了 
%>
</body>
</html>
