Pagina 1 di 2 1 2 ultimoultimo
Visualizzazione dei risultati da 1 a 10 su 11
  1. #1

    paginazione record con lettere

    Salve a tutti,

    vi descrivo il mio problema.

    ho una pagina asp che mi elenca i record x lettera(es. A-B-C-D-E-F ec..) e cliccando su una di questa (es. A) mi restituisce tutti i risultati che iniziano con la lettera A.

    e qui tutto ok.

    praticamente non riesco a dare all'interno di ogni lettera, una paginazione interna (es. clicco A e mi restituisce 10 risultati x pagina con la lettera A)

    spero di essere stato chiaro.

    di seguito riporto il codice della pagina:


    (premetto che non è scritto da me ma da (michele.santoro) utente di questo forum)

    --------------------------------------------------------------

    <%


    '****** da personalizzare **********

    campo = "nome"
    testo= "testo"
    tabella = "tabella_nomi"
    nome_database = "./alfabeto.mdb"
    colore_sfondo= "#FFFFFF"

    '****** fine personalizzazione **********

    set Con = server.CreateObject("adodb.connection")
    Con.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&Server.MapPath( nome_database )


    nome =""
    lettera =request.querystring ("lettera")

    visualizza_alfabeto

    if lettera <>"" then
    estrai_da_database
    end if



    Con.Close

    sub estrai_da_database



    sqlstring3 = "select " & campo & " from " & tabella & " where " & campo & " like '" & lettera & "%' order by " & campo & ""
    Set RS = Con.execute(sqlstring3)

    bolfound2 = "false"

    Do until RS.EOF
    nome =RS(campo)


    bolfound2 = "true"
    visualizza_nomi
    RS.movenext

    loop

    if bolfound2 = "false" then
    response.write("<table align = center><tr><td align =center>")
    response.write("
    nessun record presente")
    response.write("</td></tr></table>")


    end if


    end sub

    sub visualizza_nomi

    %>
    <a href='pagina_dettaglio.asp?nome=<%=nome%>'>
    <%=nome%>
    </a>


    <%
    end sub

    sub visualizza_alfabeto
    %>
    <html>
    <head>
    <title> RISORSE.NET -- Ricerca per lettera dell'alfabeto</title>
    <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
    </head>

    <body bgcolor=<%=colore_sfondo%> text="#000000">
    <table width="29%" border="0" height="32">
    <tr>
    <td width="5%">
    A
    </td>
    <td width="5%">
    B
    </td>
    <td width="5%">
    C
    </td>
    <td width="5%">
    D
    </td>
    <td width="5%">
    E
    </td>
    <td width="5%">
    F
    </td>
    <td width="5%">
    G
    </td>
    <td width="5%">
    H
    </td>
    <td width="5%">
    I
    </td>
    <td width="5%">
    J
    </td>
    <td width="5%">
    K
    </td>
    <td width="5%">
    L
    </td>
    <td width="5%">
    M
    </td>
    <td width="5%">
    N
    </td>
    <td width="5%">
    O
    </td>
    <td width="5%">
    P
    </td>
    <td width="5%">
    Q
    </td>
    <td width="5%">
    R
    </td>
    <td width="5%">
    S
    </td>
    <td width="5%">
    T
    </td>
    <td width="5%">
    U
    </td>
    <td width="5%">
    V
    </td>
    <td width="5%">
    W
    </td>
    <td width="5%">
    X
    </td>
    <td width="5%">
    Y
    </td>
    <td width="5%">
    Z
    </td>

    </tr>
    </table>
    </body>
    </html>
    <% end sub%>

    -----------------------------------

    grazie

  2. #2
    Utente di HTML.it L'avatar di Lak3d
    Registrato dal
    Aug 2006
    Messaggi
    1,031
    praticamente non riesco a dare all'interno di ogni lettera, una paginazione interna (es. clicco A e mi restituisce 10 risultati x pagina con la lettera A)
    guarda che nel blocco da te postato, a meno di avere problemi di lettura, direi che non esiste codice per gestire la paginazione... :master:

  3. #3
    Originariamente inviato da Lak3d
    guarda che nel blocco da te postato, a meno di avere problemi di lettura, direi che non esiste codice per gestire la paginazione... :master:

    concordo


    cerca "paginazione" sul forum e implementala nel tuo script
    IP-PBX management: http://www.easypbx.it

    Old account: 2126 messages
    Oldest account: 3559 messages

  4. #4
    lo so,

    infatti,
    nel mio messaggio dicevo che non rieco ad inseire la paginazione,

    potreste aiutarmi?

  5. #5
    sto provando a implementare la paginazione, ma non riesco a fondere i due codici


    potete aiutarmi?????????


    vi posto tutto il codice, ma gia vi dico che non va, praticamente mi restituisce 2 volte i risultati.


    sicuramente ho fatto un casino



    <%


    '****** da personalizzare **********

    campo = "nome"
    testo= "testo"
    tabella = "tabella_nomi"
    nome_database = "mdb-database/Mercatino.mdb"
    colore_sfondo= "#FFFFFF"

    '****** fine personalizzazione **********


    'Numero di record visualizzati per pagina
    Record_Pagina = 2
    'Numero di Pagine visualizzate nei link
    Numerazione_Max = 7






    set Con = server.CreateObject("adodb.connection")
    Con.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&Server.MapPath( nome_database )


    nome =""
    lettera =request.querystring ("lettera")

    visualizza_alfabeto

    if lettera <>"" then
    estrai_da_database
    end if



    Con.Close

    sub estrai_da_database



    sqlstring3 = "select " & campo & " from " & tabella & " where " & campo & " like '" & lettera & "%' order by " & campo & ""
    Set RS = Con.execute(sqlstring3)






    bolfound2 = "false"

    Do until RS.EOF
    nome =RS(campo)


    bolfound2 = "true"
    visualizza_nomi
    RS.movenext

    loop

    if bolfound2 = "false" then
    response.write("<table align = center><tr><td align =center>")
    response.write("
    nessun record presente")
    response.write("</td></tr></table>")


    end if




    'E creo il recordset
    Set Rs = Server.CreateObject ("ADODB.Recordset")
    Rs.PageSize = Record_Pagina
    Rs.Open sqlstring3, Con, 3, 3

    'Recupero il numero della pagina corrente
    Pag = CInt(Request.Querystring("pag"))

    'Controllo che il numero di pagina sia corretto
    If (Not Rs.Eof) Then
    If Pag>Rs.PageCount Then
    Pag = Rs.PageCount
    End If
    If Pag = 0 Then
    Pag = 1
    End If

    'Setto la pagina corrente
    Rs.AbsolutePage = Pag

    'Ora prepariamo i link alle pagine
    indice_inizio = pag-(Numerazione_Max/2)
    If (indice_inizio>(Rs.PageCount-Numerazione_Max)) Then
    indice_inizio = Rs.PageCount-Numerazione_Max+1
    End If
    If (indice_inizio<=0) Then
    indice_inizio = 1
    End if
    indice_fine=indice_inizio+Numerazione_Max-1
    If (indice_fine>Rs.PageCount) Then
    indice_fine = Rs.PageCount
    End If
    'Link alla prima pagina
    Link = "<| "

    'Link alle pagine precedenti
    If (indice_inizio<>1) Then
    Link=Link&"<a href=""?pag="&(indice_inizio-1)&""">... "
    End If
    For i=indice_inizio to indice_fine

    'Pagina attuale
    If (i=pag) then
    Link = Link&"]"&i&"[ "
    'Link alle altre pagine
    Else
    Link = Link&"<a href=""?pag="&i&""">["&i&"] "
    End If
    Next

    'Link alle pagine successive
    If (indice_fine<Rs.PageCount-1) Then
    Link = Link&"<a href=""?pag="&(indice_fine+1)&""">... "
    End If

    'Link all'ultima pagina
    Link=Link&"<a href=""?pag="&Rs.PageCount&""">|> "
    End If


    'I link sono pronti,ora stampiamo i record ..
    i=0
    While (NOT Rs.EOF)and(i<Record_Pagina)
    i = i+1
    Response.Write( Rs("nome")&"
    " )
    Rs.MoveNext
    WEnd
    'e ora finalmente stampiamo i link alle altre pagine
    Response.Write(Link)









    end sub

    sub visualizza_nomi

    %>
    <a href='pagina_dettaglio.asp?nome=<%=nome%>'>
    <%=nome%>
    </a>


    <%
    end sub


















    sub visualizza_alfabeto
    %>
    <html>
    <head>
    <title></title>
    <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
    </head>

    <body bgcolor=<%=colore_sfondo%> text="#000000">
    <table width="29%" border="0" height="32">
    <tr>
    <td width="5%">
    A
    </td>
    <td width="5%">
    B
    </td>
    <td width="5%">
    C
    </td>
    <td width="5%">
    D
    </td>
    <td width="5%">
    E
    </td>
    <td width="5%">
    F
    </td>
    <td width="5%">
    G
    </td>
    <td width="5%">
    H
    </td>
    <td width="5%">
    I
    </td>
    <td width="5%">
    J
    </td>
    <td width="5%">
    K
    </td>
    <td width="5%">
    L
    </td>
    <td width="5%">
    M
    </td>
    <td width="5%">
    N
    </td>
    <td width="5%">
    O
    </td>
    <td width="5%">
    P
    </td>
    <td width="5%">
    Q
    </td>
    <td width="5%">
    R
    </td>
    <td width="5%">
    S
    </td>
    <td width="5%">
    T
    </td>
    <td width="5%">
    U
    </td>
    <td width="5%">
    V
    </td>
    <td width="5%">
    W
    </td>
    <td width="5%">
    X
    </td>
    <td width="5%">
    Y
    </td>
    <td width="5%">
    Z
    </td>

    </tr>
    </table>






    </body>
    </html>
    <% end sub%>

  6. #6



    potreste darmi un suggerimento al riguardo????

    magari dove posso trovare qualcosa a riguardo?????




  7. #7


    scusate l'insistenza.

    potreste dirmi dove posso trovare quallcosa di simile?


    che abbia queste funzioni?


    tutorial?

  8. #8
    Scusate l'insistenza,

    nessuno puo darmi un indicazione sull'argomento???


    please....................

  9. #9
    Nei link alle pagine successive devi aggiungere nella queryString la coppia variabile=valore relativa alla lettera selezionata.

  10. #10
    utilizza un array

    dim arr(20)

    arr(0) = "A"
    arr(1) = "B"

    ecc ...
    prude il dito, lui sdraiato
    ha giocato a guardie e ladri col ladro sbagliato

Permessi di invio

  • Non puoi inserire discussioni
  • Non puoi inserire repliche
  • Non puoi inserire allegati
  • Non puoi modificare i tuoi messaggi
  •  
Powered by vBulletin® Version 4.2.1
Copyright © 2025 vBulletin Solutions, Inc. All rights reserved.