Peralihan tayangan slide gambar (dengan efek khusus mouse)

<!--Tambahkan kode berikut ke area baody--> <SCRIPT Language="VBScript"> Redupkan FileList,FileListArr,TxtList,TxtListArr FileList = "/img/200406301.jpg,/img/200406302.jpg,/img /200406303.jpg" //Daftar file gambar TxtList = "<a href=http://www.downcodes.coml target=_blank>Website Building Academy 1</a>,<a href=http://www.downcodes .com/ target=_blank>Akademi Pembuatan Situs Web 2</a>,<a href=http://www.downcodes.com/ target=_blank>Akademi Pembuatan Situs Web 3</a>" //Daftar deskripsi teks FileListArr = Split(FileList ,",") TxtListArr = Split(TxtList,","") Redupkan CanPlay CanPlay = CInt(Split(Split(navigator.appVersion,";")(1)," ")(2))>5 Redup FilterStr FilterStr = "RevealTrans(duration=2,transition=23)" FilterStr = FilterStr + ";BlendTrans(duration=2)" Jika CanPlay Kemudian FilterStr = FilterStr + ";progid:DXImageTransform.Microsoft.Pixelate(,enabled=false, durasi=2 ,maxSquare=25)" FilterStr = FilterStr + ";progid:DXImageTransform.Microsoft.Fade(duration=2,overlap=0)" FilterStr = FilterStr + ";progid:DXImageTransform.Microsoft.GradientWipe(duration=2, gradienSize=0,25 ,gerakan=maju )" FilterStr = FilterStr + ";progid:DXImageTransform.Microsoft.Stretch(duration=2,stretchStyle=PUSH)" FilterStr = FilterStr + ";progid:DXImageTransform.Microsoft.Wheel(duration=2, jari-jari=16 )" FilterStr = FilterStr + ";progid:DXImageTransform.Microsoft.RandomDissolve(durasi=2)" FilterStr = FilterStr + ";progid:DXImageTransform.Microsoft.Spiral(durasi=2,gridSizeX=50,gridSizeY=50) " FilterStr = FilterStr + ";progid:DXImageTransform.Microsoft.Slide(durasi=2,bands=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 "Peragaan slide memiliki beragam efek peralihan gambar dinamis, tetapi fungsi ini memerlukan browser Anda 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 //lebih banyak javascript dari http://www.downcodes.com Redupkan 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).mainkan 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 dukungan skrip, tetapi browser Anda telah disetel untuk melarang skrip dijalankan. Harap sesuaikan opsi keamanan yang relevan di pengaturan browser 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="Tengah" vAlign="Tengah"><div ID="Txt" style="PADDING-LEFT: 5px; Z-INDEX: 1; FILTER: progid:DXImageTransform.Microsoft. Fade(duration=1,overlap=0); POSISI:"><a href=http://www.downcodes.com target=_blank>Akademi Pembuatan Situs Web 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" < / Skrip>