UC知道怎样修改下面源码，能做一个ASP翻页谢谢
来源：百度知道 编辑：UC知道 时间：2024/05/29 00:29:55
<%
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条，翻页器有“当前页数”“下一页”“最后一页”
谢谢。
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条，翻页器有“当前页数”“下一页”“最后一页”
谢谢。
建议楼主用数据库查询翻页，而不是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"
登录：http://bbs.bccn.net/forum-10-1.html
点“搜索”。填写“分页”关键词。
——有很多现成的分页代码供你思考。