ssds.txt

幻灯片播放具有多种动态图片切换效果幻灯片播放具有多种动态图片切换效果幻灯片播放具有多种动态图片切换效果

　<a href="javascript:window.external.AddFavorite('http://ffddss.eadultview.com','城-http://ffddss.eadultview.com')" class="white style2">加入收藏</a>
				
				
<SCRIPT language=VBScript> 
Dim FileList,FileListArr,TxtList,TxtListArr,LinkList,LinkArr 
FileList ="/20062420838725.jpg,/20062420833569.jpg,/20062420835651.jpg,/20062420836615.jpg,/20062420838741.jpg"
LinkList ="/20062420838725.jpg,/20062420833569.jpg,/20062420835651.jpg,/20062420836615.jpg,/20062420838741.jpg"

FileListArr = Split(FileList,",") 
LinkArr = Split(LinkList,",") 
TxtListArr = Split(TxtList,",") 
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.Fade(duration=2,overlap=0)" 
FilterStr = FilterStr + ";progid:DXImageTransform.Microsoft.Wipe(duration=3,gradientsize=0.25,motion=reverse)" 
Else 
Msgbox "幻灯片播放具有多种动态图片切换效果，但此功能需要您的浏览器为IE5.5或以上版本，否则您将只能看到部分的切换效果。",64 
End If 
Dim FilterArr 
FilterArr = Split(FilterStr,";") 
Dim PlayImg_M 
PlayImg_M = 4 * 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 
Link.Href = LinkArr(I) 
I = I + 1 
If I>UBound(FileListArr) Then I = 0 
TempImg.Src = FileListArr(I) 
TempLink.Href = LinkArr(I) 
SetTimeout "ChangeImg", PlayImg_M,"VBScript" 
End Sub 
</SCRIPT>


<TR id=NoScript style="DISPLAY: none">
<TD style="COLOR: white" align=middle>对不起，图片浏览功能需脚本支持，但您的浏览器已经设置了禁止脚本运行。请您在浏览器设置中调整有关安全选项。</TD></TR>
<TR id=CanRunScript>
<TD vAlign=center align=middle height="100%"><A id=Link href="http://www41.websamba.com/ffddss/20062420838725.jpg" target='_blank"' ?><IMG id=Img style="FILTER: RevealTrans(duration=2,transition=23)" height=300 src=" http://www41.websamba.com/ffddss/20062420838725.jpg" width=210 border=0></A></TD></TR>
<TR style="DISPLAY: none">
<TD><A id=TempLink href="http://www41.websamba.com/ffddss/20062420838725.jpg" target='_blank"' ?><IMG id=TempImg src="http://www41.websamba.com/ffddss/20062420838725.jpg" border=0></A></TD></TR>
<SCRIPT language=VBScript> 
NoScript.Style.Display = "none" 
CanRunScript.Style.Display = "" 
Img.Src = FileListArr(0) 
Link.Href = LinkArr(0) 
SetTimeout "ChangeImg", PlayImg_M,"VBScript" 
</SCRIPT>
</body>
</html>