沈阳文艺二校学区房:ASP留言本问题

<%do while not rs.eof and i<=5%>
标题
<%=rs("title")%>
内容
<%=rs("content")%>
<%
i=i+1
rs.movenext
loop
%>

<%
set rs=server.CreateObject("adodb.recordset")
sqlstar="select * from guestbook"
rs.open sqlstar,conn,1,1
rs.pagesize=3
mypage=request.QueryString("whichpage")
if cint(mypage) > cint(rs.pagecount) then
mypage=rs.pagecount
end if
if cint(mypage) < 1 then
mypage=1
end if
if mypage="" then
mypage=1
end if
Mypagecount=rs.pagecount
rs.absolutepage=mypage
record=1
do while not rs.eof and record<=rs.pagesize
%>
标题
<%=rs("title")%>
内容
<%=rs("content")%>
<%
rs.movenext
record=record+1
loop
%>
<%= rs.recordcount %>条信息，当前页面：<%= mypage %>/<%= Mypagecount %>     浏览页面：<font color=red><%= mypage %></font>  
<select name="PageList" class="input_c" onChange="MM_jumpMenu('self',this,0)" >
<option>转到</option>
<% for i=1 to Mypagecount %>
<option value="?whichpage=<%= i %>"><%= i %></option>
<% next %>
</select>
这是一个分页程序，自己调试一下吧。