Envoie et affichage de photos d'un folder en diaporama

**nboubeur** · 16/09/2008, 11h31

Voila aprés avoir galéré sur le net à chercher un code source pour l'upload et l'affichage d'images d'un folder ,j'ai enfin fini par trouver et adapter à ma sauce un truc sympathoche .
Bon niveau design c'est pas top , mais au moin ça fonctionne aprés pour le reste ...

Alors je vous met mon code en espérant eviter des prises de tete à certaines personnes

l'upload : envpics.asp

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
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<title>Envoyer des images vers la base</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body>
	<%
 
'------------------------------------------------------------
Public sub UploaderFichier(mySmartUpload, strAdresse)
'------------------------------------------------------------
'--- upload fichier a une adresse donne
'------------------------------------------------------------
 
	Dim Fichier
	Dim strAdr
 
	On error resume next'si erreur on continue quand meme
 
	'mySmartUpload.MaxFileSize = 100000' Taille maximale autorise : 100Ko
	'mySmartUpload.AllowedFilesList = "gif,jpg"' Upload autoris sur les gif et jpg uniquement
 
	mySmartUpload.Upload' Selectionne chaque fichier
 
	For each Fichier In mySmartUpload.files
		If not Fichier.IsMissing Then
 
			strAdr=strAdresse & Fichier.FileName
			Fichier.SaveAs(strAdr)' Upload du fichier
 
		End If
	Next
 
	if err.number =0 then 'test si erreur
		direc= "<img src="""& strAdr & """><br>"'si pas erreur alors on affichera l'image dl
	else
		direc="une erreur c produite : "& strAdr &"<br>"'si erreur alors on affiche l'erreur
	end if
 
	response.Write(direc)
 
End sub
	if request.queryString("Action")="Upload" then
		response.expires=0 'a je sais pas
		response.buffer=true'a je sais pas non plus
 
 
		On error resume next' Grer les erreur
		' Variables
 
		Dim mySmartUpload 'ce qui permet d'up le fichier
 
		Dim strAdr 'Adresse du fichier
 
		Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")' Cration de l'Objet
 
 
 
		strAdr=Server.MapPath("c:/base/picsbase")' changer pour installer ou vous le voulez
 
		'--- Upload les fichiers  l'adresse strAdr
		UploaderFichier mySmartUpload, strAdr
 
		set mySmartUpload=nothing'Si aucune erreur s'est produite on redirige vers uploadok.asp
 
 
	End if
	%>
	<form method="POST" action="envpics.asp?action=Upload" enctype="multipart/form-data">
		<input type="file" name="Fichier1" size="20"><br>
		<input type="submit" value="uploader" name="action">
	</form>
</body>
</html>

Affichage des photos en diaporama : dvvv.asp

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
62
63
64
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!----------------------------------------------------------------------------
 
----------------------------------------------------------------------------->
<%
	dim table, index
	' Changer le premier chiffre de table(X,2) pour le nombre de photos que vous voulez afficher
	redim table(6,2)
 
	' Entrer chaque photo dans la table.  Premirement le nom de la photo et deuximent un titre
	table(0,0) = "vvv1.jpg"
	table(0,1) = "111111"
	table(1,0) = "vvv2.jpg"
	table(1,1) = "222222"
	table(2,0) = "vvv3.jpg"
	table(2,1) = "333333"
    table(3,0) = "vvv4.jpg"
	table(3,1) = "4444444"
	table(4,0) = "vvv5.jpg"
	table(4,1) = "4444444"
	table(5,0) = "vvv6.jpg"
	table(5,1) = "4444444"
 
	if request.querystring("index") <> "" then
		index = int(request.querystring("index"))
	else
		index = 0
	end if
%>
<html>
<head>
<title>TITRE</title>
</head>
<body link="#000000" vlink="#000000" alink="#000000">
<center>
<table width="780">
	<tr>
		<td>
			<font face="Arial" size="2">
			<center>
			<font size="5" face="arial"<b>TITRE</font></b><br>
			<%if index <> 0 then%>
				<a href="../../picsbase/phcampings/dvvv.asp?index=<%=index-1%>"><-- Arrire</a> 
			<%end if%>
 
			<b>|</b>  
 
			<%if index < ubound(table)-1 then%>
				<a href="../../picsbase/phcampings/dvvv.asp?index=<%=index+1%>">Avant --></a>
			<%end if%>
		</td>
	</tr>
	<tr>
		<td>
			<center>
			<font size="4" face="arial">
			<%=table(index,1)%>
			</font>
			<center><img src="/picsbase/phcampings/<%=table(index,0)%>">
		</td>
	</tr>
</table>
</body>
</html>

par contre ci vous avez une idée pour l 'améliorer je suis prenneur

Du genre la création un folder à chaque upload pour ne pas melanger les album et l'affichage en mini en dessous du diaporama cliquable en fonction de l'album ( folder )

**vva** · 16/09/2008, 12h56

bonjour,

j'ai cette fonction qui me permets de parcourir un répertoire et ses sous répertoires pour générer des liens sur les documents tu peux aisément l'adapter en remplaçant le nom du lien par une balise IMG que tu dimensionenes à ta guise

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
 
<%
Function DrawTree() 
Dim FSO, Folder, SubFolder, File, sRoot, i
sRoot = Server.MapPath("../../modules/urgent/" & session("scodlg"))
 
Set FSO = Server.CreateObject("Scripting.FileSystemObject") 
set Folder = FSO.getFolder(sRoot) 
 
i = 1     
for each SubFolder in Folder.SubFolders
	If left(SubFolder.Name, 1) = "_" Then 
		Response.Write "" 
	else
		' Afficher le dossier courant dans l'arbre 
		Response.Write"<img src='../../commun/img/list_on.gif' border='0'>&nbsp;"
 
		Response.Write "<a href=" & chr(34) & "javascript:show_layer('n" & i & "');" & chr(34) & " name='" & i + 1000 & "'>" & SubFolder.Name & "</a>"
		Response.Write "<div id='n" & i & "' style='DISPLAY: none'>"
 
		' Afficher tout les fichers contenu dans le répertoire courant
		For Each File in SubFolder.Files 
			Response.Write"&nbsp;&nbsp;&nbsp;<img src='../../commun/img/list_run.gif' border='0'>&nbsp;"
			Response.Write "<i><a href='../../modules/urgent/" & session("scodlg") & "/" & SubFolder.Name & "/" & File.Name & "' target='main'>"& File.Name & "</a> - " & left(File.DateLastModified,10) & "</i><br>"  
		Next 
	End If
 
	If left(SubFolder.Name, 1) <> "_" Then 
		response.write "</div><br><br>"
		i = i + 1
	end if
Next 
 
set sRoot = nothing
set File = nothing
set SubFolder = nothing
set Folder = Nothing
Set FSO = Nothing
End Function
 
' Appel de la fonction d'affichage de structure
Response.Write "<h3>Dernière minute !</h3>"
Call DrawTree()