Indonesia
<SCRIPT Language="VBScript"> Redupkan FileList,FileListArr,TxtList,TxtListArr FileList = "/img/200406301.jpg,/img/200406302.jpg,/img/200406303.jpg" TxtList = "<a href=http:/ /www.downcodes.com/ target=_blank>Tambahkan tautan Anda di sini 1</a>, <a href=http://www.downcodes.com/ target=_blank>Tambahkan tautan Anda di sini 2</a> a> ,<a href=http://www.downcodes.com/ target=_blank>Tambahkan koneksi Anda di sini 3</a>" FileListArr = Split(FileList,",") TxtListArr = Split(TxtList," ,") Redup CanPlay CanPlay = CInt(Split(Split(navigator.appVersion,";")(1)," ")(2))>5 Redupkan FilterStr FilterStr = "RevealTrans(duration=2,transition=23)" FilterStr = FilterStr + ";BlendTrans(duration=2)" Jika CanPlay Maka 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(durasi=2,stretchStyle=PUSH)" FilterStr = FilterStr + ";progid:DXImageTransform.Microsoft.Wheel(duration=2,spokes=16)" FilterStr = FilterStr + ";progid:DXImageTransform. durasi=2)" FilterStr = FilterStr + ";progid:DXImageTransform.Microsoft.Spiral(durasi=2,gridSizeX=50,gridSizeY=50)" FilterStr = FilterStr + ";progid:DXImageTransform.Microsoft.Slide( durasi=2, band=1,slideStyle=SWAP)" FilterStr = FilterStr + ";progid:DXImageTransform.Microsoft.RadialWipe(durasi=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 "Slideshow memiliki berbagai efek peralihan gambar dinamis. Namun, fungsi ini mengharuskan browser Anda menjadi IE5.5 atau lebih tinggi, jika tidak, Anda hanya akan dapat melihat sebagian dari efek peralihan. ",64 Berakhir Jika Dim FilterArr FilterArr = Split(FilterStr,";") Redupkan PlayImg_M PlayImg_M = 5 * 1000 'Waktu peralihan (milidetik) Redupkan I I = 1 Sub ChangeImg Lakukan Sementara FileListArr(I)="" I = I + 1 Jika I>UBound(FileListArr) Maka I = 0 Loop Dim J Jika I>UBound(FileListArr) Maka I = 0 Acak J = Int(Rnd * (UBound(FilterArr)+1)) Img.style.filter = FilterArr(J ) Img.filters(0).Terapkan Img.Src = FileListArr(I) Img.filters(0).play Txt.filters(0).Terapkan Txt.innerHTML = TxtListArr(I) Txt.filters(0).play( ) I = I + 1 Jika I>UBound(FileListArr) Maka 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">Maaf, fungsi penjelajahan gambar memerlukan Skrip didukung, tetapi browser Anda telah disetel untuk melarang skrip berjalan. Harap sesuaikan opsi keamanan yang relevan di pengaturan browser Anda "> <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=" Tengah" vAlign="Tengah"><div ID="Txt" style="PADDING-LEFT: 5px; Z-INDEX: 1; FILTER: progid:DXImageTransform.Microsoft.Fade(durasi=1,tumpang tindih=0); :" ><a href=http://www.downcodes.com/ target=_blank>Tambahkan tautan Anda di sini 1</a></div></TD></TR></TABLE> <Bahasa Skrip= "VBScript"> NoScript.Style.Display = "tidak ada" CanRunScript.Style.Display = "" Img.Src = FileListArr(0) SetTimeout "ChangeImg", PlayImg_M,"VBScript" </Script>
