ASP里面缺少对象的错误
下个一个程序，修改了一下分页的功能，但是调试的时候出现“第MicrosoftVBScript运行时错误错误'800a01a8'缺少对象/wz/houtai/p2schk....
下个一个程序，修改了一下分页的功能，但是调试的时候出现“第
Microsoft VBScript 运行时错误 错误 '800a01a8'
缺少对象
/wz/houtai/p2schk.asp，行 105 ”
整个代码如下：
<!--#include file="conn.asp"-->
<!--#include file="checklogin.asp"-->
<% curpagename=request.ServerVariables("SCRIPT_NAME") %>
<%
const adopenkeyset=1
const adlockreadonly=1
const adcmdtext=&H0001
rs.Open "Select * From memberp2s Where Status = 'Check' Order by P2SDate, P2SID, P2STime",Conn,adopenkeyset,adlockreadonly,adcmdtext
rs.pagesize=10
if request.QueryString("pageno")="" then
rs.absolutepage=1
else
rs.absolutepage=request.QueryString("pageno")
end if
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link REL="StyleSheet" HREF="../tjscripts.css" TYPE="text/css" MEDIA="screen">
<title><%= SiteTitle %>后台管理系统</title>
</head>
<body topmargin="0" leftmargin="0">
<div align="center">
<table border="1" cellspacing="1" width="100%" bordercolor="#0033CC">
<tr>
<td width="15%" align="center" valign="bottom">第<% = rs.absolutepage %>/<% = rs.pagecount %>页</td>
<td width="18%" align="center" valign="bottom">共<% = rs.recordcount %>条记录</td>
<% if rs.absolutepage > 1 then %>
<td width="10%" align="center" valign="bottom"><a href="<% = curpagename %>?pageno=1">首页</a></td>
<% else %>
<td width="10%" align="center" valign="bottom">首页</td>
<% end if %>
<% if rs.absolutepage > 1 then %>
<td width="11%" align="center" valign="bottom"><a href="<% = curpagename %>?pageno=<% = rs.absolutepage-1 %>">上一页</a></td>
<% else %>
<td width="11%" align="center" valign="bottom">上一页</td>
<% end if %>
<% if rs.absolutepage < rs.pagecount then %>
<td width="11%" align="center" valign="bottom"><a href="<% = curpagename %>?pageno=<% = rs.absolutepage+1 %>">下一页</a></td>
<% else %>
<td width="11%" align="center" valign="bottom">下一页</td>
<% end if %>
<% if rs.absolutepage < rs.pagecount then %>
<td width="10%" align="center" valign="bottom"><a href="<% = curpagename %>?pageno=<% = rs.pagecount %>">尾页</a></td>
<% else %>
<td width="10%" align="center" valign="bottom">尾页</td>
<% end if %>
</tr>
</table>
</div>
</body>
</html>
行 105 的代码是：<td width="15%" align="center" valign="bottom">第<% = rs.absolutepage %>/<% = rs.pagecount %>页</td>
谁能帮我看看是哪里出了问题。 展开
Microsoft VBScript 运行时错误 错误 '800a01a8'
缺少对象
/wz/houtai/p2schk.asp，行 105 ”
整个代码如下：
<!--#include file="conn.asp"-->
<!--#include file="checklogin.asp"-->
<% curpagename=request.ServerVariables("SCRIPT_NAME") %>
<%
const adopenkeyset=1
const adlockreadonly=1
const adcmdtext=&H0001
rs.Open "Select * From memberp2s Where Status = 'Check' Order by P2SDate, P2SID, P2STime",Conn,adopenkeyset,adlockreadonly,adcmdtext
rs.pagesize=10
if request.QueryString("pageno")="" then
rs.absolutepage=1
else
rs.absolutepage=request.QueryString("pageno")
end if
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link REL="StyleSheet" HREF="../tjscripts.css" TYPE="text/css" MEDIA="screen">
<title><%= SiteTitle %>后台管理系统</title>
</head>
<body topmargin="0" leftmargin="0">
<div align="center">
<table border="1" cellspacing="1" width="100%" bordercolor="#0033CC">
<tr>
<td width="15%" align="center" valign="bottom">第<% = rs.absolutepage %>/<% = rs.pagecount %>页</td>
<td width="18%" align="center" valign="bottom">共<% = rs.recordcount %>条记录</td>
<% if rs.absolutepage > 1 then %>
<td width="10%" align="center" valign="bottom"><a href="<% = curpagename %>?pageno=1">首页</a></td>
<% else %>
<td width="10%" align="center" valign="bottom">首页</td>
<% end if %>
<% if rs.absolutepage > 1 then %>
<td width="11%" align="center" valign="bottom"><a href="<% = curpagename %>?pageno=<% = rs.absolutepage-1 %>">上一页</a></td>
<% else %>
<td width="11%" align="center" valign="bottom">上一页</td>
<% end if %>
<% if rs.absolutepage < rs.pagecount then %>
<td width="11%" align="center" valign="bottom"><a href="<% = curpagename %>?pageno=<% = rs.absolutepage+1 %>">下一页</a></td>
<% else %>
<td width="11%" align="center" valign="bottom">下一页</td>
<% end if %>
<% if rs.absolutepage < rs.pagecount then %>
<td width="10%" align="center" valign="bottom"><a href="<% = curpagename %>?pageno=<% = rs.pagecount %>">尾页</a></td>
<% else %>
<td width="10%" align="center" valign="bottom">尾页</td>
<% end if %>
</tr>
</table>
</div>
</body>
</html>
行 105 的代码是：<td width="15%" align="center" valign="bottom">第<% = rs.absolutepage %>/<% = rs.pagecount %>页</td>
谁能帮我看看是哪里出了问题。 展开
3个回答
展开全部
...
rs.Open "Select * From memberp2s Where Status = 'Check' Order by P2SDate, P2SID, P2STime",Conn,adopenkeyset,adlockreadonly,adcmdtext
你在这之后加上
if rs.eof then
response.write "无记录"
response.end '没有记录退出
end if
按理来说分页是要循环语句，
rs.Open "Select * From memberp2s Where Status = 'Check' Order by P2SDate, P2SID, P2STime",Conn,adopenkeyset,adlockreadonly,adcmdtext
你在这之后加上
if rs.eof then
response.write "无记录"
response.end '没有记录退出
end if
按理来说分页是要循环语句，
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
