PaginaÇao De Texto...

[Annelise]

GENTE TO TENTANDO FAZER A TAL DA PAGINAÇÃO DETEXTO A MAIS DE MES....não TO CONSEGUINDO...

SERA QUE alguém PODE ME AJUDAR???POR FAVOR...TA OSSO...

OBRIGADA

[ViniciusJau]

para qual banco de dados

vou te passar uma que eu uso para MDB

<%

n_page=request("n_page")

If n_page="" Then n_page = 1

  Caminho="DBQ=" & Server.MapPath("../../dados/mural.mdb")

  Set Conex=Server.CreateObject("ADODB.Connection")

  Conex.Open Caminho & ";Driver={Microsoft Access Driver (*.mdb)}","",""

  Set RecSet=Server.CreateObject("ADODB.Recordset")

  RecSet.Open "tab ORDER BY Autonum DESC", Conex, 3,3

  RecSet.PageSize=5

 

  If RecSet.EOF Then

    response.write "Não existem registros para exibição..."

  Else

%>

<table width="250" border="0" cellspacing="0" cellpadding="0">

  <tr>

    <td>

      <%    RecSet.AbsolutePage = Cint(n_page)

   

    contador=0

    While not RecSet.EOF AND contador < RecSet.PageSize         

%>

      <strong><font color="#006699" size="1" face="Verdana, Arial, Helvetica, sans-serif">De:</font></strong>

      <font size="1" color="#000000" face="Verdana">

      <% response.write RecSet("de")&" "

%>

      <font color="#FF9966" size="1" face="Verdana"> em

      <% response.write RecSet("data")&"<br>"

%>

      </font> <strong><font color="#006699" size="1" face="Verdana, Arial, Helvetica, sans-serif">Para:</font></strong>

      <font size="1" face="verdana">

      <% response.write RecSet("para")&"<br>"

%>

      </font> <strong><font color="#006699" size="1" face="Verdana, Arial, Helvetica, sans-serif">Mensagem:</font></strong><br> 

<font size="1" face="Verdana"><%  response.write RecSet("msg")&"<br><hr>"

          RecSet.MoveNext

          contador=contador+1

   

    Wend   

 

    response.write "<br>"

  %>

    </td>

  </tr>

</table>

<%

' barra de navegação

    For navega= 1 to RecSet.PageCount

 

        If navega= Cint(n_page) Then

       

            response.write navega

           

        Else

        %>

  <font color="#666699" size="1" face="Verdana, Arial, Helvetica, sans-serif">

 

  <%

            response.write " "& "<a href=index.asp?n_page="&navega&">"&navega&"</a>"& "  "

        End If

    Next

    response.write "<br>"

    anterior=n_page-1

    proxima=n_page+1

   

    If not anterior = 0 Then

     

        response.write "<a href=index.asp?n_page="&anterior&">Anterior</a>"   

       

    End If

   

    If proxima < navega Then

   

        response.write "&nbsp<a href=index.asp?n_page="&proxima&">Próxima</a>"   

       

    End If

   

End If

%>

[Annelise]

eu to usando access.......sera que esse seu codigo ira funcionar???

vale...brigadim

[Annelise]

outra duvida amigo.....esse codigo que voce me passou e paginação de arquivos....tipo (me corrija se estiver errada...obrigadim)

dado 1

dado 2

dado 3

PROXIMA

queria paginaçao de texto....tipo

asjfhaklçsdfhçaskldjfaklsdjfjlasdfklçasdjfklçasjdfklçjasdfkljsklfj

asjfhaklçsdfhçaskldjfaklsdjfjlasdfklçasdjfklçasjdfklçjasdfkljsklfj

asjfhaklçsdfhçaskldjfaklsdjfjlasdfklçasdjfklçasjdfklçjasdfkljsklfj

asjfhaklçsdfhçaskldjfaklsdjfjlasdfklçasdjfklçasjdfklçjasdfkljsklfj

asjfhaklçsdfhçaskldjfaklsdjfjlasdfklçasdjfklçasjdfklçjasdfkljsklfj

asjfhaklçsdfhçaskldjfaklsdjfjlasdfklçasdjfklçasjdfklçjasdfkljsklfj

asjfhaklçsdfhçaskldjfaklsdjfjlasdfklçasdjfklçasjdfklçjasdfkljsklfj

asjfhaklçsdfhçaskldjfaklsdjfjlasdfklçasdjfklçasjdfklçjasdfkljsklfj

asjfhaklçsdfhçaskldjfaklsdjfjlasdfklçasdjfklçasjdfklçjasdfkljsklfj

asjfhaklçsdfhçaskldjfaklsdjfjlasdfklçasdjfklçasjdfklçjasdfkljsklfj

asjfhaklçsdfhçaskldjfaklsdjfjlasdfklçasdjfklçasjdfklçjasdfkljsklfj

asjfhaklçsdfhçaskldjfaklsdjfjlasdfklçasdjfklçasjdfklçjasdfkljsklfj

asjfhaklçsdfhçaskldjfaklsdjfjlasdfklçasdjfklçasjdfklçjasdfkljsklfj

asjfhaklçsdfhçaskldjfaklsdjfjlasdfklçasdjfklçasjdfklçjasdfkljsklfj

asjfhaklçsdfhçaskldjfaklsdjfjlasdfklçasdjfklçasjdfklçjasdfkljsklfj

PROXIMA

[cyberalexxx]

paginação em um arquivo texto, fiz correndo entaum ele ta meio bagunçado da pra deixar ele mais dinamico e enxuto:

<%
if request("pagina") = "" then
   pagina = 1
else
   pagina = request("pagina")
end if

limite=1000 

Set FSO = Server.CreateObject("Scripting.FileSystemObject")
Set arquivo = FSO.OpenTextFile("c:\texto.txt",1)
quantidade=1
caracteres=0
do while arquivo.AtEndOfStream=false 
   linha = arquivo.Readline
   caracteres=caracteres+len(linha)
   if caracteres > limite then
      caracteres=0 
      quantidade=quantidade+1
   end if
loop
set arquivo = nothing

response.write "Numero de Paginas= " & quantidade & "<br>"

If CInt(pagina) > 1 Then
   Response.Write("<a href='" & Request.ServerVariables("SCRIPT_NAME") & "?pagina=" & pagina-1 & "'>Anterior</a>"&" "&"</b>")
Else
   Response.Write("Anterior ")
End If

inicio=Cint(pagina)-9
fim=Cint(pagina) + 9
for i = inicio to fim
    if i <> CInt(pagina) and i > 0 and i <= quantidade then
       response.write("<a href='" & Request.ServerVariables("SCRIPT_NAME") & "?pagina=" & i & "'>" & i & "</a> ")
     elseif i=Cint(pagina) then
       response.write " [<b>" & pagina & "</b>] "
     end if
next

If CInt(pagina) < quantidade Then
   Response.Write("<a href='" & Request.ServerVariables("SCRIPT_NAME") & "?pagina=" & pagina+1 & "'>Próxima</a></b></FONT></center>")
Else
   Response.Write("Próxima<br><br>")
End If

Set arquivo = FSO.OpenTextFile("c:\texto.txt",1)
quantidade=1
caracteres=0
do while arquivo.AtEndOfStream=false and quantidade <= Cint(pagina)
   linha = arquivo.Readline
   caracteres=caracteres+len(linha)
   if quantidade = CInt(pagina) then
      response.write linha
   end if
   if caracteres > limite then
      caracteres=0 
      quantidade=quantidade+1
   end if
loop
%>