[ASP]Création de Diaporama
Maxdivertis
-
Maxdivertis -
Maxdivertis -
Bonjour,
J'aimerais créer un diaporama en ASP pour mon site. Etant débutant j'ai un peu de mal.
Mes images sont stocker sur le serveur dans un fichier nommé "up" mais comment dois-je faire pour récuperer certaines de ces photos et en faire un diaporama sur une page internet ?
J'ai beau regarder sur des sites qui possedent des tutos j'ai vraiment du mal.
Merci d'avance pour votre aide :-)
J'aimerais créer un diaporama en ASP pour mon site. Etant débutant j'ai un peu de mal.
Mes images sont stocker sur le serveur dans un fichier nommé "up" mais comment dois-je faire pour récuperer certaines de ces photos et en faire un diaporama sur une page internet ?
J'ai beau regarder sur des sites qui possedent des tutos j'ai vraiment du mal.
Merci d'avance pour votre aide :-)
Configuration: Windows XP Internet Explorer 7.0
1 réponse
-
Au départ je suis parti de ça pour essayer, mais à aucun endroit je vais chercher des images dans ma base de donnéen, je ne vois pas comment modifier !
<%
' [VARIABLES DE BASE]
' ************************
BaseRep ="C:\Inetpub\wwwroot\gest\"
BaseHttp ="http://192.168.1.100/gest"
ConnData ="Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & _
BaseRep & "base\news.mdb"
' ================================
' RECUPERATION DES VARIABLES D'URL
' --------------------------------
' Chaque diaporama est identifié par un idDiapo
' ---------------------------------------------
dim nomDiapo
nomDiapo = Request.querystring("nomDiapo")
' Endroit ou se trouvent les photos uploadées
' -------------------------------------------
dim UrlSourcePhoto
UrlSourcePhoto = BaseHttp &"/emailing/gest/up/"
' Vitesse d'execution entre chaque photo 3 secs par defaut
' --------------------------------------------------------
dim cadence
if request.querystring("cadence")<>"" then
cadence = request.querystring("cadence")
else
cadence = 2
end if
' Definition du répertoire source des photos
' -------------------------------------------
RepSourcePhoto = BaseRep&"wwwroot\emailing\gest\up"
UrlSourcePhoto = BaseHttp&"wwwroot\emailing\gest\up"
RepImg = BaseImages
' Déclaration de l'objet PhExiste
' -------------------------------
Set PhExiste = Server.CreateObject("Scripting.FileSystemObject")
' Boucle de verification de la présence des photos + affichage
' ------------------------------------------------------------
laPhotoexiste = 0
For ComptPhoto = 1 to 8
' Définition des variables
SufxPhoto = nomDiapo & ComptPhoto & ".jpg"
DirPhoto = RepSourcePhoto & SufxPhoto
UrlPhoto = UrlSourcePhoto & SufxPhoto
If PhExiste.FileExists(DirPhoto) = false then
laPhotoexiste = laPhotoexiste + 1
noFoto=noFoto&ComptPhoto
End If
Next
Set PhExiste = Nothing
%>
<html>
<head>
<title>Diaporama</title>
<SCRIPT LANGUAGE="JavaScript1.1">
function WinFocus() {
self.focus()
idFocus=setTimeout('WinFocus()',1500)
}
WinFocus()
</SCRIPT>
</head>
<body><table width="400" height="400" border="0" cellspacing="0" cellpadding="0">
<tr>
<td> </td>
<td valign="top" align="center">
<object classid="clsid:d27cdb6e-ae6d-11cf-96b8-444553540000" codebase="http://fpdownload2.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=7,0,0,0"
width="600" height="450" id="diaporama" align="middle">
<param name="allowScriptAccess" value="sameDomain" />
<param name="movie"
value="diaporama.swf?n=1&cadence=<%=cadence%>&num=<%=num%>&noFoto=<%=noFoto%>"/>
<param name="quality" value="high" />
<param name="bgcolor" value="#9999FF" />
<embed src="diaporama.swf?n=1&cadence=<%=cadence%>&num=<%=num%>&noFoto=<%=noFoto%>"
quality="high" bgcolor="#9999FF" width="600" height="450" name="diaporama" align="middle"
allowScriptAccess="sameDomain" type="application/x-shockwave-flash"
pluginspage="https://get.adobe.com/flashplayer/" />
</object>
</td>
<td> </td>
</tr>
</table>
<%response.redirect(add_diapo.asp)%>
</body>
</html>
