模拟幻灯片播放程序

模拟幻灯片播放程序

< HTML >
   < HEAD >
     < TITLE >模拟幻灯片播放脚本程序 </ TITLE >
     < META HTTP - EQUIV = " Content-Type "  CONTENT = " text/html; charset=gb2312 " >
     < LINK HREF = " Images/Style.css "  REL = " stylesheet " >
   </ HEAD >
 
< SCRIPT language = " VBScript " >
  
   ' ***************************************************
   '             模拟幻灯片播放脚本程序
   '             
   ' ***************************************************
  
   Dim  FileList,FileListArr
  FileList  =   " 001.jpg,002.jpg,003.jpg,004.jpg,005.jpg,006.jpg,007.jpg,008.jpg,009.jpg,010.jpg"
  FileListArr  =   Split (FileList, " , " )
  
   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)"
   Else
     Msgbox   " 幻灯片播放具有多种动态图片切换效果，但此功能需要您的浏览器为IE5.5或以上版本，否则您将只能看到部分的切换效果。 " , 64
   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)
    Img.filters( 0 ).play
    I  =  I  +   1
     If  I > UBound (FileListArr)  Then  I  =   0
    TempImg.Src  =  FileListArr(I)
    
    SetTimeout  " ChangeImg " ,PlayImg_M
   End Sub
</ SCRIPT >

< BODY BGCOLOR = " #000000 " >
< TABLE WIDTH = " 100% "  height = " 100% "  BORDER = " 0 "  CELLSPACING = " 0 "  CELLPADDING = " 0 " >
   < TR ID = " NoScript " >
     < TD Align = " Center "  Style = " Color:White " > 对不起，图片浏览功能需脚本支持，但您的浏览器已经设置了禁止脚本运行。请您在浏览器设置中调整有关安全选项。 </ TD >
   </ TR >
   < TR Style = " Display:none "  ID = " CanRunScript " >
     < TD HEIGHT = " 100% "  Align = " Center "  vAlign = " Center " >
       < Img ID = " Img "  Border = " 0 "   >
     </ TD >
   </ TR >
   < TR Style = " Display:none " >
     < TD >< Img ID = " TempImg "  Border = " 0 " ></ TD >
   </ TR >
  
</ TABLE >

< Script Language = " VBScript " >
  NoScript.Style.Display  =   " none"
  CanRunScript.Style.Display  =   " "
  Img.Src  =  FileListArr( 0 )
  SetTimeout  " ChangeImg " , PlayImg_M
</ Script >

转载于:https://www.cnblogs.com/NetTank32/archive/2005/01/19/94343.html