在网上找了很久类似这样的代码，也找不到原因，请高手帮忙耐心解决。感激不尽。

这种代码和我原来碰到过的不一样，情况是不显示翻页，数据库调用倒是没错。


<%
           set rs=server.createobject("adodb.recordset")
          sql="select * from news where mytype="&tp&"  order  by id desc"
          rs.open sql,conn,1
         
          rs.pagesize=25'每页显示多少条
          pagecount=rs.pagecount '总页数
         
             if rs.bof and rs.eof then
              response.write ""
              else
                     
              page=clng(request.querystring("page"))
              if page<1 then page=1
              if page>rs.pagecount then page=rs.pagecount
              rs.absolutepage=page  '跳到多少页
  
              for i=1 to rs.pagesize
          %>
                          <tr>
                            <td width="84%" height="32" align="left" bgcolor="<% If i mod 2=0  Then %>#F4F9FC<% Else %>#ffffff<% End If %>">&nbsp;<font color="#2D5D7D">·</font>&nbsp;<a href="show.asp?id=<%=rs("id")%>" target="_blank"><span style="font-size:14px;"><%=left(rs("bt"),34)%></span></a></td>
                            <td width="16%" align="center" bgcolor="<% If i mod 2=0  Then %>#F4F9FC<% Else %>#ffffff<% End If %>"><a href="show.asp?id=<%=rs("id")%>" target="_blank"><span style="font-family:Arial, Helvetica, sans-serif; font-size:10px; color:#999999;">(<%= rs("riqi") %>)</span></a></td>
                          </tr>
                          <%
         rs.movenext
         if rs.eof then exit for
         next
         end if
         %>
                        </table>
                          <table width="95%" border="0" cellpadding="0" cellspacing="0">
                            <tr>
                              <td height="22" align="center">&nbsp;&nbsp;&nbsp;&nbsp;
                                                        
                                <span style="color:#666666">[共<%=rs.pagecount%>页&nbsp;当前第<%=page%>页&nbsp;<%
    if page<=1 then
       Response.Write("首页&nbsp;&nbsp;")
       Response.Write ("上一页")
    else
      Response.Write("<a href='?tp="&tp&"&Page=1' class='list'>首页</a>&nbsp;&nbsp;")
      Response.Write("<a href='?tp="&tp&"&Page=" & (Page-1) & "' class='list'>上一页</a>")

    end if
    response.write "&nbsp;&nbsp;"
    if page>=Rs.PageCount then
        Response.Write ("")
        Response.Write("&nbsp;&nbsp;")
    else
          Response.Write("<a href='?tp="&tp&"&Page=" & (Page+1) & "' class='list'></a>")
          Response.Write("&nbsp;&nbsp;<a href='?tp="&tp&"&Page=" & rs.pagecount & "' class='list'></a>")
    end if

%>]

请高手告知一下啊，真的是急死我了，这是从网上下载下来的程序，谁知道还短斤少两的。

有什么错误提示，也不说

<%
set rs=server.createobject("adodb.recordset")
          sql="select * from news where mytype="&tp&"  order  by id desc"
          rs.open sql,conn,1
         
          rs.pagesize=25'每页显示多少条
         
        
         If Request("page")<>"" Then
             ipage=Cint(Request("page"))
             If ipage < 1 Then ipage=1  '页码小于1，则显示第一页
              '当大于总页码的时候，显示最后一页
             If ipage>rs.PageCount Then ipage=rs.PageCount
         Else
                    ipage=1
         End If
        
         rs.AbsolutePage=ipage
%>
               For i=0 to rs.pagesize-1
                  If  rs.EOF OR rs.BOF Then Exit For
 
                          <tr>
                            <td width="84%" height="32" align="left" bgcolor="<% If i mod 2=0  Then %>#F4F9FC<% Else %>#ffffff<% End If %>">&nbsp;<font color="#2D5D7D">·</font>&nbsp;<a href="show.asp?id=<%=rs("id")%>" target="_blank"><span style="font-size:14px;"><%=left(rs("bt"),34)%></span></a></td>
                            <td width="16%" align="center" bgcolor="<% If i mod 2=0  Then %>#F4F9FC<% Else %>#ffffff<% End If %>"><a href="show.asp?id=<%=rs("id")%>" target="_blank"><span style="font-family:Arial, Helvetica, sans-serif; font-size:10px; color:#999999;">(<%= rs("riqi") %>)</span></a></td>
                          </tr>
                          <%
         rs.movenext
          next
      
         %>
                        </table>
                          <table width="95%" border="0" cellpadding="0" cellspacing="0">
                            <tr>
                              <td height="22" align="center">&nbsp;&nbsp;&nbsp;&nbsp;
                                                        
                                <span style="color:#666666"><% Response.Write("当前第"& ipage & "页，共" & rs.PageCount & "页")%>
                                <%
    if page<=1 then
       Response.Write("首页&nbsp;&nbsp;")
       Response.Write ("上一页")
    else
      Response.Write("<a href='?tp="&tp&"&Page=1' class='list'>首页</a>&nbsp;&nbsp;")
      Response.Write("<a href='?tp="&tp&"&Page=" & (Page-1) & "' class='list'>上一页</a>")

    end if
    response.write "&nbsp;&nbsp;"
    if page>=Rs.PageCount then
        Response.Write ("")
        Response.Write("&nbsp;&nbsp;")
    else
          Response.Write("<a href='?tp="&tp&"&Page=" & (Page+1) & "' class='list'></a>")
          Response.Write("&nbsp;&nbsp;<a href='?tp="&tp&"&Page=" & rs.pagecount & "' class='list'></a>")
    end if

                                %>

这样写试试

试过了，还是不行，并且出现以下错误了

。

你的代码第一次输出表格的时候少了一个<table>标签，还有最后的代码我没见过，那个没有问题吧，那几个Page或者page-1 应该相应改为ipage  ipage-1，