请大家看看，以下代码什么问题呀，如图就是不显示在“第几页/共有几页”，而且，在第一页时，就显示“上一页”了。


<TABLE height=19 cellSpacing=0 cellPadding=0 width="600" align=center border=0>
<TBODY>
<TR>
<TD width="21%" bgColor=#eeeeee height=18><STRONG>&nbsp;&nbsp;留言列表</STRONG></TD>
<TD width="79%" bgColor=#eeeeee><STRONG><FONT color=#000000>
—><%if page=1 and not page=pagecount then%>
<a href="add.asp?page=<%=page+1%>">下一页</a>&nbsp;&nbsp; 第<%=page%>页/共有<%=pagecount%>页
<%elseif page=pagecount and not page=1 then%>
<a href="add.asp?page=<%=page-1%>">上一页</a>&nbsp;&nbsp;第<%=page%>页/共有<%=pagecount%>页
<%elseif page<1 then%><div class="font" align="right"><font color=red>没有任何记录！</font></div>
<%elseif page>pagecount then%><div class="font" align="right"><font color=red>没有任何记录！</font></div>
<%elseif page=1 and page=pagecount then%>
<%else%>
<a href="add.asp?page=<%=page-1%>">上一页</a>
<a href="add.asp?page=<%=page+1%>">下一页</a>&nbsp;&nbsp;第<%=page%>页/共有<%=pagecount%>页
<%end if%>
</FONT></STRONG></TD>
</TR>
<TR>
<TD bgColor=#999999 colSpan=2
height=1></TD></TR></TBODY></TABLE><br>
<table width="600" border="1" align="center" bordercolor="#666666" style="border-collapse: collapse">
<tr>
<td width="208" height="25" align="center" bgcolor="#cccccc"><p align="center"><strong>留言主题</strong></p></td>
<td width="146" align="center" bgcolor="#cccccc"><strong>时间</strong></td>
<td width="224" align="center" bgcolor="#cccccc"><strong>回复</strong></td>
</tr>
<%
set rs1=server.createobject("adodb.recordset")
sql1="select * from book"
rs1.open sql1,conn,1,1
rs1.PageSize=3
pagecount=rs1.PageCount
page=int(request.QueryString ("page"))
if page<=0 then page=1
if request.QueryString("page")="" then
page=1
end if
rs1.AbsolutePage=page
%>
<%for i=1 to rs1.PageSize%>
<%if rs1.eof then
exit for
end if
%>
<tr>
<td align="center"><%=rs1("content")%></td>
<td align="center"><%=rs1("data")%></td>
<%if rs1("reply")<>"" then %>
<td align="center"><%=rs1("reply")%></td>
<%else%>
<td align="center">暂无回复</td>
<%end if%>
</tr>
<%
rs1.movenext
next
%>
</table>

不要写的那么麻烦，这样写就可以了……

<%
if page<=1 then
Response.Write "[首页] [上一页] "
else
Response.Write"[<a href='add.asp?Page=1'>首页</a>] "
Response.Write"[<a href='add.asp?Page="&(Page-1)&"'>上一页</a>] "
end if

if page>=pagecount then
Response.Write ("[下一页] [尾页]")
else
Response.Write"[<a href='add.asp?Page=" & (Page+1) & "'>下一页</a>] "
Response.Write"[<a href='add.asp?Page=" & pagecount &" '>尾页</a>]"
end if

Response.Write"[第:<font color=red>" & page & "</font>页/共：<font color=red>" & pageCount&"</font>页"
%>

http://bbs.bc-cn.net/viewthread.php?tid=37557&star=at#
楼主提问时请先看看精华帖里有没有类似的已被解决的问题。

还是不行啊。第几页/共几页，还是接收不取。就是page 和 pagecount 接收不到数据。还是和上面一样，"第页/共有页"
怎么办啊。

好人就做到底，帮你把所有代码写好

把下面的代码替换你上面的所有的：

<table width="600" border="1" align="center" bordercolor="#666666" style="font-size:12px;border-collapse: collapse">
<tr>
<td width="208" height="25" align="center" bgcolor="#cccccc"><p align="center"><strong>留言主题</strong></p></td>
<td width="146" align="center" bgcolor="#cccccc"><strong>时间</strong></td>
<td width="224" align="center" bgcolor="#cccccc"><strong>回复</strong></td>
</tr>
<%
set rs=server.createobject("adodb.recordset")
StrSql="select * from book"
rs.open StrSql,conn,1,1

rs.PageSize=3
pagecount=rs.PageCount
page=clng(request.QueryString ("page"))
if page<=0 or page="" then page=1
rs.AbsolutePage=page

for i=1 to rs.PageSize
if rs.eof then exit for
%>
<tr>
<td align="center"><%=rs("content")%></td>
<td align="center"><%=rs("data")%></td>
<td align="center"><%if rs("reply")<>"" then response.write rs("reply") else response.write "暂无回复" end if%></td>
</tr>
<%
rs.movenext
next

set rs=nothing
%>
</table>
<table width="600" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="20" align="center" style="font-size:12px">
<%
if page<=1 then
Response.Write "[首页] [上一页] "
else
Response.Write"[<a href='add.asp?Page=1'>首页</a>] "
Response.Write"[<a href='add.asp?Page="&(Page-1)&"'>上一页</a>] "
end if

if page>=pagecount then
Response.Write ("[下一页] [尾页]")
else
Response.Write"[<a href='add.asp?Page=" & (Page+1) & "'>下一页</a>] "
Response.Write"[<a href='add.asp?Page=" & pagecount &" '>尾页</a>]"
end if

Response.Write"[第:<font color=red>" & page & "</font>页/共：<font color=red>" & pageCount&"</font>页"
%></td>
</tr>
</table>

谢谢上楼，你真是个大好人。