引用:

---

<%
if request.querystring("move")="next" then
    application("currentpage")=application("currentpage")+1
end if
if request.querystring("move")="prev" then
    application("currentpage")=application("currentpage")-1
end if
if application("currentpage")="" then
    application("currentpage")=1
end if
%>

current page:<%=application("currentpage")%>

---

<%
set cn=server.createobject("ADODB.Connection")
set rs=server.Createobject("ADODB.Recordset")
dbq=server.MapPath("db/qingan.mdb")
cn.Open "driver={microsoft access driver (*.mdb)};dbq="&dbq
strsql="select * from lmxz"
rs.open strsql, cn,1,3

rs.pagesize=5
rs.AbsolutePage=application("currentpage")
while not rs.eof and numrows

title:<%=rs("title")%>

<%
rs.movenext
numrows=numrows+1
wend
%>

---

<%
if application("currentpage")>1 then%>
[prev]
<%end if%>
<%
if application("currentpage")
[next]
<%end if%>
<%
rs.close
cn.close
%>


为什么rs.AbsolutePage=application("currentpage")报错？？？？？

---