大家帮帮忙啊

[x98188]

我做的程序为什么老是提示
错误类型：
ADODB.Recordset (0x800A0BB9)
/ne/adm/admin-del.asp, 第 42 行在打开上一页的时候就老是提示rs.absoluteposition=t+1提示出错
代码如下
<%
page=request.querystring("page")
set rs=server.createobject("ADODB.Recordset")
sql="select * from news"
rs.open sql,conn,1,3
maxjilu=rs.recordcount
t=page*5
rs.absoluteposition=t+1
f=t+5
for i=t+1 to f
idd=rs("news_no")
%>
　　　　　　　　　　　　　　　　　　　　　　　　　　
<table width="75%" height="36" border="0" align="center">
<% k=1

if k mod 2 <> 0 then
%>
<tr bgcolor="#eeeeew">
<%else%>
<tr bgcolor="black">
<%end if%>

　标题　　 　　　时间　 <tr>

<td width="20%"><a href="admin-update.asp?news_no=<%=rs("news_no")%>"><%=rs("news_title")%></a> </td>
<td width="20%"><%=rs("news_date")%> </td>
<td width="20%">
<input type='checkbox' name='selAnnounce' value='<%=cstr(rs("news_no"))%>'></td>
</tr>

</table>
<%
rs.movenext
if rs.eof then
exit for
修改了这个
if not rs.bof and not rs.eof then rs.absoluteposition=t+1
也不行啊

[DeltaCat]

你要分页的话，不要用这种方法

或者你试试 rs.open "....",1,1

[DeltaCat]

<%
Dim PageSize,PageCount,CurPage,i

PageSize = 20 '指定每页显示的条数

CurPage = Trim(Request.QueryString("page"))

If CurPage = "" Then
CurPage = 1
Else
CurPage = CInt(CurPage)
End If

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

With rs
.Open "Select * from table order by id desc",adodbConnection,1,1
'其中 table 是你的表名,adodbConnection是你数据库连接
If .Eof and .Bof Then
.Close
Response.Write "No Record"
Response.End
End If
.PageSize = PageSize
PageCount = .PageCount
If .PageCount < CurPage Then
.AbsolutePage = .PageCount
Else
.AbsolutePage = CurPage
End If

For i = 1 to .PageSize
%>

[B]这里写你要显示的内容[/B]

<%
.MoveNext
If .Eof Then Exit For
Next
.Close
End With
Set rs = nothing
%>
其他内容，可有可无
<%
'这里是下一页，上一页部分，此部分还可以细化，你自己添好了
If CurPage > 1 Then
Response.Write "<a href=""" & Request.ServerVariables("SCRIPT_NAME") & "?page=" & CStr(CurPage - 1) & """>前一页</a> "
End If
If CurPage < PageCount Then
Response.Write "<a href=""" & Request.ServerVariables("SCRIPT_NAME") & "?page=" & CStr(CurPage + 1) & """>后一页</a> "
End If
%>

[x98188]

试试