 |
|
|
 首页 |
名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash |
|
我用Recordsets建立页转移，它显得比较简朴和易懂，假如Recordset建立准确的话，则不没有分页错误。 ============================================= \\\'设置一个recordset页面。在这个例子里，我们已有一个已经做好的数据库，并且把分页的每一页设为显示一条记录 dim conn \\\' ADO connection Dim RS\\\' Recordset Dim sSQL \\\' SQL Get \\\'if Pagenum = "" Then Pagenum = 1 Set conn = server.createobject("ADODB.connection") Conn.Open"DSN=DatabaseName "set RS = Server.CreateObject("adodb.RecordSet") sSQL = "Select * From tblOrders" Rs.Open sSql, Conn, 3 \\\' 建立单个页 RS.Pagesize = 1 \\\' 设置在每页显示多少条记录iCnt = RS.PageCount \\\' 得到recordset里的记录总数 Select Case Request("NAV") Case "" session("Pagenum") = 1 case "First" \\\' First Record session("Pagenum") = 1 case "Prev" \\\' Previous Record if session("Pagenum") > 1 then session("Pagenum") = session("Pagenum") - 1 End If case "Next" \\\' Next Record if session("Pagenum")< RS.PageCount then session("Pagenum") = session("Pagenum") + 1 End if case "Last" \\\' Last Record session("Pagenum") = RS.PageCount End Select \\\' 转到指定的页面(这里是session("pagenum") RS.Absolutepage = Clng(session("Pagenum")) \\\' // 在Form中显示记录转移 \\\' // 记录转移按钮设置 <form method="GET" action="secureorder.asp"> <p><input type="submit" name="NAV" Value="First"><input type="submit" value="Prev" name="NAV"><input type="submit" value="Next" name="NAV"><input type="submit" value="Last" name="NAV"></p> </form> 返回类别: 教程 上一教程: ASP+中文显示之两种解决方式 下一教程: ASP分页代码，已经写成类了，值得参考 您可以阅读与"RECORDSET分页例子"相关的教程: · ASP实现对新闻的分页例子 · 一个分页代码例子 · ASP分页显示Recordset数据 · REPEATER控件分页的例子 · 实现分页的例子-使用存储过程来实现分页 |
  |
| 快精灵印艺坊 版权所有 |
首页 会员中心在线印刷在线编辑付款方式索取样品设计指南连锁门店
|
||
