图片轮显效果大全

综合各种效果的图片轮显

<SCRIPT language="VBScript">
Dim FileList,FileListArr,TxtList,TxtListArr
FileList = "http://et.21cn.com/portray/images/if/01.jpg,http://et.21cn.com/portray/images/if/02.jpg,http://et.21cn.com/portray/images/if/03.jpg"
TxtList = "<a href=http://www.licns.com/ target=_blank>在这里加入你的连接1</a>,<a href=http://www.licns.com/ target=_blank>在这里加入你的连接2</a>,<a href=http://www.licns.com/ target=_blank>在这里加入你的连接3</a>"
FileListArr = Split(FileList,",")
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.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)"
FilterStr = FilterStr + ";progid:DXImageTransform.Microsoft.Pixelate(MaxSquare=15,Duration=1)"
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 = 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
Txt.filters(0).Apply
Txt.innerHTML = TxtListArr(I)
Txt.filters(0).play()
I = I + 1
If I>UBound(FileListArr) Then I = 0
TempImg.Src = FileListArr(I)
SetTimeout "ChangeImg", PlayImg_M,"VBScript"
End Sub
</SCRIPT>
<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" height="290" width="300" Border="0" ></TD></TR><TR Style="Display:none"><TD><Img ID="TempImg" Border="0"></TD></TR><TR><TD HEIGHT="100%" Align="Center" vAlign="Center"><div ID="Txt" style="PADDING-LEFT: 5px; Z-INDEX: 1; FILTER: progid:DXImageTransform.Microsoft.Fade(duration=1,overlap=0); POSITION:"><a href=http://www.licns.com/ target=_blank>在这里加入你的连接1</a></div></TD></TR></TABLE>
<Script Language="VBScript">
NoScript.Style.Display = "none"
CanRunScript.Style.Display = ""
Img.Src = FileListArr(0)
SetTimeout "ChangeImg", PlayImg_M,"VBScript"
</Script>

 

 

 

腾讯的用Flash调用图片轮显

<script type="text/javascript">
 <!--
 
 var focus_width=255
 var focus_height=200
 var text_height=18
 var swf_height = focus_height+text_height
 
 var pics='http://img1.qq.com/sports/20060102/2958063.jpg|http://img1.qq.com/sports/20060101/2955633.jpg|http://img1.qq.com/sports/20051229/2936827.jpg|http://img1.qq.com/sports/20051227/2920636.jpg'
 var links='http://sports.qq.com/a/20060101/000514.htm|http://sports.qq.com/a/20060101/000053.htm|http://sports.qq.com/a/20051229/000159.htm|http://sports.qq.com/a/20051227/000023.htm'
 var texts='曲圣卿打进一球两次助攻 阿德莱德大胜|曼城客场被逼平 继海首发多次制造杀机|继海打满全场表现尚可 曼城不敌切尔西|曼城落败 孙继海险助攻'
 
 document.write('<object class>>

 最主要的图片轮显

<script language=JavaScript>
var imgUrl=new Array();
var imgLink=new Array();
var adNum=0;
imgUrl[1]="http://image2.sina.com.cn/lx/nx/2006/0207/U1275P8T1D227041F918DT20060220173712.jpg"; 
imgLink[1]="http://eladies.sina.com.cn/bbs/p/2006/0220/17268791.html"; 
imgUrl[2]="http://image2.sina.com.cn/lx/nx/2006/0128/U1275P8T1D226214F918DT20060128200332.jpg"; 
imgLink[2]="http://eladies.sina.com.cn/pic/special/198/554.html";
imgUrl[3]="http://image2.sina.com.cn/lx/beauty1/2006/0218/U1275P8T1D229151F916DT20060220180508.jpg"; 
imgLink[3]="http://blog.sina.com.cn/u/45f2dd64010001yg";
imgUrl[4]="http://image2.sina.com.cn/lx/nx/2006/0210/U1275P8T1D227877F1086DT20060213161341.jpg"; 
imgLink[4]="http://eladies.sina.com.cn/bbs/2006/0213/16048576.html";
     var imgPre=new Array();
>

 

21cn写真频道图片切换代码

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<META content="MSHTML 6.00.2800.1476" name=GENERATOR></HEAD>
<BODY leftMargin=0 topMargin=0 marginheight="0" marginwidth="0">
<TABLE width=330 height="250" border=0 cellPadding=0 cellSpacing=0 bgcolor="434343">
  <TBODY>
    <TR> 
      <TD width=330 bgcolor="434343"> 
        <CENTER>
          <DIV id=oTransContainer 
      style="FILTER: progid:DXImageTransform.Microsoft.Wipe(GradientSize=1.0, 
                        wipeStyle=0, motion='forward'); WIDTH: 330px; HEIGHT: 250px"><a 
      href="?SenFe=List&Id=466298" target=_blank><img src="http://et.21cn.com/portray/images/if/01.jpg" width=330 
      height=250 border=0 align="absmiddle" id=oDIV1 
      ></a> <a 
      href="?SenFe=List&Id=399878" 
      target=_blank><img src="http://et.21cn.com/portray/images/if/02.jpg" width=330 
      height=250 border=0 align="absmiddle" id=oDIV2 
      style="DISPLAY: none"></a><a
      href="?SenFe=List&Id=466294" 
      target=_blank><img src="http://et.21cn.com/portray/images/if/03.jpg" width=330 
      height=250 border=0 align="absmiddle" id=oDIV3 
      style="DISPLAY: none"></a><a 
      href="?SenFe=List&Id=466296" 
      target=_blank><img src="http://et.21cn.com/portray/images/if/04.jpg" width=330 
      height=250 border=0 align="absmiddle" id=oDIV4
      style="DISPLAY: none"></a></DIV>
        </CENTER>
>

加上了鼠标的特效的

<script language="JavaScript">
var elady_step=3;    //1:small, 3:middle, 5:big
var elady_speed=50;    //20:fast, 50:middle, 80:slow
var e_tp=new Array();
var e_tplink=new Array();
var adNum_elady1=0;  
var elady_stop_sh=0;
var elady_star_sh=1;

>

图片和文字一起显示的

<SCRIPT LANGUAGE=JavaScript>
var imgUrl=new Array();
var imgLink=new Array();
var imgtext=new Array();
var imgsumm=new Array();
var adNum=0;


imgUrl[1]="http://et.21cn.com/portray/images/if/01.jpg";
imgtext[1]="[组图]第16期 我型我塑 "
imgLink[1]="http://www.licns.com/";
imgsumm[1]="   摩羯座的猫猫是个安静的女孩，面对镜头总是略带羞涩。";



imgUrl[2]="http://et.21cn.com/portray/images/if/02.jpg";
imgtext[2]="实录：从“三陪女”到“二奶”"
imgLink[2]="http://www.licns.com";
imgsumm[2]="   “二奶”的日子是快乐的，但后遗症却是最深的痛……";


imgUrl[3]="http://et.21cn.com/portray/images/if/03.jpg";
imgtext[3]="家饰：[组图]我爱抱心肝宝贝"
imgLink[3]="http://www.licns.com/";
imgsumm[3]="   我们已经不再满足于中规中矩,四角形模样的抱枕...";

var imgPre=new Array();
var count=0;
>

相似于Flash制作的一个图片展示效果

<html>
<head>
<title>相似于Flash制作的一个图片展示效果</title>
<meta name="Author" content="http://www.webjx.com">
<meta http-equiv="imagetoolbar" content="no">
>