显示分页的代码，高手帮忙看下哪里错了，谢谢

哦，我忘记描述问题了，就是我点击下一页的时候页面跳不过去，然后总页数哪里也无法显示：（（（首页  前一页  后一页  末页

现在是第1页一共有页）））感觉是不是这里有错啊哈 pagecount是不是要怎么个定义呢
谢谢了

还是不行哦，那样的话，错误就变成Microsoft VBScript 运行时错误 (0x800A01A8)
缺少对象: ''，这一行 if curpage>rs.pagecount then curpage=rs.pagecount

可是还是不行啊，问题还是和最初的一样哦，我点下一页的时候他不会跳过去，然后一共有几页的那地方还是空的哦

（（首页 前一页 后一页 末页

现在是第-1页一共有页））

错误类型：
ADODB.Recordset (0x800A0BB9)
参数类型不正确，或不在可以接受的范围之内，或与其他参数冲突。
/new/indexrdbeifen3.asp, 第 172 行

额，太高兴了，下一页那里可以正常显示了，但是末页那不行，点击末页的时候，就自己跳到第一页了，还有就是一共有几页那还是不行哦，末页显示数字的，谢谢啦

rs.close'问题出在这个rs.close上这句话不应该写在这个位置上
            end if
                        %>   
            
            <br><br>
            <p align="center">

<a href="indexrdbeifen.asp?page=1">首页</a>
<a href="indexrdbeifen.asp?page=<%=curpage-1%>">前一页</a>
<a href="indexrdbeifen.asp?page=<%=curpage+1%>">后一页</a>
<a href="indexrdbeifen.asp?page=<%=rs.pagecount%>">末页</a>
改后的代码
<%
            Dim i,rs
            PERPAGE = 20
            Set rs = Server.CreateObject("ADODB.RecordSet")
            sql="select * from News,Category where news.CateID=Category.CID and '热点新闻' order by NewsID desc"
            rs.cursortype=3
            rs.open sql,conn
            on error resume next
            If rs.EOF Then
               '则关闭记录集
               rs.Close
               '显示目前还没有评论
               Response.Write "此文章暂无评论"
           Else
              '设置每页记录数
             rs.PageSize = PERPAGE
             if request("page")<>"" then
                curpage=cint(request("page"))
                if curpage<1 then curpage=1
                if curpage>rs.pagecount then curpage=rs.pagecount
            else
               curpage=1
            end if
            '设置当前页码
            rs.AbsolutePage = CurPage
            For i = 1 To rs.PageSize   
                Response.Write "<a class='style34' onClick='return newwin(this.href);' href='newsView.asp?id=" + cstr(rs("newsid")) + "'>" + rs("newsTitle") +"</p>"
                rs.movenext
                '这里缺少对最后一条数据的判断
                if rs.eof then exit for
            next
            end if
                        %>   
            
            <br><br>
            <p align="center">

<a href="indexrdbeifen.asp?page=1">首页</a>
<%IF Curpage<>1 Then%>
  <a href="indexrdbeifen.asp?page=<%=curpage-1%>">前一页</a>
<%Else%>
  前一页
<%End IF%>
<%IF CurPage<>rs.pagecount Then%>
<a href="indexrdbeifen.asp?page=<%=curpage+1%>">后一页</a>
<%Else%>
  后一页
<%End IF%>
<a href="indexrdbeifen.asp?page=<%=rs.pagecount%>">末页</a>
</p>
<p align="center">现在是第<%=curpage%>页一共有<%=rs.pagecount%>页</p>

<%
  rs.close
%>

看你们讨论真精彩，越加感觉自己的无知！

虽然你们说的我都不懂，但心情激荡啊~！