ASP悬赏 看看分页代码

你想问什么~ 《？td>
----语句里有错误

BOF 属性：目前指标指到 RecordSet 的第一笔。

EOF 属性：目前指标指到 RecordSet 的最后一笔。

Move 方法：移动指标到 RecordSet 中的某一条记录。

AbsolutePage 属性：设定当前记录的位置是位于哪一页

AbsolutePosition 属性：目前指标在 RecordSet 中的位置。

PageCount 属性：显示 Recordset 对象包括多少“页”的数据。

PageSize 属性：显示 Recordset 对象每一页显示的记录数。

RecordCount 属性：显示 Recordset 对象记录的总数。

<%
set conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open Server.MapPath("\")&"\1991.mdb"

dim sql,conn,rs,n
sql="select * from luntan"
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,1,1
'分页代码--
if not isempty(request("page")) then
pagecount=cint(request("page"))
else
pagecount=1
end if
rs.pagesize=5
rs.A