pagetest.asp 表现页面

<!--#include virtual="/conn.asp"-->
<!--#include virtual="/object.asp"-->
<%

strSql = "select * from authors"

set rs=server.CreateObject("ADODB.RecordSet")

rs.open strSql,conn,1,1

set page = new PageBase

page.pagesize = 3

if not isnumeric(request("page"))  then
 page.currentpage=1
else
 if (cint(request("page")<1)) then
  page.currentpage=1
 else
  page.currentpage=request("page")
 end if
end if

page.linkurl="pagetest.asp"

page.show(rs)

page.FenYe(rs)
%>

object.asp 页对象

<%

'***********************************
'*
'*    尼德类
'*
'*    主要有：分页类。。。。。
'*
'*    coolwind  QQ :1294420
'*
'***********************************

class PageBase
dim pagesize '每页显示的记录数
dim currentpage'当然页面数
dim linkurl '链结URL

sub show(oRs)

 '显示分页符号的子程序---------------------------------------------------------------
 i=0
 rs.Move pagesize*(currentpage-1)
 do while not oRs.eof and i<pagesize
  response.write oRs(1)&"<br>"
  i=i+1
  oRs.movenext
 loop
End sub

'显示分页符号的子程序---------------------------------------------------------------

sub FenYe(oRs)

 totalput = oRs.recordcount
 pagesum = totalPut \ PageSize

 '如果是第一页
&nbs

[1] [2] [3] [4] 下一页

在google里搜索更多最简化分页程序，附源代码

	Web www.51ec.org