简单的一个asp分页教程 可通用
<%
Set conn = Server.CreateObject("ADODB.Connection")
strcon="provider=microsoft.jet.oledb.4.0;data source="& _
server.mappath("mdb.mdb")
conn.Open strcon
Set rstObj = Server.CreateObject ("ADODB.Recordset")
sql="select * from table order by id desc"
rstObj.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="?Page=<% = 1%>">首页</a>
<a Href="?ToPage=<% =ToPage -1 %>">上一页</a>
%>
<%
end if %>
<%
if page<>rs.pagecount then %>
<a Href="?ToPage=<% =Page + 1%>">下一页</a>
<a Href="?ToPage=<% = rs.PageCount%>">尾页</a>
%>
<%
end if %>
上面的代码反正不管三七二十一只管复制粘贴.随便把这段代码放在什么地方?就是你想让它出现下一页下一页链接的地方吧.
最后.关闭记录集释放资源:
<%
rst.close
Set rs = Nothing
conn.close
set conn=nothing
%>
如果用于少量数据的话，这个方法是很方便的哦。
from:asp学习网/title:简单的一个asp分页教程 可通用/ time:2007-2-10 22:47:36本文主题分页
