查看: 89|回复: 3

谁帮我检查一下分页代码！！！！！！！-------求救

[复制链接]

帅精灵

电梯直达

1^#

发表于 2010-1-10 02:32:37 | 只看该作者回帖奖励

|倒序浏览 |阅读模式

我做了一个分页代码！！！每页显示10条。为什么一超过10条就出错拉！错误如下：
错误类型：
Microsoft VBScript 运行时错误 (0x800A0009)
下标越界: '11'
/address/index.asp, 第 116 行
  代码如下：
<%if not isempty(request("page")) then
   page=cint(request("page"))
   else
   page=1
   end if
   set rs1=server.createobject("adodb.recordset")
   sql1="select*from user"
   rs1.open sql1,secondconn,1,1
   if rs1.eof and rs1.bof then
   response.write"<p align='center'>对不起，没有找到相关内容!</p>"
   else
   const maxperpage=10
   rs1.pagesize=maxperpage
   totalrecord=rs1.recordcount
   totalpage=rs1.pagecount
   if page>totalpage then page=totalpage end if
   rs1.absolutepage=page
   i=0
   dim truename(),nickname(),quanxian(),email(),userlogincount()
   do while not rs1.eof and (i<rs1.pagesize)
   i=i+1
   redim preserve truename(i),nickname(i),quanxian(i),email(i),userlogincount(i)
   truename(i)=rs1("truename")
   nickname(i)=rs1("nickname")
   if rs1("quanxian")="master" then
   quanxian(i)="班级管理员"
   elseif rs1("quanxian")="member" then
   quanxian(i)="班级成员"
   else quanxian(i)="未审核"
   end if
   email(i)=rs1("email")
   userlogincount(i)=rs1("logincount")
   rs1.movenext
   loop
   end if
   rs1.close
   set rs1=nothing
   %>
   <%for i=1to totalrecord%>
   <tr>
      <td><span class="STYLE2"><%=i%></span></td>
      <td><span class="STYLE2"><a href="detail.asp?name=<%=truename(i)%>" target="_blank"><%=truename(i)%></span></td>
      <td><span class="STYLE2"><%=nickname(i)%></span></td>
      <td><span class="STYLE2"><%=email(i)%></span></td>
      <td><span class="STYLE2"><%=quanxian(i)%></span></td>
      <td><span class="STYLE2"><%=userlogincount(i)%></span></td>
   </tr><%next%>
</table>
   <table width="100%" border="0" cellspacing="0" cellpadding="5">
      <tr>
      <td align="center">
      <div align="center" class="font14">
      共有<%=totalrecord%>条记录，
      每页<%=maxperpage%>条，共<font color=red><%=totalpage%></font>页 第<%=page%>页
      <%if page-1>0 then%>
      <a href="index.asp?page=<%=page-1%>">上一页</a>
      <%else%>上一页<%end if%>
      <%if page+1<=totalpage then%>
      <a href="index.asp?page=<%=page+1%>">下一页</a>
      <%else%>
      下一页
      <%end if%>
      </div>

收藏0