如何实现分页显示？

[lyradancing]

我要从数据库里查询数据，然后每页显示10个，剩下的动态生成link，在页面上，请问大侠们如何实现？

[mygia]

去下载几个实例看看吧！我给个给你看看，自己慢慢研究。
if currentpage<1 then
currentpage=1
end if
if (currentpage-1)*MaxPerPage>totalput then
if (totalPut mod MaxPerPage)=0 then
currentpage=totalPut \ MaxPerPage
else
currentpage=totalPut \ MaxPerPage + 1
end if
end if
if currentPage=1 then
showContent
showpage totalput,MaxPerPage,"book.asp"
else
if (currentPage-1)*MaxPerPage<totalPut then
rs.move (currentPage-1)*MaxPerPage
dim bookmark
bookmark=rs.bookmark
showContent
showpage totalput,MaxPerPage,"book.asp"
else
currentPage=1
showContent
showpage totalput,MaxPerPage,"book.asp"
end if
end if

[tonnycncn]

给你一个例子，你照着改吧！
<%
If Request("Page")=Empty Then
Page=1
Else
Page=cint(Request("Page"))
End If
%>
<%
Set conn=Server.CreateObject("ADODB.Connection")
param = "driver={Microsoft Access Driver (*.mdb)}"
conn.Open param & ";dbq=" & Server.MapPath("cd.mdb")
Set rs=Server.CreateObject("ADODB.Recordset")
sqlstr="select * from data where ( update > Date() - 30) Order By datano"
rs.open sqlstr,conn,3,2
If rs.Recordcount=0 then
rs.close
conn.close
response.write "目前没有新发行CD……"
response.end
End If
RS.PageSize = 20
If Not rs.eof Then
RS.AbsolutePage = PAGE
End If
pagecount=rs.pagecount
I=1
do until rs.EOF or I > RS.PageSize
datano=rs("datano")
datana=rs("datana")
ordprice=rs("ordprice")
hits=rs("hits")
Response.write "<tr><td bgcolor=ff8040><a href=editcd.asp?datano="&datano&">"&datano&"</a></td>"
Response.write "<td><a href=show.asp?datano="&datano&">"&datana&"</a></td>"
Response.write "<td align=right><font color=red>"&ordprice&"</font></td>"
Response.write "<td align=center><FORM METHOD=POST ACTION=order.asp>"
Response.write "<input TYPE=HIDDEN NAME=mytype VALUE=insert>"
Response.write "<input TYPE=HIDDEN NAME=areana VALUE="&areana&">"
Response.write "<input TYPE=HIDDEN NAME=datano VALUE="&datano&">"
Response.write "<input TYPE=HIDDEN NAME=datana VALUE='"&datana&"'>"
Response.write "<input TYPE=HIDDEN NAME=ordprice VALUE="&ordprice&">"
Response.write "<input TYPE=SUBMIT VALUE=放入></td></form>"
Response.write "<td align=right>"&hits&"</td></tr>"
rs.movenext
I=I+1
loop
rs.close
conn.close
%>
</form>
</table><br>
<%
If page>1 Then
Response.write "<a href=new.asp?page="&page-1&">上一页</a>　"
End If
Response.write "页 <font face=Arial><b>"&pagecount&" / "
Response.write page &"</b></font>　"
For j=1 to pagecount
IF J <> page THEN
response.write "<a href=new.asp?page="&j&">"&j&"</a>　"
End If
Next
If page<pagecount Then
Response.write "<a href=new.asp?page="&page+1&">下一页</a>　"
End If
%>

[heman2000]

最好用recordset对象，节省资源

[ssm1226]

本来嘛