<%
            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是不是要怎么个定义呢
谢谢了

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

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

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

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

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

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

谢谢了，问题解决了，o(∩_∩)o...哈哈