Visualizzazione dei risultati da 1 a 2 su 2
  1. #1
    Utente di HTML.it L'avatar di orcim
    Registrato dal
    May 2003
    Messaggi
    1,692

    Numero massimo di caratteri---

    Ciao.

    Ho scritto queste righe ASP per fare in modo che quando il testo inserito supera un certo numero massimo di caratteri (1500), il testo si divida in due parti (pagine) e venga visualizzato appunto in 2 pagine diverse.

    Purtroppo non funziona perchè non mi esegue il cambio pagina anche se vedo due pagine e tutto il testo contenuto nella prima pagina, ma mi riporta alla pagina della prima risposta che è stata postata, cioè non mi porta alla seconda pagina con la parte finale del testo inserito.

    Spero possiate aiutarmi a capire dov'è la magagna.

    Grazie---

    codice:
    <%      
        while not objRs.eof
        
        testo = replace(obj.apply(objRs("messaggio"),0), vbcrlf, "
    ")
        
        numeroCaratteri = Len(testo) 
        numeroMassCaratteri = 1500 
        numeroIniziale = 1 
    
        pagine = Cint(numeroCaratteri/numeroMassCaratteri) 
        Redim testoXpagina(pagine-1) 
    
        For i = 0 to pagine -1 
    
        if pagine > 1 then 
           testoXpagina(i) = Mid(testo,numeroIniziale,numeroMassCaratteri) 
        else 
           testoXpagina(i) = Mid(testo,numeroIniziale,Len(testo)) 
        end if 
    
        numeroIniziale = numeroIniziale + numeroMassCaratteri 
        pagine = pagine -1 
        
        next
        
    %>
    
    <%
    
        if (numeroCaratteri > 0) AND (numeroCaratteri>numeroMassCaratteri)then 
    
        if (paginaCorrente < 0) Or (Cint(paginaCorrente) > Cint(Ubound(testoXpagina))) then 
           Response.write ("<a class='h22s'>Pagina inesistente</a>") 
        else 
           Response.write("<a class='h22s'>" & testoXpagina(paginaCorrente) & "</a>") 
        end if 
    
        Response.write ("
    
    <a class='readmore'>Pagina : </a>") 
    
        For x = 0 to Ubound(testoXpagina) 
           Response.write("" & x & "" ) 
        Next 
    
        else 
    %>
    
    <% response.write testo%>
    
    <% end if %>
    
    <%    
        objRs.movenext()
        wend
    
    %>
    "Ubi Maior, Minor Cessat"
    Domandare è lecito, rispondere è cortesia...
    A tutti è dovuta una risposta, comunque...

    “Dio gradisce molto di più le bestemmie dell’uomo disperato che non le lodi del benpensante la domenica mattina durante il culto“ Martin Lutero

  2. #2
    Utente di HTML.it L'avatar di orcim
    Registrato dal
    May 2003
    Messaggi
    1,692

    Re: Numero massimo di caratteri---

    codice:
    <%      
    
        paginaCorrente = Request.QueryString("pag")   
      
        if Len(paginaCorrente)=0 then 
           paginaCorrente=0 
        end if 
        
        ...
    
        while not objRs.eof
        
        testo = replace(obj.apply(objRs("messaggio"),0), vbcrlf, "
    ")
        
        numeroCaratteri = Len(testo) 
        numeroMassCaratteri = 1500 
        numeroIniziale = 1 
    
        pagine = Cint(numeroCaratteri/numeroMassCaratteri) 
        Redim testoXpagina(pagine-1) 
    
        For i = 0 to pagine -1 
    
        if pagine > 1 then 
           testoXpagina(i) = Mid(testo,numeroIniziale,numeroMassCaratteri) 
        else 
           testoXpagina(i) = Mid(testo,numeroIniziale,Len(testo)) 
        end if 
    
        numeroIniziale = numeroIniziale + numeroMassCaratteri 
        pagine = pagine -1 
        
        next
        
    %>
    
    <%
    
        if (numeroCaratteri > 0) AND (numeroCaratteri>numeroMassCaratteri)then 
    
        if (paginaCorrente < 0) Or (Cint(paginaCorrente) > Cint(Ubound(testoXpagina))) then 
           Response.write ("<a class='h22s'>Pagina inesistente</a>") 
        else 
           Response.write("<a class='h22s'>" & testoXpagina(paginaCorrente) & "</a>") 
        end if 
    
        Response.write ("
    
    <a class='readmore'>Pagina : </a>") 
    
        For x = 0 to Ubound(testoXpagina) 
           Response.write("" & x & "" ) 
        Next 
    
        else 
    %>
    
    <% response.write testo%>
    
    <% end if %>
    
    <%    
        objRs.movenext()
        wend
    
    %>
    "Ubi Maior, Minor Cessat"
    Domandare è lecito, rispondere è cortesia...
    A tutti è dovuta una risposta, comunque...

    “Dio gradisce molto di più le bestemmie dell’uomo disperato che non le lodi del benpensante la domenica mattina durante il culto“ Martin Lutero

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.