<%
            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.open sql,conn,3,2
            on error resume next
            If rs.EOF Then
        '则关闭记录集
        rs.Close
        '显示目前还没有评论
        Response.Write "此文章暂无评论"
    Else
            
            '设置每页记录数
            rs.PageSize = PERPAGE
            '设置当前页码
            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
            next
            rs.close
            end if
            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
            %>    
            
            <br><br>
            <p align="center">

<a href="indexrdbeifen.asp?page=1">首页</a>&nbsp;
<a href="indexrdbeifen.asp?page=<%=curpage-1%>">前一页</a>&nbsp;
<a href="indexrdbeifen.asp?page=<%=curpage+1%>">后一页</a>&nbsp;
<a href="indexrdbeifen.asp?page=<%=rs.pagecount%>">末页</a>



</p>
<p align="center">现在是第<%=curpage%>页一共有<%=rs.pagecount%>页</p>

你自己不说怎么错了，等着别人弄一个跟你那里一样的数据库自己加了数据帮你测试？

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

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

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
这个判断的位置不对写在了当前页设置后面了
<%
            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.open sql,conn,3,2
            on error resume next
            If rs.EOF Then
               '则关闭记录集
               rs.Close
               '显示目前还没有评论
               Response.Write "此文章暂无评论"
           Else
              '设置每页记录数
             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.PageSize = PERPAGE
            '设置当前页码
            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
            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>



</p>
<p align="center">现在是第<%=curpage%>页一共有<%=rs.pagecount%>页</p>

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

我也错了rs.PageSize = PERPAGE这句话应该放在判断语句之前
因为rs里没有设置每页的记录数，就去计算pagecount肯定会缺少对象的
<%
            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.open sql,conn,3,2
            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
            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>



</p>
<p align="center">现在是第<%=curpage%>页一共有<%=rs.pagecount%>页</p>

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

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

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

on error resume next 把这句话删掉看看出现什么错误提示

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

rs.open sql,conn,3,2
这里改成
rs.cursortype=3
rs.open sql,conn
试试看