English
<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>Add your link here 1</a>, <a href=http://www.downcodes.com/ target=_blank>Add your link here 2</a> a>,<a href=http://www.downcodes.com/ target=_blank>Add your connection here 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. Microsoft.RandomDissolve(duration=2)" FilterStr = FilterStr + ";progid:DXImageTransform.Microsoft.Spiral(duration=2,gridSizeX=50,gridSizeY=50)" FilterStr = FilterStr + ";progid:DXImageTransform.Microsoft.Slide( duration=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 "The slideshow has a variety of dynamic picture switching effects. However, this function requires your browser to be IE5.5 or above, otherwise you will only be able to see part of the switching effect. ",64 End If Dim FilterArr FilterArr = Split(FilterStr,";") Dim PlayImg_M PlayImg_M = 5 * 1000 'Switching time (milliseconds) 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">Sorry, the image browsing function requires Scripts are supported, but your browser has been set up to prohibit scripts from running. Please adjust the relevant security options in your browser settings. </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); POSITION:" ><a href=http://www.downcodes.com/ target=_blank>Add your link here 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>