Originariamente inviato da numapompilio
salve, sto creando un testo che puo essere piu o meno lungo e non controllabile tramite campi di un database.
E' possibile stabilire quanto puo misurare una pagina per un eventuale interruzione per una intestazione a pie di pagina e reiniziare lo stesso pensiero o paragrafo in una pagina diversa ?
Praticamente la possibilità di misurare in pixel l altezza giusta della pagina .....
Potete darmi una idea ?
Attendo notizie.
Se non ho capito male tu vorresti suddividere il testo in più pagine quando questo supera un certo numero di caratteri.
Se è così prova con questo esempio (la pagina la devi chiamare, in questo caso, testo_su_piu_pagine.asp:
codice:
<%
paginaCorrente=Request.QueryString("pagina")
if Len(paginaCorrente)=0 then
paginaCorrente=0
end if
'testo=rs("Nome_del_campo")
testo="Esempio di 84 caratteri per pagina, Per prendere il testo dal database decommentare la riga precedente e commentare o cancellare questa riga.
Questa è una prova con del testo scritto direttamente e non preso da database. FINE"
numeroCaratteri=Len(testo)
'qui imposta il numero di caratteri
numeroMassCaratteri=84 'Modificare questo numero per aumentare o diminuire i caratteri visibili su ogni pagina
numeroIniziale=1
Dim testoXpagina()
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 ("Pagina inesistente")
else
Response.write(testoXpagina(paginaCorrente))
end if
Response.write ("
Pagina : ")
For x=0 to Ubound(testoXpagina)
Response.write(""&x&"" )
Next
else
Response.write(testo)
end if
%>