rs.absolutepage 不能被赋值！！为什么？？

[chrishw]

Dim rs
Dim rs_numRows

Set rs = Server.CreateObject("ADODB.Recordset")
rs.ActiveConnection = MM_web_STRING
rs.Source = "SELECT cname FROM diskmag"
rs.CursorType = 3
rs.CursorLocation = 3
rs.LockType = 3
rs.Open()
rs.absolutepage = curpage
rs.pagesize=spagesize
act="index.asp"
rs_numRows = 0
curpage是一个变量可以是1也可以是cint(request.querystring("topage"))
但现在无论怎么样，rs.absolutepage 都不能被赋值，测试总通不过
为什么？？

[endicking]

rs.CursorType = 2

[alan815]

出错页面贴出来看看

[cfanse]

顺序错了，应该先给：rs.pagesize赋值：如rs.pagesize=20，rs才能计算出有多少页，才允许给rs.absolutepage属性赋值。你把顺序颠一下试试。

[gu1dai]

因为你打开数据库的方法错了。
使用absolutepage属性必须以这种方式打开数据库
<%
set conn=server.createobject("adodb.connection")
conn.open "provider=microsoft.jet.oledb.4.0;data source="&server.mappath("date/data.mdb")
%>

[hailang3275]

rs.absolutepage = curpage
后面的变量是什么类型的
rs.absolutepage=int型

[Leonhart168]

<!-- #include file="adovbs.inc" -->

adovbs.inc这个文件你在自己的计算机中搜索就找到了

[wtiancai]

参数改为1,1就可以了

[Summer_Andy]

因为你打开数据库的方法错了。
<%
set conn=server.createobject("adodb.connection")
conn.open "provider=microsoft.jet.oledb.4.0;data source="&server.mappath("date/data.mdb")
%>