Dim FileList,FileListArr dim TitleList,TitleListArr FileList = "../example/upload/20051229112623415.jpg,../example/upload/2005122911226110.jpg,../example/upload/2005122911202209.jpg,../example/upload/20051229111855125.jpg,../example/upload/20051229111114180.jpg,../example/upload/20051229105823385.jpg,../example/upload/20051229105611220.jpg,../example/upload/20051229105245788.jpg,../example/upload/20051229105031727.jpg" FileListArr = Split(FileList,",") TitleList = "新园区全景图@公司内景@公司内景@安全注射器车间@公司内景@生产车间@职工宿舍@仓库@办公大楼@" 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