CodeS-SourceS est hébergé par Frontier.fr

Ce site au démarrage

begin process at 2010 02 10 17:40:39

Accueil Codes Tutoriels Forum Livres Emploi Services Connexion

Trouver un code source :

dans

[ Dernières recherches ]

Accueil >

ASP.Net

> DIAPORAMA POUR PHOTOS ET ANIMATIONS FLASH

DIAPORAMA POUR PHOTOS ET ANIMATIONS FLASH

Information sur la source

Note :

6,00 / 10

Catégorie :ASP.Net Classé sous :diaporama, photo, animation, flash, gallerie Niveau :Débutant Date de création :11/11/2005 Vu :63 590

Auteur : trabi11fr

Ecrire un message privé

Site perso

Commentaire sur cette source (6)

Ajouter un commentaire et/ou une note

Description

Cliquez pour voir la capture en taille normale

Ce code permet d'afficher, dans 3 frames:
- un titre pour le diaporama
- un menu soit sous forme d'imagettes, soit sous forme de nom de fichiers
- la photo à visionner.
On peut le mettre soit directement dans le dossier où se trouvent les photos, soit à la racine, auquel cas il scanne tout le site et affiche les sous-répertoires. En cliquant sur les sous-répertoires on a accés aux photos qu'ils contiennent. On peut revenir en arrière.
Il est entiérement paramétrable. On peut choisir le type d'image à afficher.
On peut faire apparaitre le titre et/ou un texte sous la photo.
Voir aussi les commentaires dans le script.
PS: j'ai fait le même permettant d'aficher des animations FLASH à la place des photos.

Source

<%@LANGUAGE="VBSCRIPT"%>
<%response.addheader "cache-control","private"%>
<%response.addheader "pragma","no-cache"%>
<%
response.expires=-1
response.buffer=true
session.lcid=1036
' HAUT DE PAGE COMMUN
%>
<HTML>
<HEAD>
<TITLE>Album de photos</TITLE>
<style type="text/css">
BODY
{
scrollbar-base-color: #B06818;
scrollbar-track-color:#D5B783;
}
</style>
</HEAD><%
' GÉNÉRATION DU FRAMESET
if request("frame")="" then %>
<frameset rows="100,*" frameborder="NO" border="0" framespacing="0">
<frame name="topFrame" src="../04_haut_page_2.asp" scrolling="NO" noresize>
<frameset cols="137,*" frameborder="NO" border="0" framespacing="0">
<FRAME SRC="<%=request.serverVariables("SCRIPT_NAME")%>?frame=menu" NAME="menu" scrolling="YES">
<FRAME SRC="<%=request.serverVariables("SCRIPT_NAME")%>?frame=image" NAME="image">
</frameset>
</frameset>
<noframes><body bgcolor="#ffff99">
<P align="center">Votre navigateur ne supporte pas les frames<BR>Utilisez de préférence IE 5.5 (ou supérieur)<BR>ou Netscape 7.0</P>
</body></noframes>
<% ' FRAME MENU
elseif request("frame")="menu" then %>
<BODY background="../img/FilmUnit.gif"><center>
<% Set FSO = Server.CreateObject("Scripting.FileSystemObject")
' LIEN VERS ACCUEIL. Adaptez le chemin selon vos besoins.
response.write "<A href='../default_2.asp' style='color:#00CCCC' target='_top'>Accueil</A><BR><HR>"
' FIN LIEN VERS ACCUEIL
' Dossier en cours
curdir = request("dir")
if curdir="" then curdir = "."
'response.write "<b>Dossier "&curdir&"</b><br><br>"&VbCrLf
if curdir<>"." then
' lien vers le dossier parent
tmp = instrrev(curdir,"/")-1
response.write "<A href='?frame=menu&dir="&left(curdir,tmp)_
&"' target=menu><B>Liste</B></A><br><B>"&mid(curdir,3,len(curdir))&"</B><BR>"&VbCrLf
end if
dir = Server.MapPath(curdir)
set foldPt = FSO.GetFolder(dir)
' LISTE DES DOSSIERS COURANTS
dim fc,f
set fc = foldPt.SubFolders
' on scanne le répertoire
for each f in fc
p = f.name
' lien vers le dossier
response.write "<A href='?frame=menu&dir="&curdir&"/"&p&"' target=menu><B>"&p&"</B></A><br><br>"&VbCrLf
next
' LISTE DES IMAGES DU DOSSIER COURANT
set fc = foldPt.Files
' on scanne le répertoire
for each f in fc
p = f.name
' si c'est une extension d'image
ext = lcase(mid(p, instrrev(p, ".") + 1))
'ici on choisi l'extension
if ext="jpg" OR ext="jpeg" then
' lien vers l'image
response.write "<br><A href='?frame=image&dir="&curdir&"&image="&p&"' target=image><img src='"&curdir&"/"&p&"' width=80 border=0></A><br>"&VbCrLf
end if
next
' MISE A JOUR DE LA FRAME IMAGE
%><script>
top.image.location="?frame=image&dir=<%=curdir%>"
</script>
</center></BODY>
<% ' FRAME IMAGE
elseif request("frame")="image" then %>
<BODY bgcolor="#ffff99">
<DIV style="text-align:center;">
<% ' AFFICHAGE DE L'IMAGE
if request("image")<>"" then %>
<img src="<%=request("dir")&"/"&request("image")%>">
<!--si vous voulez que votre photo soit ajustée à l'écran remplacez la ligne ci dessus par celle-ci et modifiez le pourcentage en fonction de vos besoins
<img src="<%=request("dir")&"/"&request("image")%>" heigth="90%">
-->
<!--les lignes suivantes permettent d'afficher eventuellemnt le titre sous la photo
<BR>
<FONT size="4"><%=mid(request("image"),1,len(request("image"))-4)%></FONT>
-->
<%
'les lignes suivantes permettent d'afficher un texte sous la photo
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
kom = mid(request("image"),1,len(request("image"))-4)&".txt"
chemin = Server.MapPath(request("dir")&"/"&kom)
If FSO.FileExists(chemin) Then
set inF = FSO.OpenTextFile(chemin,1,false)
%>
<BR>
<B>
<% = inF.readAll %>
</B>
<%
inF.close
end if
else
'si pas de photo à afficher, on affiche un texte
%>
<B>
<FONT size="5"></FONT>
</B>
<% end if %>
</DIV>
</BODY>
<% end if
' BAS DE PAGE COMMUN
%>
</HTML>

<%@LANGUAGE="VBSCRIPT"%>
<%response.addheader "cache-control","private"%>
<%response.addheader "pragma","no-cache"%>
<%
response.expires=-1
response.buffer=true
session.lcid=1036
' HAUT DE PAGE COMMUN
%>
<HTML>
<HEAD>
   <TITLE>Album de photos</TITLE>
   
<style type="text/css">
   BODY
   {
	scrollbar-base-color: #B06818;
    	scrollbar-track-color:#D5B783;
   }
</style>
</HEAD><%

' GÉNÉRATION DU FRAMESET
if request("frame")="" then %>

<frameset rows="100,*" frameborder="NO" border="0" framespacing="0"> 
  <frame name="topFrame" src="../04_haut_page_2.asp" scrolling="NO" noresize>
  <frameset cols="137,*" frameborder="NO" border="0" framespacing="0"> 
      <FRAME SRC="<%=request.serverVariables("SCRIPT_NAME")%>?frame=menu" NAME="menu" scrolling="YES">
      <FRAME SRC="<%=request.serverVariables("SCRIPT_NAME")%>?frame=image" NAME="image">
</frameset>
</frameset>
<noframes><body bgcolor="#ffff99">
<P align="center">Votre navigateur ne supporte pas les frames<BR>Utilisez de pr&eacute;f&eacute;rence IE&nbsp;5.5 (ou sup&eacute;rieur)<BR>ou Netscape&nbsp;7.0</P>
</body></noframes>


<% ' FRAME MENU
elseif request("frame")="menu" then %>

   <BODY background="../img/FilmUnit.gif"><center>
      <% Set FSO = Server.CreateObject("Scripting.FileSystemObject") 
      ' LIEN VERS ACCUEIL. Adaptez le chemin selon vos besoins.
      response.write "<A href='../default_2.asp' style='color:#00CCCC' target='_top'>Accueil</A><BR><HR>"
      ' FIN LIEN VERS ACCUEIL 
      ' Dossier en cours
      curdir = request("dir")
      if curdir="" then curdir = "."
      
      'response.write "<b>Dossier "&curdir&"</b><br><br>"&VbCrLf

      if curdir<>"." then
         ' lien vers le dossier parent
         tmp = instrrev(curdir,"/")-1
         response.write "<A href='?frame=menu&dir="&left(curdir,tmp)_
            &"' target=menu><B>Liste</B></A><br><B>"&mid(curdir,3,len(curdir))&"</B><BR>"&VbCrLf
      end if

      dir = Server.MapPath(curdir) 
      set foldPt = FSO.GetFolder(dir)

      ' LISTE DES DOSSIERS COURANTS
      dim fc,f
      set fc = foldPt.SubFolders
      ' on scanne le répertoire
      for each f in fc
         p = f.name
         
         ' lien vers le dossier
         response.write "<A href='?frame=menu&dir="&curdir&"/"&p&"' target=menu><B>"&p&"</B></A><br><br>"&VbCrLf
      next

      ' LISTE DES IMAGES DU DOSSIER COURANT
      set fc = foldPt.Files
      ' on scanne le répertoire

      for each f in fc 
         p = f.name
         
         ' si c'est une extension d'image
         ext = lcase(mid(p, instrrev(p, ".") + 1))
         'ici on choisi l'extension
         if ext="jpg" OR ext="jpeg" then
            ' lien vers l'image
           
            response.write "<br><A href='?frame=image&dir="&curdir&"&image="&p&"' target=image><img src='"&curdir&"/"&p&"' width=80 border=0></A><br>"&VbCrLf
         end if
      next 

      ' MISE A JOUR DE LA FRAME IMAGE
      %><script>
         top.image.location="?frame=image&dir=<%=curdir%>"
      </script>
      
   </center></BODY>

<% ' FRAME IMAGE
elseif request("frame")="image" then %>

   <BODY bgcolor="#ffff99">
<DIV style="text-align:center;">

      <% ' AFFICHAGE DE L'IMAGE
      if request("image")<>"" then %>
      
         <img src="<%=request("dir")&"/"&request("image")%>">
<!--si vous voulez que votre photo soit ajustée à l'écran remplacez la ligne ci dessus par celle-ci et modifiez le pourcentage en fonction de vos besoins
         <img src="<%=request("dir")&"/"&request("image")%>" heigth="90%">
-->
<!--les lignes suivantes permettent d'afficher eventuellemnt le titre sous la photo
         <BR>
         <FONT size="4"><%=mid(request("image"),1,len(request("image"))-4)%></FONT>
-->         
<%
'les lignes suivantes permettent d'afficher un texte sous la photo
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
kom = mid(request("image"),1,len(request("image"))-4)&".txt"
chemin = Server.MapPath(request("dir")&"/"&kom)
If FSO.FileExists(chemin) Then
set inF = FSO.OpenTextFile(chemin,1,false)
%>
<BR>
<B>
<% = inF.readAll %>
</B>
<%
inF.close
end if
else
'si pas de photo à afficher, on affiche un texte
%>
<B>
         
         <FONT size="5"><!--#include file="titre.txt"--></FONT>
</B>
      <% end if %>
</DIV>
   </BODY>

<% end if
' BAS DE PAGE COMMUN
%>
</HTML>

Conclusion

Si quelqu'un connait le moyen de trier les photos dans le menu par ordre alphabétique, qu'il me le dise! c'est le seul point qui m'ennuie vraiment. Merci.
Ce script n'est pas entièrement de moi. C'est une adaptation à mes besoins d'un script existant. Merci de ne pas hurler...

Sources de la même categorie

CUSTOM DATEPIKER DÉRIVANT DE COMPOSITECONTROL par fredzool

UN MODULE POUR APPRENDRE SQL par Elmarzougui

BOUTON QUI EMPECHE LE MULTI CLIC AVANT LA FIN DU TRAITEMENT.... par fredzool

BOUTON AVEC CSS ET USERCONTROL WITH EVENT par fredzool

CAPTCHA ASP.NET ET JAVASCRIPT par vaan3713

Toutes les sources de la catégorie ASP.Net

Sources en rapport avec celle ci

COMMENT PASSER UN PARAMÈTRE C# À FLASH ? par zigxag

TURBOGALERIE - GESTION D'UNE GALERIE D'IMAGES / DE FONDS D'É... par vlad_le_rouge

ALBUM PHOTO EN ASP.NET TOUT AUTOMATIQUE par jesusonline

COMPTEUR ASP/FLASH par BodyLove

Commentaires et avis

Commentaire de Nurgle le 12/11/2005 16:09:58 administrateur CS

C'est pas mal...
Je ne vois que deux petits problèmes :
- Tu utilises des frames !!! (arrrrrrggggg...lol)
Avec un peu de CSS et trois <div></div> tu fais la même chose !

- Pourquoi tu as mis ASP.NET comme catégorie si c'est de l'ASP3 ?

Sinon, c'est tout :)

Nurgle

Commentaire de trabi11fr le 12/11/2005 20:47:20

Oui, j'utilise des frames car je les trouvent souvent plus faciles à positionner que les DIV. Mais si tu me donnes la solutions avec des DIV, je suis preneur pour l'essayer.
Je n'ai pas mis ASP.NET. Simplement je n'ai pas trouvé la catégorie ASP-tout-court dans la liste des langages proposés lorsque j'ai déposé mon script.
PS/ je cherche toujours le myen de trier les vues miniatures du menu par ordre alphabétique (ou numérique) croissant...

Commentaire de jfmaze le 13/02/2006 10:46:15

Bonjour,
Tu mets tes données dans une table, puis tu tri la table et puis tu liste tes images à partir de la table;
Je te donne quelques lignes que j'utilise pour afficher un classement de football
<%

dim tab(20,7), ltemp(1,7)

sub raztab()
  for j = 1 to 20
for k = 1 to 7
tab(j,k)=""
next
next
end sub

sub inverser()
for k = 1 to 7
ltemp(1,k) = tab(i,k)
next
for k = 1 to 7
tab(i,k) = tab(j,k)
next
for k = 1 to 7
tab(j,k) = ltemp(1,k)
next
end sub
'-----------charger la table
tab(i,1)=valClub
tab(i,2)=Points
tab(i,3)=MatchGagne
tab(i,4)=MatchNul
tab(i,5)=MatchPerdu
tab(i,6)=ButPour
tab(i,7)=ButContre
rs.movenext
loop
end if
n = i
rs.close
set rs=nothing
' trier la table
For i = 1 to n
  for j = 1 to i
    ' Le plus grand nombre de points
    If tab(i,2) > tab(j,2) Then
     inverser()
    elseif tab(i,2) = tab(j,2) Then
    ' en cas d'égalité la plus grande différence de but
     if tab(i,6)-tab(i,7) > tab(j,6)-tab(j,7) Then
     inverser()
   elseif tab(i,6)-tab(i,7) = tab(j,6)-tab(j,7) Then
    ' en cas d'égalité le plus grande nombre de but pour
if tab(i,6) > tab(j,6) Then
     inverser()
end if
   end if
    end if
  next
next
' vider la table
for i=1 to n
%>
<tr>
<td width="5%"><%=i%></td>
<td width="55%"><%=tab(i,1)%></td>
<td width="5%"><%=tab(i,2)%></td>
<td width="5%"><%=tab(i,3)+tab(i,4)+tab(i,5)%></td>
<td width="5%"><%=tab(i,3)%></td>
<td width="5%"><%=tab(i,4)%></td>
<td width="5%"><%=tab(i,5)%></td>
<td width="5%"><%=tab(i,6)%></td>
<td width="5%"><%=tab(i,7)%></td>
<td width="5%"><%=tab(i,6)-tab(i,7)%></td>
</tr>

<% next
raztab() 'pour le casou je fais un autre classement à la CAN Il y a 4 groupe
%>

J'espère que çà pourra te dépanner

Commentaire de trabi11fr le 13/02/2006 20:25:56

Euh.. jfmaze y'a un truc qui m'échappe dans ton code. De plus dans mon cas il s'agit de fichiers JPG. Le but était qu'en rajoutant un nouveau fichier, il s'intégre automatiquement dans l'album sans aucune manip'. Simplement, ce que je n'arrive pas à faire, c'est que bien que les fichiers apparraissent triés dans le dossier, ils sont ensuite afichés de façon tout à fait aléatoire dans le menu del'album. Je cherche une ligne de commande du style ORDER BY ou un truc dans ce genre.
Merci quand même pour ton aide.

Commentaire de jfmaze le 15/02/2006 09:55:48

Bonjour,
ce que tu appelles l'album c'est bien le répertoire dans lequel tu dépose tes images?
Si toutes les images sont dans le même répertoire, c'est à dire si tu boucle sur l'analyse d'un seul folder, alors tes images sont triés, et tu n'as pas besoin de le faire (et c'est ce que j'ai cru voir en exécutant ton programme.

Maintenant, si tu veux présenter des images pouvent être réparties dans plusieurs sous répertoires, alors tu es obligé de stocker le noms des fichiers images dans une table, et de trier la table avant de l'afficher dans la frame menu.
Une commande de style ORDER BY correspond à une commande sql; il faudrait que tes images soient référencées dans une base de données mssql, access ou autres.
Le code que j'ai joint est un exemple de chargement d'une table, tri de la table et exploitation de celle-ci pour affichage de ta frame menu

Salut

Commentaire de trabi11fr le 17/02/2006 11:24:15

"ce que tu appelles l'album c'est bien le répertoire dans lequel tu dépose tes images?" réponse = OUI
"Si toutes les images sont dans le même répertoire, c'est à dire si tu boucle sur l'analyse d'un seul folder, alors tes images sont triés, et tu n'as pas besoin de le faire" réponse = ben NON justement, elles n'apparraisent pas dans le même ordre dans le frame menu.:-(

Ajouter un commentaire

Discussions en rapport avec ce code source dans le forum

gallerie photo avec asp-access [ par frenzy ] Bonjour tlm,je veux réaliser une gallerie photos resultant d'une recherche en asp sur une base access.pour chaque article cliqué, je veux afficher une diaporama,album photo[?] [ par stifleur83 ] bonjour je dispose de 3 photos dans mon répertoire comment faire pour les afficher automatiquement cad que si j'ai 4 photos il m'en affiheras 4, si j' inserer un dossier d image dans une gallerie photo [ par gaou44 ] bonjour a tous qqun sa saurait il comment opérer pour inserer un dossier d image dans une gallerie photo en asp comme celle du community starter kit. insérer une animation flash [ par abdelhakim18 ] bonjourj'ai besoin de savoir comment inseret une nimation flash dans une page aspx avec visual studio .net 2005le prb c que qand je glisse l'animation Animation Flash et VB NET [ par debutant.net ] J'ai utilisé une animation flash pour afficher un compteur avec en parametre LIST echange entre l'anim et le compteur.Mon seul soucis c est que le com création d'une gallerie photo [ par nouslesloveriens ] Bonjour, je recherche à créer une galerie photo pour un traiteur sur un site developpé avec visual web developper express 2008 en aspx et C# mais je n ajout animation flash [ par massawidima ] slt tt le mondeje travail sur une application web et je suis dans la phase finale de finition. donc je veu ajouter une animation flash (que j'ai conçu intégrer une animation flash [ par simoone1 ] je veux savoire comment intégrer une animation réaliser par flashdans une page asp.net merci problème insertion html [ par hugo7 ] Bonjour j'ai un problème. J'ai télécharger ce diaporama flash sur le net : http://www.webcssdesign.com/flash/un-autre-diaporama-flash-gratuit/ Mais Aide [ par victorieuse ] Bjr , je suis une debutante en asp.net, j'ai une page web dynamique a creer contenant les champs nom, prenom ,tel, photo,adresse 1, bouton parcourir p

Nos sponsors

Derniers Blogs

[TECHDAYS 2010] #04 - WORKSHOP : UPGRADE DE MOSS 2007 VERS SHAREPOINT 2010 par pierre

TECHDAYS PARIS 2010 : LA GOUVERNANCE DANS SHAREPOINT ONLINE par ROMELARD Fabrice

TECHDAYS PARIS 2010 : ADMINISTRATION SHAREPOINT 2010 par ROMELARD Fabrice

[TECHDAYS 2010] #03 - WEB CONTENT MANAGEMENT SOUS SHAREPOINT 2010 par pierre

[DESIGN PATTERNS] PARTIE 2: DIP: DEPENDENCY INVERSION PRINCIPLE par tja

Forum

RE : TRY CATCH par babyl

BARRE DE PROGRESSION PENDANT DOCMD.OPENREPORT par Mulele

RE : JE CHERCHE UN HéBERGEUR DE SITE WEB GRATUIT ET RAPIDE par appleip

RENVOYER UN FLUX XML PAR UNE PAGE ASPX par hichamveo

RAFRAîCHISSEMENT D'UNE PAGE PARAMéTRABLE PAR L’UTILISATEUR par Ouistyty

Côté IT

Offres d'emploi

Formations Video

Appels d'offres

mise en page Rapport d-activite
Budget : 1 300€
Cherche formation complete en GIMP
Budget : 750€
Module sur Prestashop
Budget : 700€

Logiciels

DB-MAIN (9.1.0)
DB-MAIN (9.1.0)

DB-MAIN is a data-modeling and data-architecture tool. It is designed to help developers and anal...

Cliquez pour télécharger DB-MAIN
Xilisoft DPG Convertisseur (5.1.37.0120)
XILISOFT DPG CONVERTISSEUR (5.1.37.0120)

Xilisoft DPG Convertisseur offre aux fans de Nintendo DS une bonne solution leur permettant de dé...

Cliquez pour télécharger Xilisoft DPG Convertisseur
GraphicsGale (2.01.01)
GRAPHICSGALE (2.01.01)

GraphicsGale est un logiciel de PixelArt avec de nombreuse fonctionnalités permettant de réalisé ...

Cliquez pour télécharger GraphicsGale
Architecte 3D (Platinum 2010)
ARCHITECTE 3D (PLATINUM 2010)

Architecte 3D Platinium vous permet de concevoir facilement les plans votre future maison, de l'é...

Cliquez pour télécharger Architecte 3D
TeamViewer 5 (TeamViewer 5)
TEAMVIEWER 5 (TEAMVIEWER 5)

Dépanner un ami,expliquer une manipulation devient un jeu d'enfant. Prise en main d'un autre ord...

Cliquez pour télécharger TeamViewer 5