Question

做一个简单的ASP分页程序

Answer 1

本程序主要用到Connection、RecordSet这两个对象，程序中的数据库为Access库，采用OLEDB方式连接库。

　　这个东西是作为菜鸟的我弄的一个东西.
　　你可以对这个东西不屑一顾.但是请记住: 菜鸟也有这个权利把自己的心得体会附注文字贡献出来.....当然,技术方面真的是好菜的..一些ASP中的比较正统的中规中矩的方法.我觉得这个东西可能对初学者有些帮助.......见笑了..

一个简单的分页教程：

<%
Set conn = Server.CreateObject("ADODB.Connection")
strcon="provider=microsoft.jet.oledb.4.0;data source="& _
server.mappath("mdb.mdb")
conn.Open strcon

Set rs = Server.CreateObject ("ADODB.Recordset")
sql="select * from table order by id desc"
rs.Open sql, conn, 1

page=1    ' 设置变量PAGE=1
rs.PageSize = 5 '每页显示记录数

if Not IsEmpty(Request("Page")) then '如果PAGE已经初始化...

Page = CInt(Request("Page")) '接收PAGE并化为数字型赋给PAGE变量
    
    if Page > rs.PageCount then '如果接收的页数大于总页数
        rs.AbsolutePage = rs.PageCount '设置当前显示页等于最后页
        
    elseif Page <= 0 then '如果page小于等于0
        Page = 1 '设置PAGE等于第一页
    else
        rs.AbsolutePage = Page '如果大于零,显示当前页等于接收的页数 
    end if
End if
Page = rs.AbsolutePage 
%>
<% 

For i = 1 to rs.PageSize
if rs.EOF then     
Exit For 
end if '利用for next 循环依次读出记录
%>