Français
<!--Ajoutez le code suivant à la zone baody--> <SCRIPT language="VBScript"> Dim FileList,FileListArr,TxtList,TxtListArr FileList = "/img/200406301.jpg,/img/200406302.jpg,/img /200406303.jpg" //Liste des fichiers images TxtList = "<a href=http://www.downcodes.coml target=_blank>Website Building Academy 1</a>,<a href=http://www.downcodes . com/ target=_blank>Website Building Academy 2</a>,<a href=http://www.downcodes.com/ target=_blank>Website Building Academy 3</a>" //Liste de description textuelle FileListArr = Split(FileList ,",") TxtListArr = Split(TxtList,",") Dim CanPlay CanPlay = CInt(Split(Split(navigator.appVersion,";")(1)," ")(2))>5 Dim FilterStr FilterStr = "RevealTrans(duration=2,transition=23)" FilterStr = FilterStr + ";BlendTrans(duration=2)" Si CanPlay Then FilterStr = FilterStr + ";progid:DXImageTransform.Microsoft.Pixelate(,enabled=false, durée=2 ,maxSquare=25)" FilterStr = FilterStr + ";progid:DXImageTransform.Microsoft.Fade(duration=2,overlap=0)" FilterStr = FilterStr + ";progid:DXImageTransform.Microsoft.GradientWipe(duration=2, gradientSize=0.25 ,motion=forward )" FilterStr = FilterStr + ";progid:DXImageTransform.Microsoft.Stretch(duration=2,stretchStyle=PUSH)" FilterStr = FilterStr + ";progid:DXImageTransform.Microsoft.Wheel(duration=2, rayons=16 )" FilterStr = FilterStr + ";progid:DXImageTransform.Microsoft.RandomDissolve(duration=2)" FilterStr = FilterStr + ";progid:DXImageTransform.Microsoft.Spiral(duration=2,gridSizeX=50,gridSizeY=50) " FilterStr = FilterStr + ";progid:DXImageTransform.Microsoft.Slide(duration=2,bands=1,slideStyle=SWAP)" FilterStr = FilterStr + ";progid:DXImageTransform.Microsoft.RadialWipe(duration=2,wipeStyle=CLOCK) " FilterStr = FilterStr + ";progid:DXImageTransform.Microsoft.Pixelate(MaxSquare=15,Duration=1)" FilterStr = FilterStr + ";progid:DXImageTransform.Microsoft.Wipe(duration=3,gradientsize=0.25,motion=reverse) " Else Msgbox " Le diaporama propose une variété d'effets de changement d'image dynamiques, mais cette fonction nécessite que votre navigateur soit IE5.5 ou supérieur, sinon vous ne pourrez voir qu'une partie des effets de changement. ",64 End If Dim FilterArr FilterArr = Split(FilterStr,";") Dim PlayImg_M PlayImg_M = 5 * 1000 'Temps de commutation (millisecondes) Dim I I = 1 Sub ChangeImg Do While FileListArr(I)="" I = I + 1 Si I>UBound(FileListArr) Alors I = 0 Boucle //plus de javascript depuis http://www.downcodes.com Dim J Si I>UBound(FileListArr) Alors I = 0 Randomiser J = Int(Rnd * (UBound(FilterArr )+1)) Img.style.filter = FilterArr(J) Img.filters(0).Apply Img.Src = FileListArr(I) Img.filters(0).play Txt.filters(0).Apply Txt.innerHTML = TxtListArr(I) Txt.filters(0).play() I = I + 1 Si I>UBound(FileListArr) Alors I = 0 TempImg.Src = FileListArr(I) SetTimeout "ChangeImg", PlayImg_M, "VBScript" Fin Sub </SCRIPT> <TABLE WIDTH="100%" height="100%" BORDER="0" CELLSPACING="0" CELLPADDING="0"><TR ID="NoScript"><TD Align="Centre" Style="Color:White">Désolé, la fonction de navigation dans les images nécessite la prise en charge des scripts, mais votre navigateur a été configuré pour interdire l'exécution des scripts. Veuillez ajuster les options de sécurité appropriées dans les paramètres du navigateur. TR Style="Display:none" ID="CanRunScript"><TD HEIGHT="100%" Align="Center" vAlign="Center"><Img ID="Img" height="200" width="250" Border="0" ></TD></TR><TR Style="Affichage : aucun"><TD><Img ID="TempImg" Border="0"></TD></TR><TR ><TD HEIGHT="100%" Align="Center" vAlign="Center"><div ID="Txt" style="PADDING-LEFT : 5px ; Z-INDEX : 1 ; FILTRE : progid:DXImageTransform.Microsoft. Fade(duration=1,overlap=0); POSITION :"><a href=http://www.downcodes.com target=_blank>Académie de création de sites Web 1</a></div></TD></ TR ></TABLE> <Script Language="VBScript"> NoScript.Style.Display = "none" CanRunScript.Style.Display = "" Img.Src = FileListArr(0) SetTimeout "ChangeImg", PlayImg_M, "VBScript" < / Scénario>
