| 广告招租,e-mail:yesize@hotmail.com
|
|
广告招租,e-mail:yesize@hotmail.com
我用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> ===================================================== 这是比较容易实现分页的方法:)yobigd@home.com ----------------------------------------------- ASP精品屋 翻译整理by explorer---------------------------------------------
版权说明:作品来源于网上,版权归作者所有,如果无意中侵犯了您的版权,请来信告知,本站将在3个工作日内删除。yesize@hotmail.com |
|
热门小游戏分类 |
|
|
|