简单分页教程..

<%
Set conn = Server.CreateObject("ADODB.Connection")
strcon="provider=microsoft.jet.oledb.4.0;data source="& _
server.mappath("mdb.mdb")
conn.Open strcon
Set rs = Server.CreateObject ("ADODB.Recordset")
sql="select * from table order by id desc"
rs.Open sql, conn, 1
page=1    ' 设置变量PAGE=1
rs.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小于等于0
        Page = 1    '设置PAGE等于第一页
    else
        rs.AbsolutePage = Page  '如果大于零,显示当前页等于接收的页数
    end if
End if
intCurPage = rsj.AbsolutePage
%>
<%
For i = 1 to rs.PageSize
    if rst.eOF then    
Exit For
end if                   '利用for next 循环依次读出记录
%>
上面的代码只需要改动Rs.pagesize=5,把5改为你想显示的记录数.比如说
改为10.那么每页就是显示10页.还需要修改的是select语句.就是你要检索的数据库了.
也就是说放到任何一个系统中上面的代码只需很小的改动都可以直接拿过来用.

然后:
接...就是你要循环读出记录的显示内容了..............比如
复制内容到剪贴板代码:
<table width=50 border=1 align=center>
<tr>
<TD><% =rs("内容") %></td>
</tr>
</table>
<%
rs.movenxet
next
%>
当然也可以改为response.write输出.那是你的事了.你可以自由发挥版面样式.

最后,添加"下一页,上一页"的链接:
复制内容到剪贴板代码:
<%
if page<>1 then%>
<a Href="fenye.asp?Page=<% = 1%>">首页</a>
<a Href="fenye.asp?ToPage=<% =ToPage -1 %>">上一页</a>
%>
<%
end if  %>
<%
if page<>rs.pagecount then %>
<a Href="fenye.asp?ToPage=<% =Page + 1%>">下一页</a>
<a Href="fenye.asp?ToPage=<% = rs.PageCount%>">尾页</a>
%>  
<%
end if %>
上面的代码反正不管三七二十一只管复制粘贴.只需把"fenye.asp"改成你自己的文件名就可以了.随便把这段代码放在什么地方?就是你想让它出现下一页下一页链接的地方吧.

最后.关闭记录集释放资源:
复制内容到剪贴板代码:
<%
rst.close
Set rs = Nothing
conn.close
set conn=nothing
%>

文章来自: 本站原创
引用通告: 查看所有引用 | 我要引用此文章
Tags:
相关日志: