Français
<SCRIPT langage="VBScript"> Dim FileList,FileListArr,TxtList,TxtListArr FileList = "/img/200406301.jpg,/img/200406302.jpg,/img/200406303.jpg" TxtList = "<a href=http:/ /www.downcodes.com/ target=_blank>Ajoutez votre lien ici 1</a>, <a href=http://www.downcodes.com/ target=_blank>Ajoutez votre lien ici 2</a> a> ,<a href=http://www.downcodes.com/ target=_blank>Ajoutez votre connexion ici 3</a>" 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,duration=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 + "; Microsoft.Stretch(duration=2,stretchStyle=PUSH)" FilterStr = FilterStr + ";progid:DXImageTransform.Microsoft.Wheel(duration=2,spokes=16)" FilterStr = FilterStr + ";progid:DXImageTransform( Microsoft.RandomDissolve. durée=2)" FilterStr = FilterStr + ";progid:DXImageTransform.Microsoft.Spiral(duration=2,gridSizeX=50,gridSizeY=50)" FilterStr = FilterStr + ";progid:DXImageTransform.Microsoft.Slide( durée=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 a une variété d'effets de changement d'image dynamique Cependant, cette fonction. nécessite que votre navigateur soit IE5.5 ou supérieur, sinon vous ne pourrez voir qu'une partie de l'effet de commutation. ",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 Loop 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) Then I = 0 TempImg.Src = FileListArr(I) SetTimeout "ChangeImg", PlayImg_M,"VBScript" End Sub </SCRIPT> <TABLE WIDTH="100%" hauteur ="100%" BORDER="0" CELLSPACING="0" CELLPADDING="0"><TR ID="NoScript"><TD Align="Center" Style="Color:White">Désolé, la fonction de navigation dans les images nécessite Les scripts sont pris en charge, 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 de votre navigateur </TD></TR><TR Style="Display:none" ID="CanRunScript. "> <TD HEIGHT="100%" Align="Center" vAlign="Center"><Img ID="Img" height="290" width="300" Border="0" ></TD></ TR> <TR Style="Display:none"><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 ; progid:DXImageTransform.Microsoft.Fade(duration=1,overlap=0); :" ><a href=http://www.downcodes.com/ target=_blank>Ajoutez votre lien ici 1</a></div></TD></TR></TABLE> <Script Language= "VBScript"> NoScript.Style.Display = "aucun" CanRunScript.Style.Display = "" Img.Src = FileListArr(0) SetTimeout "ChangeImg", PlayImg_M,"VBScript" </Script>
