Question

ASP 从 sql 数据库读取数据循环显示在页面并且分页

页面有一表格，要求每页10行，共显示十页.
急啊，在线等。数据库的表有七列。有知道的哥哥姐姐帮忙解答下咯，小第对asp不太懂，乃初学者。。。。跪求。。。。十万火急

Answer 1

<%
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
%>

Answer 2

查询出来显示就可以了

追问

哥，我想要的是代码，完整的代码。。。。

追答

网上很多，建议自己尝试着写下那样才会有提高。

Answer 3

任务