Português
<linguagem SCRIPT="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>Adicione seu link aqui 1</a>, <a href=http://www.downcodes.com/ target=_blank>Adicione seu link aqui 2</a> a> ,<a href=http://www.downcodes.com/ target=_blank>Adicione sua conexão aqui 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)" Se CanPlay Then FilterStr = FilterStr + ";progid:DXImageTransform.Microsoft.Pixelate(,enabled=false,duration=2,maxSquare=25)" FilterStr = FilterStr + "; progid:DXImageTransform. Microsoft.Fade(duração=2,sobreposição=0)" FilterStr = FilterStr + ";progid:DXImageTransform.Microsoft.GradientWipe(duração=2,gradientSize=0,25,motion=forward )" FilterStr = FilterStr + "; Microsoft.Stretch(duração=2,stretchStyle=PUSH)" FilterStr = FilterStr + ";progid:DXImageTransform.Microsoft.Wheel(duração=2,spokes=16)" FilterStr = FilterStr + ";progid:DXImageTransform Microsoft.RandomDissolve(. duração=2)" FilterStr = FilterStr + ";progid:DXImageTransform.Microsoft.Spiral(duração=2,gridSizeX=50,gridSizeY=50)" FilterStr = FilterStr + ";progid:DXImageTransform.Microsoft.Slide( duração=2, bandas = 1, slideStyle = SWAP)" FilterStr = FilterStr + "; Duration=1)" FilterStr = FilterStr + ";progid:DXImageTransform.Microsoft.Wipe(duration=3,gradientsize=0.25,motion=reverse)" Else Msgbox "A apresentação de slides possui uma variedade de efeitos de troca dinâmica de imagem. No entanto, esta função. requer que seu navegador seja IE5.5 ou superior, caso contrário, você só poderá ver parte do efeito de mudança. ",64 End If Dim FilterArr FilterArr = Split(FilterStr,";") Dim PlayImg_M PlayImg_M = 5 * 1000 'Tempo de comutação (milissegundos) Dim I I = 1 Sub ChangeImg Do While FileListArr(I)="" I = I + 1 Se I>UBound(FileListArr) Então I = 0 Loop Dim J Se I>UBound(FileListArr) Então I = 0 Randomize 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 If I>UBound(FileListArr) Então I = 0 TempImg.Src = FileListArr(I) SetTimeout "ChangeImg", PlayImg_M,"VBScript" End Sub </SCRIPT> <TABLE WIDTH="100%" altura ="100%" BORDER="0" CELLSPACING="0" CELLPADDING="0"><TR ID="NoScript"><TD Align="Center" Style="Color:White">Desculpe, a função de navegação de imagens requer Scripts suportados, mas seu navegador foi configurado para proibir a execução de scripts. Ajuste as opções de segurança relevantes nas configurações do seu navegador. "> <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=" Centro" vAlign="Centro"><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>Adicione seu link aqui 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>
