<%Option Explicit%> StiloTuningClub > The web site of Italian Fiat Stilo Fans...
Click on tihs image to connect to Stilo Alliance The 1st European Community about Fiat Stilo > www.stilo.org In questa finestra è attiva un'Applet Java...

 posizione:  home > stiloclub > iniziative > 1° raduno > Fotografie

<% page = Request("page") if (IsEmpty(page)) then page = 1 else page = CInt(page) 'Le variabili vanno esplicitamente convertite come interi, end if 'altrimenti creano dei problemi nelle opearzioni matematiche dim strConn, objConn, rs, page Set objConn = Server.CreateObject ("ADODB.Connection") strConn = "driver={Microsoft Access Driver (*.mdb)}; " strConn = strConn & " DBQ=" & Server.MapPath ("mdb-database\ImageInformation.mdb") strConn = strConn & ";pwd=" objConn.Open strConn set rs = Server.CreateObject ("ADODB.Recordset") rs.Open "SELECT * FROM ImageInfo WHERE SetImmagini='STC Raduno Nazionale 1'", objConn, 3,3 call showThumb (CInt(rs(5)), page, rs(2), rs(3), rs(4)) rs.Close set rs = nothing objConn.Close set objConn = nothing %>
^top

Copyright © 2003-2004  Tutti i diritti riservati. Tutti i marchi che appaiono in questa e nelle prossime pagine appartengono ai legittimi proprietari.
E' vietata la riproduzione anche parziale di immagini, files e informazioni presenti su questo sito. Ogni utilizzo, riutilizzo, trasmissione e/o copia
degli stessi deve essere previamente autorizzata.
<% 'Crea e mostra la parte centrale della pagina, con tutte le miniature delle foto 'numImages - Numero totale di immagini del set 'page - Pagina da visualizzare 'thumbPath - Path di residenza delle miniature 'fullSizePath - Path di residenza delle immagini ad alta risoluzione 'filePrefix - Prefisso dei nomi dei file di immagini Sub showThumb (numImages, page, thumbPath, fullSizePath, filePrefix) dim row 'Numero di righe da creare. dim column 'Numero di colonne da creare dim imgPerPage ' Numero di immagini per pagina dim offSet 'Numero di immagini già visualizzate dim numPages 'Numero di pagine totali, necessarie per visualizzare tutte le immagini 'Metto 35 immagini per pagina. '7 per riga, su 5 righe row = 5 'Valore di default column = 7 'Valore di default imgPerPage = row*column offSet = (page-1)*imgPerPage numPages = numImages \ (imgPerPage) if (numImages Mod imgPerPage) then numPages = numPages + 1 'Arrotonda all'intero successivo if (page < 1 or page > numPages) then Response.Redirect ("visualizza_immagini.asp?page=1") 'Controllo se ho più righe di quelle necessarie ed eventualmente le diminuisco. if (offSet + imgPerPage) > numImages then row = (numImages-offSet)\column 'Numero di righe da creare (attenzione all'operatore di divisione "\" e non "/") if ((numImages-offSet) Mod column) then row = row +1 'Arrotonda all'intero successivo if (row = 0) then row = 1 'Almeno una riga deve essere disegnata end if %>
<% dim index, x, img 'Dispongo tutte le immagini for x = 0 to row-1 Response.Write ("
" & vbNewLine) Response.Write (" " & vbNewLine) Response.Write (" " & vbNewLine) for img = 1 to column index = (offSet + (x*column)) + img Response.Write (" " & vbNewLine) next Response.Write (" " & vbNewLine & vbNewLine) if not (x = row-1) then 'Stampa il delimitatore da una riga alla successiva Response.Write (" " & vbNewLine) Response.Write (" " & vbNewLine) Response.Write (" " & vbNewLine) end if Response.Write ("
" & vbNewLine) if not (index > numImages) then Response.Write (" " & vbNewLine) Response.Write (" " & vbNewLine) Response.Write (" " & vbNewLine) end if Response.Write ("
" & vbNewLine) Response.Write ("
" & vbNewLine) Response.Write ("
" & vbNewLine) Response.Write ("
" & vbNewLine & vbNewLine) next %>
<% 'Prima Pagina Response.Write (" " & vbNewLine) 'Indietro Response.Write (" " & vbNewLine) else Response.Write (page & """><
Indietro" & vbNewLine) end if 'Intestazione Response.Write (" " & vbNewLine) 'Avanti Response.Write (" " & vbNewLine) else Response.Write (page & """>>
Avanti" & vbNewLine) end if 'Ultima Pagina Response.Write (" " & vbNewLine) Response.Write (" " & vbNewLine) Response.Write (" " & vbNewLine) dim pageGroup 'Indica in che gruppo di pagine ci si trova (0 - pg.1-10, 1 - pg.11-20, 2 - pg.21-30) pageGroup = (page \ 10) - 1 if (page Mod 10) then pageGroup = pageGroup + 1 'Arrotonda all'intero successivo dim upperBound 'Indice a cui fermarsi per numerare le pagine presenti nel gruppo attuale upperBound = numPages - (pageGroup*10) if (upperBound > 10) then upperBound = 10 end if dim pageToPrint for index = 1 to upperBound pageToPrint = (pageGroup * 10) + index if (pageToPrint = page) then Response.Write (" " & vbNewLine) else Response.Write (" " & vbNewLine) end if next %>
<<
Prima Pagina		<
Indietro		= 10) then Response.Write ("10") else Response.Write (numPages) end if Response.Write (""">Pagina " & page & " di " & numPages & ">
Avanti		>>
Ultima Pagina
" & pageToPrint & "" & pageToPrint & "
<% End Sub 'Incrementa l'indice del file contenente l'immagine. Non posso usare una variabile semplice, perchè i file sono indicizzati 'come 0001, 0002, 0003, ..., xxxx e non come 1, 2, 3, ..., x Function elaborateIndex (index) if (index < 10) then elaborateIndex = "000" & index elseif (index < 100) then elaborateIndex = "00" & index elseif (index < 1000) then elaborateIndex = "0" & index else elaborateIndex = CStr(index) end if End Function %>