asp留言板程序ADODB.Recordset 错误 '800a0cb3'

[shutuzhe]

当前记录集不支持书签。这可能是提供程序或选定的游标类型的限制。rsobj.AbsolutePage = page这几行是不是有错？要怎么攺
<%

Sub DispPage(RSobj,Page)

rsobj.AbsolutePage = page

For Page=1 to RSobj.PageSize

Name=RSobj("Name")

Email=RSobj("Email")

Sex=RSobj("Sex")

Subject=RSobj("Subject")

Content=RSobj("Content")

MessTime=RSobj("Datetime")

If Email=""Then

Email="暂不提供"

Else

Email="<a href='mailto:"& Email &"'><font>"& Email &"</font></a>"

End if

%>

<div align="center">

<table>

<table width="584">

<tr><td>姓名：<% =name %>[<% =sex %>]</td></tr>

<tr><td>Email:<% =email %></td></tr>

</table>

<table width="584">

<tr><td width="584">主题：<% =subject %></td></tr>

<tr><td width="584">留言时间：<% =messtime %></td></tr>

<tr><td width="584">

<textarea rows='3' cols='80' name='br'><% =content %></textarea>

</td></tr>

</table>

</table>

<%

Rsobj.MoveNext

if RSobj.EOF then exit for

next

end sub

%>

<%

set ConnObj=Server.CreateObject("ADODB.Connection")

connstr="DBQ="+server.mappath("message.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"

ConnObj.Open connstr

Set RSobj=Server.CreateObject("ADODB.Recordset")

SQL="Select * From message order By Datetime DESC"

Rsobj.Open SQL,ConnObj,adOpenStatic

RecNum=RSobj.recordCount

PSize=2

RSobj.PageSize=pSize

Response.write"<Center>数据库共记录"&RecNum&"条，"&"分"&RSobj.PageCount&"页显示</center><br>"

Page=request("Page")

If Request("Page")=""Then

Page=1

else

Page=CLng(Request("Page"))

If Page<1 Then Page=1

If Page>RSobj.PageCount Then Page =RSobj.PageCount

End if

DispPage RSobj,Page

%>

<%

If Page <> 1 Then

Response.Write"<a href=ly.asp?Page=1&>第一页</a> "

Response.Write"<a href=ly.asp?Page="&(Page-1)&">上一页</a> "

end If

If Page <> RSobj.PageCount Then

Response.Write"<a href=ly.asp?Page="&(Page+1)&">下一页</a> "

Response.Write"<a href=ly.asp?Page="& RSobj.PageCount &">最后一页</a>"

end If

%>

跳转页数：<input type="text" size="3" name="Page" value=<% =Page %>>

页数： <% =Page %>/<% =RSobj.PageCount %>

<input type=submit value="GO!">

</table>

<div>

</form>

[coolattt]

你的这段代码中adOpenStatic的值是多少？
Rsobj.Open SQL,ConnObj,adOpenStatic
要不改成这可望而不可及试试
Rsobj.Open SQL,ConnObj,1,1
要是还不行就改成
Rsobj.Open SQL,ConnObj,1,3
来试试呢，初步怀疑是记录集打开的方式不支持分页，LZ把出错的详细信息贴出来我们看看呢。

[coolattt]

不好意思，上面打错字了。

你的这段代码中adOpenStatic的值是多少？
Rsobj.Open SQL,ConnObj,adOpenStatic
要不改成这样试试
Rsobj.Open SQL,ConnObj,1,1
要是还不行就改成
Rsobj.Open SQL,ConnObj,1,3
来试试呢，初步怀疑是记录集打开的方式不支持分页，LZ把出错的详细信息贴出来我们看看呢。

[GDPudding]

把

Rsobj.Open SQL,ConnObj,adOpenStatic

改成

Rsobj.Open SQL,ConnObj,1,1

或者最根本的办法,找出adOpenStatic将其值赋成1

[shutuzhe]

没看到adOpenStatic

[shutuzhe]

看到了。原来这么简单。我在网上搜了三个小时。也不会。可以了。