Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Legionario-rs

[Resolvido] Problemas com Paginação

Por , em ASP Clássico

Recommended Posts

Legionario-rs    0

Legionario-rs
Postado

Bom dia pessoal,

 

Tenho o seguinte script que quando atinge o número máximo de ´fotos a serem exibidas ele dá a mensagem "No Records Found" dizendo que não há mais imagens ele lista a quantidade de páginas exemplo 1 2 3 >> Next mas quando mudo para a página 2 ele dá a dita mensagem e não mostra nada, será que alguém pode olhar e me ajudar para resolver isso???

 

Obrigado a quem poder ajudar.

 


<!--VB ADO Constants file.  Needed for the ad... constants we use-->
<!-- #include file="Admin/adovbs.inc" -->
<%
' BEGIN USER CONSTANTS
Dim CONN_STRING
Dim CONN_USER
Dim CONN_PASS



CONN_STRING = "DBQ=" & Server.MapPath("database.mdb") & ";"
CONN_STRING = CONN_STRING & "Driver={Microsoft Access Driver (*.mdb)};"

' This DB is unsecured, o/w you'd need to specify something here
CONN_USER = ""
CONN_PASS = ""




' BEGIN RUNTIME CODE
' Declare our vars
Dim iPageSize       'How big our pages are
Dim iPageCount      'The number of pages we get back
Dim iPageCurrent    'The page we want to show
Dim strOrderBy      'A fake parameter used to illustrate passing them
Dim rstSimple          'SQL command to execute
Dim objPagingConn   'The ADODB connection object
Dim objPagingRS     'The ADODB recordset object
Dim iRecordsShown   'Loop controller for displaying just iPageSize records
Dim I               'Standard looping var

' Get parameters
iPageSize = 10 ' You could easily allow users to change this

' Retrieve page to show or default to 1
If Request.QueryString("page") = "" Then
    iPageCurrent = 1
Else
    iPageCurrent = CInt(Request.QueryString("page"))
End If





' This is where you read in parameters you'll need for your query.
' Read in order or default to id
If Request.QueryString("order") = "" Then
    strOrderBy = "id"
Else
    strOrderBy = Request.QueryString("order")
End If


strSQL = "SELECT * FROM cats WHERE cat = '" & Request.QueryString("cat") & "' ORDER BY ID;"




' Now we finally get to the DB work...
' Create and open our connection
Set objPagingConn = Server.CreateObject("ADODB.Connection")
objPagingConn.Open CONN_STRING, CONN_USER, CONN_PASS

' Create recordset and set the page size
Set objPagingRS = Server.CreateObject("ADODB.Recordset")
objPagingRS.PageSize = iPageSize

' You can change other settings as with any RS
'objPagingRS.CursorLocation = adUseClient
objPagingRS.CacheSize = iPageSize

' Open RS

objPagingRS.Open strSQL, objPagingConn, adOpenStatic, adLockReadOnly, adCmdText

' Get the count of the pages using the given page size
iPageCount = objPagingRS.PageCount

' If the request page falls outside the acceptable range,
' give them the closest match (1 or max)
If iPageCurrent > iPageCount Then iPageCurrent = iPageCount
If iPageCurrent < 1 Then iPageCurrent = 1

' Check page count to prevent bombing when zero results are returned!
If iPageCount = 0 Then
    Response.Write "No records found!"
Else
    ' Move to the selected page
    objPagingRS.AbsolutePage = iPageCurrent

    ' Start output with a page x of n line
    %>
<head>
<STYLE fprolloverstyle>A:hover {color: red}
</STYLE>

</head>

    <p>
    <font face=verdana size=2><b>Página <%= iPageCurrent %> de <%= iPageCount %></font></b>
    </p>
    

    <%
    
    For I = 0 To objPagingRS.Fields.Count - 1
        
    Next 'I
    
    ' Loop through our records and ouput 1 row per record
    iRecordsShown = 0
    Do While iRecordsShown < iPageSize And Not objPagingRS.EOF
%>


  <table border="0" width="100%" cellpadding="0">
  <tr>
    <td width="100%" bgcolor="Silver">
      <table border="0" width="100%" cellspacing="5" cellpadding="5">
        <tr>
          <td width="20%">
            <p style="margin: 15"><a href="big.asp?id=<%= objPagingRS.Fields("ID").Value %>"><img border="0" src="<%= objPagingRS.Fields("pic_url").Value %>" height="120"></a></td>
          <td width="80%">
            <p style="margin-left: 15"><font face="Verdana" size="2" color="white"><b><%= objPagingRS.Fields("pic_dis").Value %></b></font></td>
        </tr>
      </table>
    </td>
  </tr>
  <tr>
    <td width="100%" bgcolor="Silver">
      <p align="left" style="margin-left: 10; margin-right: 7; margin-top: 2; margin-bottom: 2"><a href="big.asp?id=<%= objPagingRS.Fields("ID").Value %>" style="text-decoration:none"><b><font face="Verdana" color="white" size="2"><%= objPagingRS.Fields("pic_name").Value %></a></font></b></td>
  </tr>
</table>

<p align="center">


<%    
    iRecordsShown = iRecordsShown + 1
    objPagingRS.MoveNext
    Loop
%>

<% End If

' Close DB objects and free variables
objPagingRS.Close
Set objPagingRS = Nothing
objPagingConn.Close
Set objPagingConn = Nothing


' Show "previous" and "next" page links which pass the page to view
' and any parameters needed to rebuild the query.  You could just as
' easily use a form but you'll need to change the lines that read
' the info back in at the top of the script.
If iPageCurrent > 1 Then
    %>
<a href="list.asp?page=<%= iPageCurrent - 1 %>&order=<%= Server.URLEncode(strOrderBy) %>"><<
Prev</a>
    <%
End If

' You can also show page numbers:
For I = 1 To iPageCount
    If I = iPageCurrent Then
        %>
        <%= I %>
        <%
    Else
        %>
        <a href="list.asp?page=<%= I %>&order=<%= Server.URLEncode(strOrderBy) %>"><%= I %></a>
        <%
    End If
Next 'I

If iPageCurrent < iPageCount Then
    %>
<a href="list.asp?page=<%= iPageCurrent + 1 %>&order=<%= Server.URLEncode(strOrderBy) %>">Next >></a>
<%
End If


%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

ele esta gerando algum erro ???

Compartilhar este post

Link para o post
Compartilhar em outros sites

Legionario-rs    0

Legionario-rs
Postado

Olá Xanburzum,

 

Não gera erro nenhum simplesmente não mostra as páginas que vem depois da primeira e dá a mensagem "No records found!" e mais nada.

 

Valeu pela ajuda.

Compartilhar este post

Link para o post
Compartilhar em outros sites

DSerma    19

DSerma
Postado

Uma coisa que percebi...

 

você utiliza uma variavel Request.QueryString("cat") na sua SQL...

 

Mas pelo que vi.. você nao passa essa variavel novamente no link das páginas..

 

Se você usa uma QS na SQL.. deve passá-la sempre...

 

Att;

Compartilhar este post

Link para o post
Compartilhar em outros sites

DSerma    19

DSerma
Postado

Ex: <a href = "list.asp?page=<%=iPageCurrent + 1%>&cat=<%=Request.QueryString("cat")%>"> Próximo </a>

 

PS: Quando for pegar algum código por ai.. é interessante estudá-lo para saber no que está se enfiando...

 

Att;

Compartilhar este post

Link para o post
Compartilhar em outros sites

Legionario-rs    0

Legionario-rs
Postado

Boa tarde,

 

Darkdemo, isso não tinha ocorrido ainda não tinha cadastrado mais de 10 fotos neste álbum então agora ocorreu mas tem razão preciso me atentar mais a isto. Sua resposta solucionou o problema muito obrigado amigo. você é fera.

 

Abraço.

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito