ASP 从 sql 数据库读取数据循环显示在页面并且分页
发布网友
发布时间：2022-04-23 06:38
共3个回答
热心网友
时间：2022-04-15 12:16
<%
dim curpage
curpage=request("curpage")
if curpage="" then curpage=1 '取得当前页码，如果返回为空，就默认第一页
%>
<%
'--------------------------------------------
'打开记录集
set rs=server.createobject("adodb.recordset")
sql="select * from 表"
rs.open sql,conn,1,1
'--------------------------------------------
rs.pagesize=10 ‘设置每页显示10条
rs.absolutepage=curpage ‘设置游标页码等于当前页码
if not rs.eof then '记录集不为空
for i= 1 to rs.pagesize ’循环显示数据
if rs.eof then '显示过程中随着游标下移，一旦记录到最后就立刻退出循环
exit for
end if
%>
<%=rs("a")%> 内容1
<%=rs("b")%> 内容2
<%=rs("c")%> 内容3
<%=rs("d")%> 内容4
<%
rs.movenext ‘游标下移
next
%>
<%if curpage=1 then%>第一页<%else%><a href="?curpage=1">第一页</a><%end if%>
<%if curpage=1 then%>上一页<%else%><a href="?curpage=<%=curpage-1%>">上一页</a><%end if%>
<%if rs.pagecount<curpage+1 then%>下一页<%else%><a href="?curpage=<%=curpage+1%>">下一页</a><%end if%>
<%if rs.pagecount<curpage+1 then%>尾页<%else%><a href="?curpage=<%=rs.pagecount%>" >尾页</a><%end if%><br />
<%
else
response.write "<tr><td>暂时没有内容</td></tr>"
end if
rs.close
%>
热心网友
时间：2022-04-15 13:34
查询出来显示就可以了追问哥，我想要的是代码，完整的代码。。。。
追答网上很多，建议自己尝试着写下那样才会有提高。
热心网友
时间：2022-04-15 15:08
任务
