分页显示数据

<% Dim cnn,rs,strSql Set cnn=Server.CreateObject("ADODB.Connection") '建立Connection对象 cnn.Open "dbq="&server.MapPath("jxgl.mdb")& _ ";driver={microsoft access driver (*.mdb)}" Set rs=Server.CreateObject("ADODB.Recordset") '建立Recordset对象 strSql ="select * From xsxx" rs.Open strSql,cnn,1 '注意参数设置 '如果记录集不是空的，就执行分页显示 If Not rs.Bof And Not rs.Eof Then rs.PageSize=2 '设置每页2条记录 '----------------------------------------------------------------------- '下面一段判断当前显示第几页，如是第一次打开为1，否则由传回参数page_no决定 Dim page_no If Request.QueryString("page_no")="" Then page_no=1 Else page_no=Cint(Request.QueryString ("page_no")) '用Cint将字符串变为整数 End If '------------------------------------------------------------------- '下面一段是显示从1到总页数的页码，如不是当前页，就加上超链接 Response.Write "请选择数据页:" For I=1 To rs.PageCount If I=page_no Then '如是当前页，就不加超链接 Response.Write I & " " Else '如不是当前页，就加上超链接 Response.Write"" &I&" " End If Next '------------------------------------------------------------------- '下面一段开始分页显示，指向要显示的页，然后逐条显示当前页的所有记录。 rs.AbsolutePage=page_no '设置当前显示第几页 Dim I,J '该变量用来控制显示当前页记录 j=rs.PageSize Do While Not rs.Eof And J>0 '循环直到当前页结束或记录集结尾 J=J-1 Response.Write "
" & rs("姓名") '输出姓名字段值 rs.MoveNext Loop '------------------------------------------------------------------- Else Response.Write "该记录集为空" End If %>