8 replies to this topic

[Luis Otávio]

opa, será que poderiam me dar uma ajuda nesta lójica q num to conseguindo fazer...

tb nem sei se pode ser feito.... hehe

mas ai vai

<%
if pagina = pagina then
        <%FOR X=0 TO (y/limite)%>
	<A HREF="listar.asp?pag=<%=X%>"><%=X+1%></A>
	<%NEXT%>
	else
     <%FOR X=0 TO (y/limite)%>
	<b><A HREF="listar.asp?pag=<%=X%>"><%=X+1%></A></b>
	<%NEXT%>
	End IF
%>

queria q se pagina fosse = pagina rodasse um código, mas se for diferente ele rodasse outro... mas assim num funfa... como ficaria esta lógica? alguém sabe?

[Info_Tec]

Cara, If Pagina = Pagina ? Dessa forma sempre será atendida a condição, explique melhor o que vc deseja.

[Luis Otávio]

hehe, é q é para o sistema de paginação... queria q a página q estivesse sendo mostrada ficasse em negrito entende 12345 dai 3 é a pagina q o cara tá...



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

mas acho q esta num seria a forma certa de se fazer né... hehe... vou dar mais uma pensada aqui... mas qualquer ajuda seria bem vinda...

Edição feita por: iporto, 02/07/2004, 13:06.

[Info_Tec]

Use If Pagina = RS.AbsolutePage Then coloque o negrito End If, na rotina para escrever os numeros que vc esteja usando.

[Luis Otávio]

mas to usando o FSO para a paginação....
este RS.AbsolutePage funciona com ele?

muito obrigado pela atenção...


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

é, o FSO num tem suporte para este AbsolutePage vopu tentar mais outras coisas... e
to ai a qualquer resposta...

Edição feita por: iporto, 02/07/2004, 13:22.

[Info_Tec]

FSO? Explique como vc está fazendo!

[Luis Otávio]

hehe, acho q compliquei mais ainda, mas então vou colocar o código aqui que estou usando, ele tá meio grandin, mas pode ser q assim eu consiga me expressar melhor... ai vai...

<%
'Sistema de ThumbNails usando FSO
Dim strPicArray
Dim iLoop, limite, pagina, totalarq, i
Dim vlMaximo, vlMinimo, anterior
Dim ObjFso, ObjArq, ObjPasta, ObjSubPasta

'Número de colunas
picsInRow = 3
' Pasta de onde buscará as fotos
thumbFilePath = "img/"
' Cria o link para as fotos
imageFilePath = "img/"
' Pasta de onde buscará as fotos
strPhysicalPath="img/"

Set fso = CreateObject("Scripting.FileSystemObject") 
set mainfolder = Fso.GetFolder(Server.MapPath(strPhysicalPath))
Set ObjPasta = Fso.GetFolder(Server.MapPath(strPhysicalPath))
Set filecollection = mainfolder.Files

limite  = 9       ' limite de registros por página
totalarq = ObjPasta.files.count   ' total de arquivos encontrados

 ReDim thumb((totalarq-1))
 Dim y
 y = 0

 ' guardamos cada arquivo dentro de um array
 For Each ObjArq in ObjPasta.Files  
  thumb(y) = objArq.Name
  y = y + 1 
 Next
   
pagina = Request("pag")
 IF pagina = "" Then
  IF limite < UBound(thumb) Then
   vlMinimo = 0
   vlMaximo = (limite-1)
  Else
   vlMinimo = LBound(thumb)
   vlMaximo = UBound(thumb)
  End IF
  pagina = 1
  anterior = ""
 Else
  vlMinimo = (pagina*(limite-1))+(pagina)
  vlMaximo = ((limite-1)*(pagina+1))+((pagina)*1)
  IF vlMaximo > UBound(thumb) Then vlMaximo = UBound(thumb)
  pagina = pagina + 1
  anterior = pagina - 2
  IF anterior = 0 Then anterior = ""
 End IF

Response.Write "<div align='center'>"
Response.Write "<center>"
response.write "<table border='0' cellpadding='4'>"

intTotPics = 0
For Each file In filecollection
      intTotPics = intTotPics + 1
      
      Next
      Redim strPicArray(2,intTotPics)

	x = 0
	For Each file in filecollection
	strPicArray(0,x) = file.Name
  	x = x + 1
	Next
%>

<%
' Esta linha lê a pasta e coloca as imagens dentro da tabela
      For x = vlMinimo to vlMaximo
   Response.Write "<td align='center'>"
      Response.Write "<a href='" & imageFilePath & strPicArray(0,x) & "'><img src='" & thumbFilePath & strPicArray(0,x) & "' width='75' height='60' border='0'></a>"
      Response.Write "<br></td>"
          intPicNo = intPicNo + 1
   If intPicNo=picsInRow Then
    Response.write "</tr><tr>"
    intPicNo = 0
          End If
     Next
%>

<%
Response.Write "</tr></table>"
Response.Write "</div></center>"
Response.Write "<font size='1' face='verdana'><center> Número total de fotos<br>" & intTotPics & "</center></font>"
%>
<%
 IF vlMinimo = 0 Then
  IF Not (vlMaximo >= (y-1)) Then
   response.write "<font size='1' face='verdana'><center><a href='listar.asp?pag="& pagina &"'>próxima</a>-</center></font>"
  End IF
 Else
  IF Not (vlMaximo >= (y-1)) Then
   response.write "<font size='1' face='verdana'><center><a href='listar.asp?pag="& pagina &"'>Próxima</a>-</center></font>"
  End IF
  response.write "<td><font size='1' face='verdana'><center><a href='listar.asp?pag="& anterior &"'>anterior</a></center></font></td>"
 End IF
%>
<font size="1" face="verdana"><center>
    <%FOR X=0 TO (y/limite)%>
	<A HREF="listar.asp?pag=<%=X%>"><%=X+1%></A>
	<%NEXT%>
</center>
</font>

será q descompliquei ou compliquei;... hehe

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

e se quiserem ver o código funcionando o link é este: http://www.iporto.co...star/listar.asp

Edição feita por: iporto, 02/07/2004, 13:32.

[Info_Tec]

Agora melhorou! Tava pensando que era paginação de dados em BD.
Aqui:

  <%FOR X=0 TO (y/limite)%>
<A HREF="listar.asp?pag=<%=X%>"><%=X+1%></A>
<%NEXT%>

Vc está fazendo a listagem das páginas correto?
Então vc fará assim:

  <%FOR X=0 TO (y/limite)
 If Pagina = x Then%>
X
<% Else%>
<A HREF="listar.asp?pag=<%=X+1%>"><%=X+1%></A>
<% End If
NEXT%>

[Luis Otávio]

ai Info_tec funcionou que é um aço... muito obrigado pela atenção e pela paciência que tivestes comigo