怎么在asp网页里加入一个分页显示！

2024-12-20 13:03:01

推荐回答（1个）

回答1：

<%
set top=server.createobject("adodb.recordset")
exce="select * from sd_detail where sd_verity=1 and sd_zhan=0 and sd_classid="&id&" order by sd_topid desc,id desc" 'sql 查询语句
top.open exce,conn,1,1
%>
然后是分页属性的设置
<%
top.PageSize=3 ‘设置页码
pagecount=top.PageCount '获取总页码
page=int(request("page")) '接收页码
if page<=0 then page=1 '判断
if request("page")="" then page=1
top.AbsolutePage=page '设置本页页码
%>

" target="_blank">

"" then%><%=top("sd_logo")%><%else%>images/kaixin.gif<%end if%>" alt="<%=top("sd_Title")%>">"><%=top("sd_Title")%>

<%
if top.bof and top.eof then
response.write("NULL")
else
for i=1 to top.PageSize
response.write top("name")
response.write("

")
top.movenext
next
end if
%>

<%if page=1 and not page=pagecount then%>
首页|前一页
后一页|
末页
<%elseif page<>1 and not page=pagcount then%>
首页|
前一页|
后一页|
末页
<%elseif page=pagecount then%>
首页|
前一页|
下一页|
末页
<%end if%>