RECORDSET分页例子
类别: ASP教程
我用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>
=============================================
\'设置一个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>
- 上一篇: 关于使用HTMLENCODE()的乱码问题
- 下一篇: 列表框操作函数集合
-= 资 源 教 程 =-
文 章 搜 索