Question

怎样修改下面源码，能做一个ASP翻页谢谢

<%
Set blog = Server.CreateObject("ADODB.RECORDSET")
sql = "SELECT * FROM article ORDER BY id DESC"
blog.Open sql,conn,1,1
While (NOT blog.EOF)
Response.Write("<li><h3>" & blog("atc_title") & "</h3></li>")

(为了便于阅读，代码省略了很多……)

blog.MoveNext()
Wend
blog.Close()
Set blog = Nothing
%>

每页显示20条，翻页器有“当前页数”“下一页”“最后一页”
谢谢。

Answer 1

建议楼主用数据库查询翻页，而不是rs对象，效率不是一般的快，当你的数据达到上万的时候，就能明显感觉出下面代码的效率了。

myPageSize = 20
nowPage = 2 这里是当前页数

sql = "SELECT top "&myPageSize&" * FROM article "
if(nowPage>1) then
sql = sql&" where id not in(SELECT top "&myPageSize*(nowPage-1)&" id FROM article ORDER BY id DESC)"
end if
sql = sql&" ORDER BY id DESC"

Answer 2

登录：http://bbs.bccn.net/forum-10-1.html
点“搜索”。填写“分页”关键词。
——有很多现成的分页代码供你思考。