※ 引述《arrack (Arrack Tseng)》之铭言： : ※ 引述《phi12345 (鲔鱼、柚子、Stanley)》之铭言： : : <% : : sql = "Select * FROM happines order by sid desc" : : rs.open sql,conn,1,1 : : rs.PageSize =10 : : Page = CLng(Request("Page")) : : If Page < 1 Then Page = 1 : : If Page > rs.PageCount Then Page = rs.PageCount : : If Not rs.eof Then : : RS.AbsolutePage = PAGE : : End if : : pagecount = rs.PageCount : : dim j : : do until rs.EOF or i > RS.PageSize : ^^^^^^^^^^^^^^^^^^^^^^^^ : i的初始值在哪里?底下只有看到"j"+1，i永远不会>rs.pagesize : 所以当然会跑完罗 : 改成整行for i = 1 to rs.pagesize : 并且加上 : : <% : : j= j+ 1 : : rs.MoveNext : : loop : rs.movenext : end if : next : : %> : : 分页程式开始 : : <div id="num"> : : <ul> : : <li><a href="index_lucky.asp?page=1">第一页</a></li> : : <li><a href="index_lucky.asp?page=<%=page-1%>">上一页</a></li> : : <li><a href="index_lucky.asp?page=<%=page+1%>">下一页</a></li> : : <li><a href="index_lucky.asp?page=<%=rs.pagecount%>">最末页</a></li> : : </ul> : : </div> 那假如目前我要在 上一页 下一页 之间可以自动新增 2 3 4 5 6 页等等 就是每 10 笔为 一页~最大到10页 然後就要按 下一页 才会显示到 第11页等 那要怎麽怎麽判断有第 11 笔的资料时 会自动新增第二页?? 然後第 21笔 时 会自动新增第三页?? 这样的话 我该怎麽打呢?? -- 请勿拍打喂食 以免鲔鱼翻肚 变成鲔鱼肚 http://www.wretch.cc/blog/phi12345 --

※ 发信站: 批踢踢实业坊(ptt.cc) ◆ From: 220.135.208.113