Español
<!--Agregue el siguiente código al área baody--> <SCRIPT language="VBScript"> Dim FileList,FileListArr,TxtList,TxtListArr FileList = "/img/200406301.jpg,/img/200406302.jpg,/img /200406303.jpg" //Lista de archivos de imágenes 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>" //Lista de descripción de texto FileListArr =. Split(FileList ,",") TxtListArr = Split(TxtList,",") Dim CanPlay CanPlay = CInt(Split(Split(navigator.appVersion,";")(1)," ")(2))>5 Dim FilterStr FilterStr = "RevealTrans(duración=2,transición=23)" FilterStr = FilterStr + ";BlendTrans(duración=2)" Si CanPlay Entonces FilterStr = FilterStr + ";progid:DXImageTransform.Microsoft.Pixelate(,enabled=false, duración=2, maxSquare=25)" FilterStr = FilterStr + ";progid:DXImageTransform.Microsoft.Fade(duración=2,overlap=0)" FilterStr = FilterStr + ";progid:DXImageTransform.Microsoft.GradientWipe(duración=2, gradientSize=0.25, movimiento=adelante)" FilterStr = FilterStr + ";progid:DXImageTransform.Microsoft.Stretch(duración=2,stretchStyle=PUSH)" FilterStr = FilterStr + ";progid:DXImageTransform.Microsoft.Wheel(duración=2, radios=16 )" FilterStr = FilterStr + ";progid:DXImageTransform.Microsoft.RandomDissolve(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,bands=1,slideStyle=SWAP)" FilterStr = FilterStr + ";progid:DXImageTransform.Microsoft.RadialWipe(duración=2,wipeStyle=CLOCK) " FilterStr = FilterStr + ";progid:DXImageTransform.Microsoft.Pixelate(MaxSquare=15,Duration=1)" FilterStr = FilterStr + ";progid:DXImageTransform.Microsoft.Wipe(duración=3,gradientsize=0.25,motion=reverse) " Else Msgbox "La presentación de diapositivas tiene una variedad de efectos dinámicos de cambio de imagen, pero esta función requiere que su navegador sea IE5.5 o superior; de lo contrario, solo podrá ver parte de los efectos 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 Bucle //más javascript de http://www.downcodes.com 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" Fin Sub </SCRIPT> <TABLE WIDTH="100%" height="100%" BORDER="0" CELLSPACING="0" CELLPADDING="0"><TR ID="NoScript"><TD Align="Centro" Style="Color:White">Lo sentimos, la función de exploración de imágenes requiere compatibilidad con secuencias de comandos, pero su navegador ha sido configurado para prohibir la ejecución de secuencias de comandos. Ajuste las opciones de seguridad relevantes en la configuración del navegador. TR Style="Display:none" ID="CanRunScript"><TD HEIGHT="100%" Align="Center" vAlign="Center"><Img ID="Img" height="200" width="250" Borde="0" </TD></TR><TR Estilo="Display:none"><TD><Img ID="TempImg" Borde="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,overlap=0); POSICIÓN:"><a href=http://www.downcodes.com target=_blank>Academia de creación de sitios 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" < / Guión>
