[Resolvido] Paginação

[DSerma 19]

Claudio.. oq você deve fazer é verificar mais ou menos o numero de caracteres que cabem nos seus 700px... e usar o Len() para contar esses caracteres que vem do banco e fazer essa quebra...

 

Oq você qr nao é bem paginação.... pois você nao estará paginando os registros.. mas sim quebrando um texto...

 

Quebre o texto em quantas partes forem necessárias, e grave-as em Sessions.... ai quando o usuario for para a outra "página", você exibe o conteudo da proxima session....

 

Att;

[Clauido José 3]

Entedi tava tentando fazer com mid mas acho que ja to com uma ideia pra fazer isso valeu depois eu posto aqui o resultado valeu darck acho que vou seguir sua logica é mas certa.

O Darck entedeu exatamente o que eu quero tipo tenho um campo memo no banco de dados e na pagina que abre o final ele ta estorando o layout porque o texto é grande entao vou ter que fazer mais ou menos como o dark falo.

[xanburzum 169]

cuidado com o uso de sessions, gasta recursos do servidor.

[Clauido José 3]

Bom a tarde galera desculpa a demora por responder os topicos to com muito serviço por aqui gaças a deus. Consegui resolver mais essa agredendo primeiramente ao Patrique tem que cido figura importante aqui no forum, ao dark tb que tem participado bastante e ao xanburzum que sem palavras ja me quebro varios galhos hehe. Patrique Saiu um belo cafe da manha com direito a torrada e queijo fresco hehehe. Vai ai link para vocês verem como fico ainda vou acertar o CSS. Mas logica toda ta em asp mesmo ai vai ele Clique aqui em seguida o codigo para quem precisar.

 

      	<!--#include file="topo.asp"-->
       	<div id="conteudo_page">
          <h2><%=Request.QueryString("type")%></h2>
		<%			
        if Request.QueryString("type")="artigo" then
            Sql="SELECT * FROM artigos WHERE id = " & Request.QueryString("id")
            Set Rs = Conexao.Execute(Sql)
            data=Rs("Data")	
            Origem=rs("Origem")
        elseif Request.QueryString("type")="cursos" then				
            Sql="SELECT * FROM Cursos WHERE id = " & Request.QueryString("id")
            Set Rs = Conexao.Execute(Sql)
        elseif Request.QueryString("type")="historia" then				
            Sql="SELECT * FROM historia WHERE id = " & Request.QueryString("id")
            Set Rs = Conexao.Execute(Sql)
            data=Rs("Data")		
        elseif Request.QueryString("type")="estrutura" then				
            Sql="SELECT * FROM estrutura WHERE id = " & Request.QueryString("id")
            Set Rs = Conexao.Execute(Sql)
            data=Rs("Data")		
        end if
        id = rs("id")
        TItulo = Rs("Titulo")
        Imagem = Rs("Imagem")
        Breve = Rs("Breve")
        Completo=rs("Completo")
        %>
            <h5><%=FormatDateTime(data,2)%> - <%=TItulo%><br /><%=Origem%></h5><br />            	
            <%if Imagem<>"" then%>
           		<div id="img-galeria-gd"><img src="admin/materias/<%=Imagem%>" width="330"  height="225"/></div>
            <%end if%>
            <div align="justify">
              <%			
            dim i 	
            sValor = len(Completo)
            if sValor >= 1900 then
                sdiv = 1980
                sDiv1=2201
                sDiv2=2201+sDiv
                sDiv3=1820				
                sDiv4=6000
                sdiv5=900
                if Request.QueryString("pag")=0 or Request.QueryString("pag")=1 then
                    sCompleto=mid(Completo,1,sDiv)
                elseif Request.QueryString("pag")=2 then
                    sCompleto=mid(Completo,sDiv,sdiv1)
                elseif Request.QueryString("pag")=3 then			
                    sCompleto=mid(Completo,sDiv2,sDiv3)				
                elseif Request.QueryString("pag")=4 then				
                    sCompleto=mid(Completo,sDiv4,sDiv5) 				
                end if
			else
				sCompleto=completo
            end if
            Response.Write("<div id='conteudo1'>" & sCompleto & "</div><Br>")
            if Request.QueryString("pag")=4 or  sValor <= 1900 then
                Set Rs = Conexao.Execute("SELECT * FROM galeria_artigos WHERE idArtigos = " & Request.QueryString("id"))
                If NOT Rs.EOF Then
            %>   
    
                    <div id="galeria">
                        <h5>Galeria de Fotos</h5><br />
                        <%
                        While NOT Rs.EOF
                            Imagem = Rs("Imagem")
                        %>
                            <div class="lista_noticia"><div class="thumb_80x55">
                                <a href="admin/galeria_materias/<%=Imagem%>" rel="sexylightbox[1]">
                                    <img src="admin/galeria_materias/<%=Imagem%>" width="80"  height="55"/>
                                </a>
                            </div>
                        
                        <%
                            Rs.MoveNext
                        Wend
                        Rs.Close
                        Set Rs = Nothing	
                        %> 
                    </div>
            <%
                end if
            end if
            if sValor >= 1900 then
            %>                
            <div class="paginacao">
                <%
                i = 1 
                for i = 1 to 4 
                    Response.Write("<span class='atual'><a href='conteudo.asp?pag=" & i & "&type=" & Request.QueryString("type") & "&id=" & id & "'>" & i & "</a></span>")
                next
                %>
            </div>
            <%
            end if
            %>
        </div></div>
        
        <br style="clear:both" />
        <br style="clear:both" />
        <!--#include file="rodape.asp"-->

[Patrique 0]

Fico feliz que tenha conseguido, garanto que referente a paginação você não terá duvidas tão cedo kkkkk

 

Valew.

[xanburzum 169]

Beleza amigo....