通过程序进行控制图片显示幻灯片效果

通过程序进行控制图片显示幻灯片效果

首要条件：添加vbscript脚本代码，如下：

 1    < SCRIPT language = VBScript >
 2  Dim FileList,FileListArr,TxtList,TxtListArr,LinkList,LinkArr
 3  FileList  =   " 图片1.jpg,图片2.jpg,图片3.jpg "
 4  LinkList  =   " 链接地址1,链接地址2,链接地址3 "
 5  TxtList  =   " 水印文字1;水印文字2,水印文字3 "
 6  FileListArr  =  Split(FileList, " , " )
 7  LinkArr  =  Split(LinkList, " , " )
 8  TxtListArr  =  Split(TxtList, " , " )
 9  Dim CanPlay
10  CanPlay  =  CInt(Split(Split(navigator.appVersion, " ; " )( 1 ), "   " )( 2 )) > 5
11  Dim FilterStr
12  FilterStr  =   " RevealTrans(duration=2,transition=23) "
13  FilterStr  =  FilterStr  +   " ;BlendTrans(duration=2) "
14  If CanPlay Then
15  FilterStr  =  FilterStr  +   " ;progid:DXImageTransform.Microsoft.Fade(duration=2,overlap=0) "
16  FilterStr  =  FilterStr  +   " ;progid:DXImageTransform.Microsoft.Wipe(duration=3,gradientsize=0.25,motion=reverse) "
17  Else
18  Msgbox  " 幻灯片播放具有多种动态图片切换效果，但此功能需要您的浏览器为IE5.5或以上版本，否则您将只能看到部分的切换效果。 " , 64
19  End If
20  Dim FilterArr
21  FilterArr  =  Split(FilterStr, " ; " )
22  Dim PlayImg_M
23  PlayImg_M  =   5   *   1000   
24  Dim I
25  I  =   1
26  Sub ChangeImg
27  Do While FileListArr(I) = ""
28  I  =  I  +   1
29  If I > UBound(FileListArr) Then I  =   0
30  Loop
31  Dim J
32  If I > UBound(FileListArr) Then I  =   0
33  Randomize
34  J  =  Int(Rnd  *  (UBound(FilterArr) + 1 ))
35  Img.style.filter  =  FilterArr(J)
36  Img.filters( 0 ).Apply
37  Img.Src  =  FileListArr(I)
38  Img.filters( 0 ).play
39  Link.Href  =  LinkArr(I)
40  I  =  I  +   1
41  If I > UBound(FileListArr) Then I  =   0
42  TempImg.Src  =  FileListArr(I)
43  TempLink.Href  =  LinkArr(I)
44  SetTimeout  " ChangeImg " , PlayImg_M, " VBScript "
45  End Sub
46  </ SCRIPT >

其次需要在页面中进行如下代码：

 1  < TABLE height = " 100% "  cellSpacing = 0  cellPadding = 0  width = " 100% "  
 2              border = 0 >
 3                 < TBODY >
 4                 < TR id = NoScript >
 5                   < TD style = " COLOR: white "  
 6                    align = middle > 对不起，图片浏览功能需脚本支持，但您的浏览器已经设置了禁止脚本运行。请您在浏览器设置中调整有关安全选项。 </ TD ></ TR >
 7                 < TR id = CanRunScript style = " DISPLAY: none " >
 8                   < TD vAlign = center align = middle height = " 100% " >< A id = Link 
 9                    target = ' _blank" '   ?>< IMG id = Img height = 219  width = 429  
10                    border = 0 ></ A ></ TD ></ TR >
11                 < TR style = " DISPLAY: none " >
12                   < TD >< A id = TempLink target = ' _blank" '   ?>< IMG id = TempImg 
13                    border = 0 ></ A ></ TD ></ TR ></ TBODY ></ TABLE >
14               < SCRIPT language = VBScript >
15  NoScript.Style.Display  =   " none "
16  CanRunScript.Style.Display  =   ""
17  Img.Src  =  FileListArr( 0 )
18  Link.Href  =  LinkArr( 0 )
19  SetTimeout  " ChangeImg " , PlayImg_M, " VBScript "
20  </ SCRIPT >
21               </ P ></ TD ></ TR ></ TBODY ></ TABLE >

显示出来的效果图，会如flash制作一样的效果图，有各种各样的幻灯片效果