Salut,
je veux faire une ultra simple galerie photo. Cetta galerie doit affichier les dix premières photos. Avec deux boutons précédent et suivant
voila ce que j'ai pour l'instant
http://www.independza.com/client/web_mailer/thumbs.asp
voila le code
merci a tous
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61 <% Set FSO = _ Server.CreateObject("Scripting.FileSystemObject") // le path long du dossier dir = Server.MapPath("uploads/") // un pointeur vers ce même dossier set foldPt = FSO.GetFolder(dir) // Lire la collection des fichiers de ce dossier set fc = foldPt.Files %> <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html xmlns="http://www.w3.org/1999/xhtml"> <head> <title>Ma galerie d'images !</title> <body> <% '----------- Affichage sur 3 colonnes Dim col '----------- Nombre de colonnes Col=0 Dim Lig Nmax = 10 ' nombre par page Ncur = 0 ' n° de la fiche courante '---------- Initialisation du tableau response.write("<table>") response.write("<tr><td valign=bottom align=center >") '---------- On génère le tableau sur 5 lignes for each f in fc '---------- cacule la taille de l'image strFileName = server.MapPath("uploads/"&f.name) set Img = Server.CreateObject ("ImgSize.Check") Img.FileName = strFileName '---------- Resize l'image if Cstr(Img.Height) > Cstr(Img.Width) then tempMultiplier = 100 / Cstr(Img.Height) Else tempMultiplier = 100 / Cstr(Img.Width) end if '---------- Contenu de la cellule %> <img src="uploads/<%=f.name%>" width=<%= Cstr(Img.Width) * tempMultiplier%> height=<%= Cstr(Img.Height) * tempMultiplier%> border=0> <% '---- On passe à la colonne suivante col=col+1 '---------- Dernière colonne atteinte if col=3 then '---------- On commence une nouvelle ligne response.write("</td></tr><tr><td valign=bottom align=center >") col=0 else response.write("</td><td valign=bottom align=center >") end if next response.write("</td></tr></table>") %> </body> </HTML>
Partager