[转]VBscript超强幻灯片效果代码

FROM:http://www.yy-s.com/Article/wyzz/sjjs/200504/1844.html

<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="50%" height="50%" 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)
  Img.Width = 400
  Img.Height = 300
  SetTimeout "ChangeImg", PlayImg_M
</Script>

时间： 2024-08-28 06:43:47

[转]VBscript超强幻灯片效果代码的相关文章

JS超强幻灯片效果代码

根据网友<VBscript超强幻灯片效果代码>改写而来:). 因为我发现将VBS用在网页中时, 如果再调用JS代码会出现莫名其妙的错误,但是网页中全用JS代码后就不出现错误了,所以把网友的VBS改成了JS. slide.js源代码:   //超强幻灯片效果  var temp_arr1 = navigator.appVersion.split(";")  var temp_arr2 = temp_arr1[1].split(" ")  var CanPl

js淡入淡出焦点图幻灯片效果代码分享_javascript技巧

本文实例讲述了javascript淡入淡出焦点图幻灯片效果.分享给大家供大家参考.具体如下: 这是一款基于javascript实现的淡入淡出焦点图幻灯片效果代码,可以自定义标题,实现过程很简单. 运行效果图:-------------------查看效果 下载源码------------------- 小提示:浏览器中如果不能正常运行,可以尝试切换浏览模式. 为大家分享的js淡入淡出焦点图幻灯片效果代码如下 <head> <meta http-equiv="Content-Ty

基于jquery 从左向右切换幻灯片效果代码

从左向右幻灯片切换有点一像看书一样的效果,很多商城是用这种,我们先来看看效果图片. 我们切换一下效果如下 不错吧,下面来分析实现代码. jquery代码(jquery文件大家可以到官网去下载,这里不提供)  代码如下 复制代码 <script type="text/javascript" src="/jquery-1.4.min.js"></script> <script type="text/javascript"

使用 JavaScript 创建可维护的幻灯片效果代码第1/3页_javascript技巧

第一步:分析问题(Analizing the problem) 创建一个好的脚本,第一步应该是去分析哪些是你要完成的:我们想要创建一个照片的幻灯片效果,并且我们想要保持维护的方便. 如何创建一个幻灯片效果 在一个网站上拥有幻灯片有几种方法: 在文档中包含所有的图片.  当他运行在无 JavaScript 状态,这是一个安全的选择.而且,当页面被载完,所有的图片也会将被载完.然而,这个方式只适用于少量的图片.  在文档中包含第一张图片,并且有一个创建幻灯片功能的服务器端脚本.  这也是相当安全的,

Javascript 自动播放幻灯片效果代码

 代码如下 复制代码 <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html xmlns="http://www.w3.org/1999/xhtml"> <head> <meta http-equiv=&qu

基于jquery图片幻灯片效果代码

先来看看效果图片 代码如下,jquery文件大家可以到http://down.111cn.net去下载,这里就不给出来了  代码如下 复制代码 <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html xmlns="http://www.w3.

jquery特效 幻灯片效果示例代码

jquery特效中的幻灯片想必大家已不陌生吧,下面为大家分享个比较不错的幻灯片效果,附有源码,感兴趣的朋友可以学习下哈   jquery特效 幻灯片效果,效果图如下:   复制代码 代码如下: <!DOCTYPE html> <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=utf8" /> <title>jq

jquery的幻灯片图片切换效果代码分享_jquery

本文实例讲述了jquery的幻灯片图片切换效果.分享给大家供大家参考.具体如下: 这是一款基于jquery的幻灯片图片切换效果代码,有缩略图和标题,可以自定义标题. 运行效果图:     -------------------查看效果 下载源码------------------- 小提示:浏览器中如果不能正常运行,可以尝试切换浏览模式. (1)在head区域引入CSS样式: <LINK rel=stylesheet type=text/css href="css/lrtk.css&quo

jquery带动画效果幻灯片特效代码_jquery

本文实例讲述了jquery带动画效果幻灯片插件devrama.slider.分享给大家供大家参考.具体如下: jquery带动画效果幻灯片插件devrama.slider是一款可以在焦点图中嵌入html内容和文字动画效果,运行时可出现图文层叠显示效果,且图片下方伴有进度条效果. 运行效果图:                                 -------------------查看效果 下载源码------------------- 小提示:浏览器中如果不能正常运行,可以尝试切换