Question

asp 分页问题

详细错误：http://yoyoju.gicp.net/message.asp
页码为1时没问题，当页码大于1时却出现了问题。

代码：
<%
dim maxpage,nowpage,msgnum
set rs=server.createobject("adodb.recordset")
sql="select * from msg"
rs.open sql,conn,1,1
rs.pagesize=5
maxpage=rs.pagecount
msgnum=rs.recordcount
rs.movefirst
nowpage=request("page")
if nowpage&"x"="x" then '处理页码为空时的情况
nowpage=1
else
nowpage=cint(nowpage) '将页码转换成数字型
end if
rs.absolutepage=nowpage '将指针移动到当前显示页的第一条记录
%>
<% if nowpage<>1 then %>
<a href="message.asp?page=1"><font size="4" color="green"><b>首页</b></font></a>
<% else %>
<font size="4" color="#999999"><b>首页</b></font>
<% end if %>
<% if nowpage>1 then %>
<a href="message.asp?page=<% nowpage-1 %>"><font size="4" color="green"><b>上一页</b></font></a>
<% else %>
<font size="4" color="#999999"><b>上一页</b></font>
<% end if %>
<% if nowpage<maxpage then %>
<a href="message.asp?page=<% =nowpage+1 %>"><font size="4" color="green"><b>下一页</b></font></a>
<% else %>
<font size="4" color="#999999"><b>下一页</b></font>
<% end if %>
<% if nowpage<>maxpage then %>
<a href="message.asp?page=<% =maxpage %>"><font size="4" color="green"><b>末页</b></font></a>
<% else %>
<font size="4" color="#999999"><b>末页</b></font>
<% end if %>
<form action="" method="get" name="changepage">
<font size="4" color="#0000FF"><b>第</b></font><select name="page" size="1" onChange="changepage.submit()">
<% for i=1 to maxpage step 1 %><option <% if i=nowpage then %> selcted <% end if %> ><% =i%></option><% next %></select><font size="4" color="#0000FF"><b>页</b></font> </form>

Answer 1

<a href="message.asp?page=<% nowpage-1 %>"><font size="4" color="green"><b>上一页</b></font></a>

已测。。<% nowpage-1 %>">少了一个=号，导致无法输出！
修改后代码如下：

-----------------
<%
dim maxpage,nowpage,msgnum
set rs=server.createobject("adodb.recordset")
sql="select * from msg"
rs.open sql,conn,1,1
rs.pagesize=5
maxpage=rs.pagecount
msgnum=rs.recordcount
rs.movefirst
nowpage=request("page")
if nowpage&"x"="x" then '处理页码为空时的情况
nowpage=1
else
nowpage=cint(nowpage) '将页码转换成数字型
end if
rs.absolutepage=nowpage '将指针移动到当前显示页的第一条记录
%>
<% if nowpage<>1 then %>
<a href="message.asp?page=1"><font size="4" color="green"><b>首页</b></font></a>
<% else %>
<font size="4" color="#999999"><b>首页</b></font>
<% end if %>
<% if nowpage>1 then %>
<a href="message.asp?page=<% =nowpage-1 %>"><font size="4" color="green"><b>上一页</b></font></a>
<% else %>
<font size="4" color="#999999"><b>上一页</b></font>
<% end if %>
<% if nowpage<maxpage then %>
<a href="message.asp?page=<% =nowpage+1 %>"><font size="4" color="green"><b>下一页</b></font></a>
<% else %>
<font size="4" color="#999999"><b>下一页</b></font>
<% end if %>
<% if nowpage<>maxpage then %>
<a href="message.asp?page=<% =maxpage %>"><font size="4" color="green"><b>末页</b></font></a>
<% else %>
<font size="4" color="#999999"><b>末页</b></font>
<% end if %>
<form action="" method="get" name="changepage">
<font size="4" color="#0000FF"><b>第</b></font><select name="page" size="1" onChange="changepage.submit()">
<% for i=1 to maxpage step 1 %><option <% if i=nowpage then %> selcted <% end if %> ><% =i%></option><% next %></select><font size="4" color="#0000FF"><b>页</b></font> </form>