Paginação X FSO

[Denise 0]

Estou tentando paginar uma relação de imagens cujos nomes li através do FSO.....

Até encontrei um na internet, Desenvolvido por Marcio Lima (Guardião), no site http://www.asp4developers.com.br/index.asp...do=ver&id=l0526, mas eu gostaria que fossem exibidos os números de todas as páginas, tipo

 

[1] 2 3 4 5 6 7

 

e não

 

anterior

próxima

 

como deste código, já tentei mexer, mudar, mas só dá erro...

Se alguém puder me ajudar, ou dar uma luz, agradeço.

Denise

 

ah, o código é o seguinte:

 

<%@LANGUAGE="VBSCRIPT"%>

<% Option Explicit

 

' Desenvolvido por Marcio Lima (Guardião)

' Site http://www.asp4developers.com.br/index.asp...do=ver&id=l0526

 

 

Response.Expires = 0 

Response.Buffer  = True

 

'PAGINAÇÃO DE ARQUIVOS USANDO ARRAY x FSO

Dim iLoop, limite, pagina, totalarq, i

Dim vlMaximo, vlMinimo, anterior

Dim ObjFso, ObjArq, ObjPasta, ObjSubPasta

 

Set ObjFso = Server.CreateObject("Scripting.FileSystemObject")

Set ObjPasta = ObjFso.GetFolder(server.MapPath("/domingo10/zhl/cmdz/xkvh/mtbh"))

 

limite  = 10      ' limite de registros por página

totalarq = ObjPasta.files.count  ' total de arquivos encontrados

 

ReDim arrAvatar((totalarq-1))

Dim y

y = 0

 

' guardamos cada arquivo dentro de um array

For Each ObjArq in ObjPasta.Files 

arrAvatar(y) = objArq.Name

y = y + 1

Next

 

Set ObjPasta = Nothing

Set ObjArq = Nothing

Set ObjFso = Nothing

 

pagina = Request("pag")

IF pagina = "" Then

IF limite < UBound(arrAvatar) Then

  vlMinimo = 0

  vlMaximo = (limite-1)

Else

  vlMinimo = LBound(arrAvatar)

  vlMaximo = UBound(arrAvatar)

End IF

pagina = 1

anterior = ""

Else

vlMinimo = (pagina*(limite-1))+(pagina)

vlMaximo = ((limite-1)*(pagina+1))+((pagina)*1)

IF vlMaximo > UBound(arrAvatar) Then vlMaximo = UBound(arrAvatar)

pagina = pagina + 1

anterior = pagina - 2

IF anterior = 0 Then anterior = ""

End IF

 

IF vlMinimo = 0 Then

IF Not (vlMaximo >= (y-1)) Then

  response.write "<a href='pag.asp?pag="& pagina &"'>próxima</a><br>"

End IF

Else

IF Not (vlMaximo >= (y-1)) Then

  response.write "<a href='pag.asp?pag="& pagina &"'>próxima</a><br>"

End IF

response.write "<a href='pag.asp?pag="& anterior &"'>anterior</a>"

End IF

 

response.write "<br><br>"

For i = vlMinimo to vlMaximo

response.write (i+1) &") "

response.write arrAvatar(i) &"<br>"

Next

%>

[Denise 0]

Bom dia,Hoje consegui desenvolver o código que eu queria, e como isto só foi possível graças a algumas perguntas que li aqui no fórum, resolvi mostrar o código para que, se alguém tiver uma dúvida parecida, possa ter uma base que o auxilie.Abçs a todos

<%Response.Expires = 0  Response.Buffer  = True Dim ObjFso, ObjArq, ObjPastaDim arrImage(15,200) ' criamos uma matriz 'Primeiro criamos o objeto FSO para acessar o diretórioSet ObjFso = Server.CreateObject("Scripting.FileSystemObject")'Agora definimos o caminho virtual do diretório onde estão as imagensSet ObjPasta = ObjFso.GetFolder(server.MapPath("/domingo10/zhl/cmdz/xkvh/mtbh"))totalarq = ObjPasta.files.count  ' total de arquivos encontrados'Definimos um contador para o número de imagenscont=0'Definimos um contador para o número de páginaspag=1'Criamos um loop para ler os arquivos do diretório um a umFor Each ObjArq in ObjPasta.Files  cont=cont+1 'Criamos uma matriz bidimensional que guardará o número da página e da imagem arrImage(pag,cont) = objArq.Name  'delimitamos o número de imagens em 15  if cont=15 then  pag=pag+1  cont=0  end ifnext'Fechamos todos os objetos que criamosSet ObjFso=NothingSet ObjArq=NothingSet ObjPasta=Nothing'estabelecemos o número máximo de imagens por páginamaxRecords=15'calculamos o número de páginasMaxPages = Round(totalarq/maxRecords)'pegamos o número da página que o usuário solicitouIf request("pagi")="" Then'caso o número da página seja vazio estabelecemos que a página será a primeirapagi=1Elsepagi=request("pagi")End If'criamos um loop para exibir o nome das imagens  for j=1 to 15  Response.Write "imagem"&j&")"& "da página"&pagi & "="&(arrImage(pagi,j))&"<br>" next'criamos um loop para os links das páginascounter = 1Do While counter <= MaxPagesiStart = (((Counter - 1 ) * maxRecords ) + 1)                    If cint(counter) = cint(pagi) Then    ref = ref & "<STRONG>Página " & counter & "</STRONG> | "  Else  ref = ref & " <a href=pag9.asp?pagi=" & counter & ">Página " & _        Counter & "</a>"  If counter < MaxPages Then        ref = ref & " | "  End If  End If  counter = counter + 1Loopresponse.write ref%>