A voir également:
- [ASP]Création de Diaporama
- Creation compte gmail - Guide
- Création compte google - Guide
- Media creation tool - Télécharger - Systèmes d'exploitation
- Création organigramme - Guide
- Création groupe whatsapp - Guide
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>
<%
' [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>