出现Microsoft VBScript ʱ '800a01a8'错误
<%
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
%>