Português
<!--Adicione o seguinte código à área baody--> <SCRIPT language="VBScript"> Dim FileList,FileListArr,TxtList,TxtListArr FileList = "/img/200406301.jpg,/img/200406302.jpg,/img /200406303.jpg" //Lista de arquivos de imagens 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 descrição de texto 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, duração = 2, maxSquare = 25)" FilterStr = FilterStr + "; gradienteSize = 0,25, movimento = avanço)" FilterStr = FilterStr + "; raios = 16) "FilterStr = FilterStr + "; " FilterStr = FilterStr + ";progid:DXImageTransform.Microsoft.Slide(duração=2,bands=1,slideStyle=SWAP)" FilterStr = FilterStr + ";progid:DXImageTransform.Microsoft.RadialWipe(duração=2,wipeStyle=CLOCK) " FilterStr = FilterStr + ";progid:DXImageTransform.Microsoft.Pixelate(MaxSquare=15,Duration=1)" FilterStr = FilterStr + ";progid:DXImageTransform.Microsoft.Wipe(duração=3,gradientsize=0,25,motion=reverse) " Else Msgbox "A apresentação de slides possui uma variedade de efeitos dinâmicos de troca de imagem, mas esta função requer que seu navegador seja IE5.5 ou superior, caso contrário, você só poderá ver parte dos efeitos de troca. ",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 //mais javascript de http://www.downcodes.com Dim J If 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%" height="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 suporte a scripts, mas seu navegador foi configurado para proibir a execução de scripts. Ajuste as opções de segurança relevantes nas configurações do navegador. 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="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; FILTER: progid:DXImageTransform.Microsoft. Fade(duration=1,overlap=0);><a href=http://www.downcodes.com target=_blank>Academia de construção de sites 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" < / Roteiro>
