Question

asp使用分页只能显示第一页数据

设置每页显示20条，但是总是显示第一页内容，我把代码贴出来，大家帮我看看。我用的是XDOWNPAGE asp 1.0版。
<%Set mypage=new xdownpage
mypage.getconn=conn
mypage.getsql="select * from cw"
mypage.pagesize=20
set rs=mypage.getrs()
set rs=server.CreateObject("adodb.recordset")
sql="select * from cw"
rs.open sql,conn,1,1
if rs.eof or rs.bof then
response.write("系统中没有搜索到该记录！请添加新记录。")
else
response.write("<table width=1050 border=1 cellpadding=1 cellspacing=0 bordercolor=black>")
for i=1 to mypage.pagesize
if not rs.eof then
%>
<tr>
<td width="150pt" align="center"><%=rs("date")%></td>
<td width="150pt" align="center"><%=rs("name")%></td>
<td width="50pt" align="center"><%=rs("sz")%></td><td width="50pt" align="center"><%=rs("ycyf")%></td>
<td width="150pt" align="right"><%=rs("je")%></td>
<td width="450pt" align="center"><%=rs("bz")%></td>
<td width="50pt" align="center"><a href=xgcw1.asp?id=<%=rs("id")%>>修改</a></td>
<td width="50pt" align="center"><a href=delcw.asp?id=<%=rs("id")%>>删除</a></td>
</tr>
<%rs.movenext
else
exit for
end if
next
response.write("</table>")
mypage.showpage()
end if
rs.close
set rs=nothing%>
加入
curpage=Request.QueryString("page")
mypage.absolutepage=page
显示错误。
500 - 内部服务器错误。
您要查找的资源有问题，无法显示。
我仔细看了分页代码里面包含了接收page的代码，只是不太会用。
问题还是没有解决。。。。。。我早就去掉显示友好http错误信息了。

Answer 1

你没有接收页面的语句啊，加入以下2条
curpage=Request.QueryString("curpage")'将URL参数curpage传给curpage变量
rs.absolutepage=curpage '将本页设为curpage设置的页数

500错误的错误原因比较多啊，服务器本身的设置，是否支持ASP，是否用了服务器不支持的对象，IIS是否有问题，也有可能ASP的语法有问题，ACCESS数据库连接语句出错、文件引用与包含路径出错等等错误，你可以将IE的菜单--工具--Internet选项--高级--显示友好的HTTP错误信息，去掉这个选择，然后刷新出错页，就可以看到详细的出错信息，对帮助你确定错误所在非常有帮助！

Answer 2

你补充的curpage=Request.QueryString("page")
mypage.absolutepage=page

第二行应该是mypage.absolutepage=curpage