Vous êtes ici Forums
  |  Connexion
 Forums
HomeHomeForums DNNForums DNNAnnoncesAnnoncesTUTO - Diaporama auto avec le module IframeTUTO - Diaporama auto avec le module Iframe
Précédente
 
Suivante
Nouveau message
17/01/2007 13:25
 
Le but de ce petit tuto est d'utiliser le module Iframe afin de faire un diaporama automatique des photos stockées dans un répertoire. Ce diaporama affichera les photos a une taille donnée et pendant une durée déterminée.

C'est un exemple simple qui pourra être enrichi en fonction de vos besoins, et il a pour but d'aider les débutants et de démontrer que l'on peut faire pas mal de choses avec les modules livrés en standard.




Avant tout il faut définir un repertoire et y déposer les photos.
Dans mon exemple ce sera \DotNetNuke\Portals\0\chantiers


Ensuite a l'aide d'un editeur de texte comme le BlocNotes, ou n'importe quel outil spécialisé il faut créer un fichier ASC dans ce meme répertoire. Pour mon exemple ce sera diapo.asp dans le quel il suffit de copier le code suivant. (merci a l'auteur).

<% ' Diaporama 1.1 ? D.YVER 11/05/2006

Set FSO = Server.CreateObject("Scripting.FileSystemObject")

sub display(rep)
   dim fc,f
   'Récupération du répertoire courant
   set fc = FSO.getFolder(server.MapPath(rep))

   ' Lit les sous-dossiers
   for each f in fc.subfolders
      display rep & "/" & f.name
   next

   ' Lit les photos du dossier courant
   for each f in fc.files
      if instr("jpeg.jpg.gif.bmp",right(f.name,4))>0 then
         ' D?j? affich?e ?
         if session("photo")=rep & "/" & f.name Then
            ' Oui alors pr?pare pour la suivante
            session("photo")=""
         elseif session("photo")="" then
            ' Affiche la photo
            session("photo")=rep & "/" & f.name
            exit for
         end if
      end if
   next

end Sub

display "."
%>
<HTML><HEAD>
   <TITLE>Diaporama 1.1</TITLE>
   <META http-equiv="refresh" content="<%
      If session("photo")<>"" Then response.write 10 _
      Else response.write 0%>">
</HEAD><BODY bgcolor=#e8e8e8 leftmargin="0" marginheight="0" marginwidth="0" topmargin="0"><center>
   <TABLE border="1" cellpadding="0"  cellspacing=0><TR><TD align=right>
   <% If session("photo")<>"" Then %>
      <img src="<%=session("photo")%>" width=173<br>
      <font size=2 color=black>
         <%=left(Mid(session("photo"),InstrRev(session("photo"),"/")+1),len(session("photo"))-6)+" "%>
      </font>
   <%End if%>
   </TD></TR></TABLE>
</BODY></HTML>



Dans ce code il y a deux lignes a modifier en fonction de vos besoins :

If session("photo")<>"" Then response.write 10 _
La valeur 10 correspond ici a 10 secondes ce qui provoquera le changement de l'image toutes les 10 secondes

<img src="<%=session("photo")%>" width=173<br>
La valeur 173 correspond a la largeur a laquelle je souhaite redimentionner l'affichage. Elle est exprimée en Pixel.

(Il est également possible de supprimer la ligne qui affiche le nom du fichier sous la photo)

Ensuite il ne reste plus qu'a placer sur une page DNN un module Iframe pour lequel j'indique les parametres suivants.





Et voila notre résultat :





PS : Uniquement testé sous DNN 4.x donc avec ASP NET 2

Anthony
 
Nouveau message
24/01/2007 16:36
 

Chapeau bas Anthony !!!

 

 
Précédente
 
Suivante
HomeHomeForums DNNForums DNNAnnoncesAnnoncesTUTO - Diaporama auto avec le module IframeTUTO - Diaporama auto avec le module Iframe