Deutsch
<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>Fügen Sie hier Ihren Link hinzu 1</a>, <a href=http://www.downcodes.com/ target=_blank>Fügen Sie hier Ihren Link hinzu 2</a> a> ,<a href=http://www.downcodes.com/ target=_blank>Fügen Sie hier Ihre Verbindung hinzu 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)" If 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 + "; progid:DXImageTransform. Microsoft.Stretch(duration=2,stretchStyle=PUSH)" FilterStr = FilterStr + ";progid:DXImageTransform.Microsoft.Wheel(duration=2,spokes=16)" FilterStr = FilterStr + ";progid:DXImageTransform. Dauer=2)" FilterStr = FilterStr + ";progid:DXImageTransform.Microsoft.Spiral(duration=2,gridSizeX=50,gridSizeY=50)" FilterStr = FilterStr + ";progid:DXImageTransform.Microsoft.Slide( Dauer=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 "Die Diashow verfügt jedoch über eine Vielzahl dynamischer Bildwechseleffekte Ihr Browser muss IE5.5 oder höher sein, andernfalls können Sie nur einen Teil des Umschalteffekts sehen. ",64 End If Dim FilterArr FilterArr = Split(FilterStr,";") Dim PlayImg_M PlayImg_M = 5 * 1000 'Schaltzeit (Millisekunden) Dim I I = 1 Sub ChangeImg Do While FileListArr(I)="" I = I + 1 If I>UBound(FileListArr) Then I = 0 Loop Dim J If I>UBound(FileListArr) Then 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) Then 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">Tut mir leid, die Funktion zum Durchsuchen von Bildern erfordert, dass Skripte unterstützt werden, aber Ihr Browser wurde so eingerichtet, dass die Ausführung von Skripten verhindert wird. Bitte passen Sie die entsprechenden Sicherheitsoptionen in Ihren Browsereinstellungen an </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; FILTER: progid:DXImageTransform.Microsoft.Fade(duration=1,overlap=0); :" ><a href=http://www.downcodes.com/ target=_blank>Fügen Sie hier Ihren Link hinzu 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>
