Paginazione FSO

frankiedeguello · 2006-08-05T02:17:50+0200

Ciao a tutti!

Sapete se esiste un tutorial per imparare la paginazione di files con FileSystemObject?
Ho tentato varie strade ma non riesco a visualizzare correttamente tutti i file contenuti in una cartella...:incazz2:

Thanks!

EDIT: mi rendo conto che alle 2 di venerdì forse chiedo troppo!

daviduccio · 2006-08-05T12:04:29+0200

<%
percorso="files/"
Set file1 = CreateObject("Scripting.FileSystemObject")
Set file2 = file1.GetFolder(server.MapPath(percorso))
Set file3 = file2.Files
For Each file in file3

response.write(file.name)

Next

%>

frankiedeguello · 2006-08-05T12:48:44+0200

Ciao, grazie per la risposta!

Mi sono spiegato male, vorrei consentire la visualizzazione di (per esempio) sei file per pagina, quindi ho provato:

Codice:

contentpath = "public/immaginiUpload/thumb/"
		
perpage = "16"
		
PageNum = request.querystring("page")
blnAtEnd=True
blnAtBegin=False
If PageNum="" or int(PageNum)=1 Then
blnAtBegin=True
PageNum=1
End If
IgnoreCount = (PageNum -1) * perpage

strPath = Server.MapPath("public\immaginiUpload\thumb") & "\"
Dim objFSO, objFolder, objFile
Set objFSO = server.createobject("scripting.filesystemobject")
Set objFolder = objFSO.getfolder(strpath)

For Each objFile in objFolder.Files
   counter = counter + 1
   if ((right(objFile.name, 4) = ".jpg" and ignorecount < counter) or (right(objFile.name, 4) = ".JPG" and ignorecount < counter)) then
	
   Response.write "visualizzo l'immagine"  
   end if
	
   If counter > ignorecount + perpage then
   blnAtEnd=False
Exit For
   End if
Next

Poi a fondo pagina ho inserito

Codice:

<% 
  	If blnAtBegin=False Then
	response.write "<br><a href='PROVAIMAGE.asp?page=" & pagenum - 1 & "'>Previous Page</a>"
	End If
	If blnaAtEnd=False Then
	response.write "<br><a href='PROVAIMAGE.asp?page=" & pagenum + 1 & "'>Next Page</a>"
	End If
%>

Solo che ho tre problemi:
-la variabile perpage non visualizza bene i files per pagina, infatti se metto uguale a 16 ne vengono visualizzati 17;

-il link Next page compare, ma nella seconda pagina ricompare anche l'ultima foto della prima pagina;

-il suddetto link Next page non smette di comparire anche se i files sono finiti, infatti se ci clicco anche 3000 volte vado avanti di una pagina.

daviduccio · 2006-08-07T00:20:23+0200

<%
perpag=3
percorso="e-commerce3.0/images/"

offset=request.QueryString("offset")
if offset="" then
offset=1
end if

tot=0
cicli=0
maxtemp=(perpag*offset)-perpag
perpagtemp=perpag*offset

Set file1 = CreateObject("Scripting.FileSystemObject")
Set file2 = file1.GetFolder(server.MapPath(percorso))
Set file3 = file2.Files

'conteggio totali
For Each file in file3
tot=tot+1
Next

For Each file in file3

if cicli >= maxtemp and cicli < perpagtemp then
response.write(file.name&"<br>")
end if

cicli=cicli+1

Next

avanti=offset+1
indietro=offset-1

if indietro < 1 then
indietro=1
end if

%>
<body>
<%if offset>1 then%><a href="?offset=<%=indietro%>">Indietro</a><%end if%><%if (offset*perpag) < tot then%> <a href="?offset=<%=avanti%>">Avanti</a><%end if%>
</body>

Ispirazione notturna fu, capisti??

frankiedeguello · 2006-08-07T09:53:26+0200

Grazieeeeeeeee!
Funzia a perfezione....:quote:

mic3000 · 10 Feb 2008

ciao ragazzi scusate se riporto su questo post..
ho provato la paginazione e funziona a perfezione..ma una domanda
come fare per contare il numero di file e visualizzare quindi il classico scorrimento tra le pagine?
1<2> >>...

Cerca

Cerca

Paginazione FSO

frankiedeguello

Utente Attivo

daviduccio

Moderatore

frankiedeguello

Utente Attivo

daviduccio

Moderatore

frankiedeguello

Utente Attivo

mic3000

Nuovo Utente

Discussioni simili