Afficher les images d'un répertoire

**cyrill.gremaud** · 07/02/2006, 15h47

salut tout le monde ! je sais comment afficher les imformation de tous les fichier d'un repertoire mais jaimerai simplement afficher toutes les images d'un répertoire... est ce possible ?

**cyrill.gremaud** · 08/02/2006, 07h47

??? personne qui sais sa ???

**cyrill.gremaud** · 08/02/2006, 08h43

pour le moment jai sa mais sa maffiche l'icone avec la croix....

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
set objFso = Server.CreateObject("Scripting.FileSystemObject")
		dir = Server.MapPath("pictures/school/")
		set folderPoint = objFso.GetFolder(dir)
		set lire = folderPoint.files
 
		for each pictures in lire %>
			<li>Nom : <% response.Write(pictures.name) %>
			<img src="<% response.Write(pictures) %>" />
	<br><br>
		<% next
 
mon répertoire est bien défini parce le script m'affiche le nom des image parfaitement.... 
 
merci de maider

**pc75** · 08/02/2006, 09h03

Bonjour,

C'est quoi le / à la fin ?

As-tu essayé de mettre le chemin en dur ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
<img src="pictures/school/MonImage.gif">

**cyrill.gremaud** · 08/02/2006, 09h09

pour le <img>monimage /> cest avec Dreamveawer 8... sa revient a la meme chose que de faire <img>monimage</img> ...

ensuite si je met le lien en dure il maffiche limage sans problème... cest pour sa que je ne comprend pas...

**cyrill.gremaud** · 08/02/2006, 12h32

???

**cyrill.gremaud** · 08/02/2006, 12h36

en faite kan je fais le chemin brut de l'image il me l'a met pas...

**franculo_caoulene** · 08/02/2006, 12h37

On ne connaît pas ton problème!

**cyrill.gremaud** · 08/02/2006, 12h43

en faite kan je fais

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

<% response.Write(pictures) %>

, sa me met l'url entiere depuis le c ... style C:\web\apprent\cyrill\greenback_asp\pictures\school\home.JPG

et si je fais

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

<img src="C:\web\apprent\cyrill\greenback_asp\pictures\school\home.JPG " />

sa ne m'affiche pas la photo non plus...

ensuite jai essayer de faire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

<img src=<% =pictures %> />

mais sa ne marche pas non plus...

pouvez vous me dire un moyen simple dafficher toutes les photo d'un dossier qui se trouve sur le server ??? merci

**franculo_caoulene** · 08/02/2006, 12h53

Il faut que tu remplace les liens physique par des liens relatifs. C'est à dire par rapport à la place de ton script dans le site.
Remplacer :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

C:\web\apprent\cyrill\greenback_asp\pictures\school\home.JPG

par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

http://monsite/pictures/school/home.JPG

ou

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

pictures/school/home.JPG

ou encore

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

../pictures/school/home.JPG

Suivant le cas. Comme une simple image quoi.

**cyrill.gremaud** · 08/02/2006, 13h02

oui mais si tu regarde mon premier post ou ya mon code pour afficher, tu comprendra que sa ne marche pas.... en tout cas je ne sais pas comment

**franculo_caoulene** · 08/02/2006, 14h07

Ca depend de ton arborescence. je pense que tu ne pointes pas au bon endroit, tout simplement.

**cyrill.gremaud** · 08/02/2006, 15h58

bon jai trouver qqch qui fonctionne plus ou moin...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
set objFso = Server.CreateObject("Scripting.FileSystemObject")
		dir = Server.MapPath("pictures/school/")
		set folderPoint = objFso.GetFolder(dir)
		set lire = folderPoint.files
 
		for each pictures in lire %>
			<img src="pictures/school/<% =pictures.name %>" />
			<br>
	<%  next

mais bon cest encore loin detre optimal

**Immobilis** · 08/02/2006, 16h34

J'te file ça en bloc.

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
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<html>
<head>
<title>Document sans titre</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link href="../style.css" rel="stylesheet" type="text/css">
</head>
 
<body>
<%
Set FSO = Server.CreateObject("Scripting.FileSystemObject") 
IF request.QueryString = "" THEN
	session("dir") = "D:" 
ELSE
	session("dir") = session("dir") & "\" & request.QueryString("folder")
END IF
response.Write(session("dir"))
set foldPt = FSO.GetFolder(session("dir")) 
set fd = foldPt.SubFolders
set fc = foldPt.Files %> 
 
<table width="100%" border="0">
  <tr> 
    <th><b>Nom</b></th>
    <th><b>Image</b></th>
    <th><b>Taille</b></th>
    <th><b>Type</b></th>
    <th><b>Date de création</b></th>
  </tr>
  <%for each f in fd%>
  <tr class="medium"> 
    <td>- <a href="listefichier.asp?folder=<%=f.name%>"><%=f.name%></a></td>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
    <td><%=f.dateCreated%></td>
  </tr>
  <%next%>
  <%for each f in fc%>
  <tr> 
    <td>- <%=f.name%></td>
    <td>
	<%
	IF UCASE(f.type)= "JPEG IMAGE" THEN
		response.Write("<img src='" & session("dir") & "\" & f.name & "' height = 100 border = 0 ")
		response.Write("onClick=" & chr(34) & "javascript:window.open('listefichierdetail.asp?f=" & f.name & "',null,status=1,toolbar=0,menubar=0,location=0);" & chr(34))
		response.Write(">")
	END IF
	%>&nbsp;
	</td>
    <td><%=f.size%> octets</td>
    <td><%=f.Type%></td>
    <td><%=f.dateCreated%></td>
  </tr>
  <%next%>
</table>
</body>
</html>

A+