ASP---错误类型：(0x80020009) /THL/a2.asp, 第 31 行

来源：百度知道 编辑：UC知道 时间：2024/05/30 19:30:58
<%@ Language=vbscript %>
<%
Dim connstr
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " &Server.MapPath("yuangong.mdb")
Set cn=server.CreateObject("ADODB.connection")
cn.open connstr
%>
<%
exec="select * from base"
set rs=Server.CreateObject ("adodb.recordset")
rs.open exec,cn,1,1
%>
<%
rs.PageSize=3
zongye=rs.PageCount
page=clng (request("page"))
if page<=0 then page=1
if request("page")="" then page=1
rs.AbsolutePage=page
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>分页</title>
</head>
<body>
<%if rs.EOF and rs.BOF then
response.write ("网页正在维护,请稍候")
else
for i=1 to rs.PageSize
Response.write ("序

应该不是代码的问题 我拿着个代码去测试 分页成功 你得看看你的数据库 或者 iis 看看 是不是设置错误

rs.PageSize=3 这个是定义每页显示三条记录？ 好像不是这样写的吧，把rs.PageSize改成MaxPageSize看看.上下两个都要改。

for i=1 to rs.PageSize

是不是超出范围，导致取值出错。