繁體中文当前位置: 首页 > 图文教程 > 网页制作 > HTML/XHTML教程 > VBscript超强幻灯片效果代码
- HTML/XHTML教程
- HTML5之后W3C将制定无版本号的HTML
- IE6必然灭亡的最新6个理由
- 网页制作教程:单独对IE6进行兼容
- Firefox 3.6频繁崩溃的问题
- HTML5的发展:微格式和相关的属性名称
- Chrome最新4.0版本支持GreaseMonkey脚本
- 网页前端常见的攻击方式和预防攻击办法
- HTML5标准将把互联网视频扔回到黑暗时代
- 靠我们自己的力量把IE6推向灭亡
- 近期热点:HTML5是否真的可以取代Flash
- 网页知识新手了解：网页设计的发展历史
- TinyEditor:简洁且易用的html所见即所得编辑器
- ANSI，Unicode，UTF-8网页编码的区别
- HTML5实例:20个使用HTML5编写的网站
- 网页表单设计:主要行为与次要行为
- HTML网页实例代码:简洁漂亮的跳转等待页面
- 经验分享:关于网页布局排版的流程问题
- W3C发布7个HTML工作草案
- HTML5 旨在解决 Web 中的交互
- 网页优化的最基础部分:HTML的优化
HTML/XHTML教程 中的 VBscript超强幻灯片效果代码
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-11-04 浏览: 65 ::
收藏到网摘: n/a
<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"
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)
评论 (0) All
