Español
<SCRIPT language="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>Agregue su enlace aquí 1</a>, <a href=http://www.downcodes.com/ target=_blank>Agregue su enlace aquí 2</a> a> ,<a href=http://www.downcodes.com/ target=_blank>Agregue su conexión aquí 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(duración=2)" Si CanPlay Entonces FilterStr = FilterStr + ";progid:DXImageTransform.Microsoft.Pixelate(,enabled=false,duration=2,maxSquare=25)" FilterStr = FilterStr + "; progid:DXImageTransform. Microsoft.Fade(duración=2,superposición=0)" FilterStr = FilterStr + "; progid:DXImageTransform.Microsoft.GradientWipe(duración=2,gradientSize=0.25,motion=forward )" FilterStr = FilterStr + "; Microsoft.Stretch(duración=2,stretchStyle=PUSH)" FilterStr = FilterStr + ";progid:DXImageTransform.Microsoft.Wheel(duración=2,spokes=16)" FilterStr = FilterStr + ";progid:DXImageTransform( duración=2)" FilterStr = FilterStr + ";progid:DXImageTransform.Microsoft.Spiral(duración=2,gridSizeX=50,gridSizeY=50)" FilterStr = FilterStr + ";progid:DXImageTransform.Microsoft.Slide( duración=2, bandas=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 "La presentación de diapositivas tiene una variedad de efectos dinámicos de cambio de imagen. Sin embargo, esta función. requiere que su navegador sea IE5.5 o superior; de lo contrario, solo podrá ver parte del efecto de cambio. ",64 End If Dim FilterArr FilterArr = Split(FilterStr,";") Dim PlayImg_M PlayImg_M = 5 * 1000 'Tiempo de conmutación (milisegundos) Dim I I = 1 Sub ChangeImg Do While FileListArr(I)="" I = I + 1 Si I>UBound(FileListArr) Entonces I = 0 Loop Dim J Si I>UBound(FileListArr) Entonces I = 0 Aleatorizar 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) Entonces I = 0 TempImg.Src = FileListArr(I) SetTimeout "ChangeImg", PlayImg_M,"VBScript" End Sub </SCRIPT> <TABLE WIDTH="100%" height ="100%" BORDER="0" CELLSPACING="0" CELLPADDING="0"><TR ID="NoScript"><TD Align="Center" Style="Color:White">Lo sentimos, la función de exploración de imágenes requiere Los scripts son compatibles, pero su navegador ha sido configurado para prohibir su ejecución. Ajuste las opciones de seguridad relevantes en la configuración de su navegador. "> <TD HEIGHT="100%" Align="Centro" vAlign="Centro"><Img ID="Img" altura="290" ancho="300" Border="0" </TD></ TR> <TR Style="Display:none"><TD><Img ID="TempImg" Border="0"></TD></TR><TR><TD HEIGHT="100%" Align=" Centro" vAlign="Centro"><div ID="Txt" style="PADDING-LEFT: 5px; Z-INDEX: 1; FILTRO: progid:DXImageTransform.Microsoft.Fade(duración=1,superposición=0); :" ><a href=http://www.downcodes.com/ target=_blank>Agregue su enlace aquí 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" </Script>
