首要條件：添加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制作一樣的效果圖，有各種各樣的幻燈片效果
posted on 2006-09-05 17:02
閔毓 閱讀(682)
評論(0) 編輯 收藏 所屬分類:
其他