Dim FileList,FileListArr dim TitleList,TitleListArr FileList = "../example/upload/20051229125433138.jpg,../example/upload/20051229125233677.jpg,../example/upload/20051229125039750.jpg,../example/upload/20051229124936424.jpg,../example/upload/20051229124733188.jpg,../example/upload/20051229124655849.jpg,../example/upload/20051229124555276.jpg,../example/upload/20051229124456609.jpg" FileListArr = Split(FileList,",") TitleList = "bgdl@gsnj@aqzsq@ldcj@gsnj@ck@ccc@dd@" TitleListArr = Split(TitleList,"@") Dim CanPlay CanPlay = CInt(Split(Split(navigator.appVersion,";")(1)," ")(2))>5 Dim FilterStr If CanPlay Then FilterStr = FilterStr + "progid:DXImageTransform.Microsoft.GradientWipe(duration=2,gradientSize=0.25,motion=forward )" Else End If Dim FilterArr FilterArr = Split(FilterStr,";") Dim PlayImg_M PlayImg_M = 5 * 1000 'ΗΠ»»Κ±Όδ£¨ΊΑΓ룩 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) //document.all.title1.innerHTML = TitleListArr(I) Img.filters(0).play I = I + 1 If I>UBound(FileListArr) Then I = 0 TempImg.Src = FileListArr(I) SetTimeout "ChangeImg", PlayImg_M,"VBScript" End Sub