ASP分页代码

Question

这是读取1到15条记录
<% '读取数据库
exec="select * from ASP"
set rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,1
%>
<% for i =1 to 15 %>
<% =rs("姓名") %>
<%
rs.movenext
next
%>
但我想看下一页怎样加代码呢

Answer 1

给你一个小例子看一下
<%
'连接数据库

'执行sql 改你要的sql
set rs=server.CreateObject("adodb.recordset")%>
rs.open "select * from news order by id desc ",conn,1,3

下面的代码就复制用可以了

'分页
i=50
rs.pagesize=i
pu=request("pu")
if pu="" then pu=1
if cint(pu)<="0" then pu=1
if cint(pu)>rs.pagecount then pu=rs.pagecount
if not rs.eof then rs.absolutepage=cint(pu)
'显示记录
if not rs.eof then
do while not rs.eof and i=>1
response.write rs("字段")'显示字段
'就这里改你要的，其它复制用就可以
rs.movenext
i=i-1
loop
end if
%>

当前第 <%=pu%> 页；分
<%=rs.pagecount%> 页；
共 <%=rs.recordcount%> 条记录；
每页<%=i%>条记录
<a href="?pu=1">首 页</a>
<a href="?pu=<%=cint(PU)-1%>">上一页</a>
<a href="?pu=<%=cint(PU)+1%>">下一页</a>
<a href="?pu=<%=rs.pagecount%>">末 页</a>

对里面的属性不明白，就查一下 recordset对象的属性

参考资料：http://www.alixixi.com/ePrint.asp?from=dev&id=60160