出现Microsoft VBScript ʱ '800a01a8'错误

zhaopaishu 2008-06-15 01:17:56
<%
dim fenye
dim page
dim totalpages
'总的信息记录数
page=rst.absolutepage rst.pagesize=15 ‘此出现错误
fenye=rst.pagesize
if page<1 then
page=1
end if
if trim(request("page"))<>"" then
page=cint(request("page"))
else
page=1
end if
'pagecount共有多少记录
totalput=rst.recordcount
if (totalput mod rst.pagesize )=0 then
totalpages= totalput \ rst.pagesize
else
totalpages= (totalput\rst.pagesize)+1
end if
'查找商品信息
i=fenye
do while not rst.eof and i>0
i=i-1
%>
<table width="700" height="178" border="1" cellpadding="0" cellspacing="0" bordercolor="#D9D9D9" bgcolor="#FFFFFF" id="biao1">
<tr bordercolor="#D9D9D9">
<td height="25" align="left" bordercolor="#D9D9D9" class="STYLE2">留言人:<%=rst("name")%></td>
</tr>
<tr>
<td height="25" align="left" class="STYLE2">标题:<%=rst("biaoti")%></td>
</tr>
<tr>
<td height="110" align="left" valign="top" class="STYLE2">留言内容:<%=rst("neirong")%></td>
</tr>
<%
rst.movenext
loop
%>
</table>
</p>
<%
if page=1 and page<>totalpages then
%>
第一页/上一页 <a href="spxs.asp?page=<%=page+1 %>">下一页</a>/<a href="spxs.asp?page=<% =totalpages%>">最后一页</a>
<%
elseif page<>1 and page<>totalpages then
%>
<a href="spxs.asp?page=1">第一页</a>/<a href="spxs.asp?page=<% =page-1%>">上一页</a> <a href="spxs.asp?page=<%=page+1%>">下一页</a>/<a href="spxs.asp?page=<% =totalpages%>">最后一页</a>
<%
elseif page<>1 and page=totalpages then
%>
<a href="spxs.asp?page=1">第一页</a>/<a href="spxs.asp?page=<% =page-1%>">上一页</a> 下一页/最后一页
<%
end if
%>
当前第
<%
=page
%>
页   

<%
=totalpages
%>

<%
rst.close
set rst=nothing
conn.close
set conn=nothing
%>
...全文
127 5 打赏 收藏 转发到动态 举报
写回复
用AI写文章
5 条回复
切换为时间正序
请发表友善的回复…
发表回复
jhwcd 2008-06-15
  • 打赏
  • 举报
回复
你把错误详细贴出来看看。
是不是没有加上数据库包含文件?
zhaopaishu 2008-06-15
  • 打赏
  • 举报
回复

Microsoft VBScript ʱ '800a01a8'

/liuyanban.asp 120
已经换了,错误和原来的错误一样,连第几行也一样
[Quote=引用 3 楼 jhwcd 的回复:]
把rst.absolutepage=page这句放到i=fenye的上面试试。
[/Quote]
jhwcd 2008-06-15
  • 打赏
  • 举报
回复
把rst.absolutepage=page这句放到i=fenye的上面试试。
zhaopaishu 2008-06-15
  • 打赏
  • 举报
回复
还是一样的错误
jhwcd 2008-06-15
  • 打赏
  • 举报
回复
page=rst.absolutepage改成
rst.absolutepage=page

28,390

社区成员

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧