<%Set conn = Server.CreateObject("ADODB.Connection")strcon="provider=microsoft.jet.oledb.4.0;data source="& _server.mappath("mdb.mdb")conn.Open strconSet rs = Server.CreateObject ("ADODB.Recordset")sql="select * from table order by id desc"rs.Open sql, conn, 1page=1 ' 设置变量PAGE=1rs.PageSize = 5 '每页显示记录数if Not IsEmpty(Request("Page")) then '如果PAGE已经初始化...Page = CInt(Request("Page")) '接收PAGE并化为数字型赋给PAGE变量if Page > rst.PageCount then '如果接收的页数大于总页数rst.AbsolutePage = rst.PageCount '设置当前显示页等于最后页elseif Page <= 0 then '如果page小于等于0Page = 1 '设置PAGE等于第一页elsers.AbsolutePage = Page '如果大于零,显示当前页等于接收的页数 end ifEnd ifintCurPage = rsj.AbsolutePage %><% For i = 1 to rs.PageSizeif rst.eOF then Exit For end if '利用for next 循环依次读出记录%>上面的代码只需要改动Rs.pagesize=5,把5改为你想显示的记录数.比如说改为10.那么每页就是显示10页.还需要修改的是select语句.就是你要检索的数据库了.也就是说放到任何一个系统中上面的代码只需很小的改动都可以直接拿过来用.然后:接...就是你要循环读出记录的显示内容了..............比如复制内容到剪贴板代码:
     
<% =rs("内容") %>
<%rs.movenxetnext%>当然也可以改为response.write输出.那是你的事了.你可以自由发挥版面样式.最后,添加"下一页,上一页"的链接:复制内容到剪贴板代码:<%if page<>1 then%>首页 上一页 %><%end if %><%if page<>rs.pagecount then %>下一页 尾页 %> <% end if %>上面的代码反正不管三七二十一只管复制粘贴.只需把"fenye.asp"改成你自己的文件名就可以了.随便把这段代码放在什么地方?就是你想让它出现下一页下一页链接的地方吧.最后.关闭记录集释放资源:复制内容到剪贴板代码:<% rst.close Set rs = Nothingconn.close set conn=nothing %>