在一网站上看到一效果！请大家研究一下！

今天上一网站，看到一图片百叶窗的效果，可是想了半天也没有想出来是怎么做的！大家看看有谁知道是怎么做的能否把做法帖出来啊？ [s:7]  [s:7]  [s:6]


[url]http://www.apoints.com/[/url]

[run]<SCRIPT language=JavaScript>
<!--
function objSP_Article() {this.ImgUrl=""; this.LinkUrl=""; this.Title="";}
function SlidePic_Article(_id) {this.ID=_id; this.Width=0;this.Height=0; this.TimeOut=5000; this.Effect=21; this.TitleLen=0; this.PicNum=-1; this.Img=null; this.Url=null; this.Title=null; this.AllPic=new Array(); this.Add=SlidePic_Article_Add; this.Show=SlidePic_Article_Show; this.LoopShow=SlidePic_Article_LoopShow;}
function SlidePic_Article_Add(_SP) {this.AllPic[this.AllPic.length] = _SP;}
function SlidePic_Article_Show() {
  if(this.AllPic[0] == null) return false;
  document.write("<div align='center'><a id='Url_" + this.ID + "' href=''><img id='Img_" + this.ID + "' style='width:" + this.Width + "px; height:" + this.Height + "px; filter: revealTrans(duration=2,transition=21);' src='javascript:null' border='0'></a>");
  if(this.TitleLen != 0) document.write("<br><span id='Title_" + this.ID + "'></span></div>");
  this.Img = document.getElementById("Img_" + this.ID);
  this.Url = document.getElementById("Url_" + this.ID);
  this.Title = document.getElementById("Title_" + this.ID);
  this.LoopShow();
}
function SlidePic_Article_LoopShow() {
  if(this.PicNum<this.AllPic.length-1) this.PicNum++ ;
  else this.PicNum=0;
  this.Img.filters.revealTrans.Transition=this.Effect;
  this.Img.filters.revealTrans.apply();
  this.Img.src=this.AllPic[this.PicNum].ImgUrl;
  this.Img.filters.revealTrans.play();
  this.Url.href=this.AllPic[this.PicNum].LinkUrl;
  if(this.Title) this.Title.innerHTML="<a href="+this.AllPic[this.PicNum].LinkUrl+" target=_blank>"+this.AllPic[this.PicNum].Title+"</a>";
  this.Img.timer=setTimeout(this.ID+".LoopShow()",this.TimeOut);
}
//-->
</SCRIPT>

<SCRIPT language=JavaScript>
<!--
var SlidePic_646 = new SlidePic_Article("SlidePic_646");
SlidePic_646.Width    = 250;
SlidePic_646.Height   = 190;
SlidePic_646.TimeOut  = 5000;
SlidePic_646.Effect   = 21;
SlidePic_646.TitleLen = 30;
var oSP = new objSP_Article();
oSP.ImgUrl         = "http://www.7880.com/up_img/info_1.jpg";
oSP.LinkUrl        = "http://bbs.7880.com";
oSP.Title         = "破釜沉舟图片展--1";
SlidePic_646.Add(oSP);
var oSP = new objSP_Article();
oSP.ImgUrl         = "http://www.7880.com/up_img/info_2.jpg";
oSP.LinkUrl        = "http://bbs.7880.com";
oSP.Title         = "破釜沉舟图片展--6";
SlidePic_646.Add(oSP);
var oSP = new objSP_Article();
oSP.ImgUrl         = "http://www.7880.com/up_img/info_3.jpg";
oSP.LinkUrl        = "破釜沉舟图片展--5";
oSP.Title         = "优秀的平面广告作品欣赏";
SlidePic_646.Add(oSP);
var oSP = new objSP_Article();
oSP.ImgUrl         = "http://www.7880.com/up_img/info_4.jpg";
oSP.LinkUrl        = "破釜沉舟图片展--4";
oSP.Title         = "cresta 国际广告设计奖—平面类";
SlidePic_646.Add(oSP);
var oSP = new objSP_Article();
oSP.ImgUrl         = "http://www.7880.com/up_img/info_5.jpg";
oSP.LinkUrl        = "破釜沉舟图片展--3";
oSP.Title         = "历届戛纳电影节海报";
SlidePic_646.Add(oSP);
var oSP = new objSP_Article();
oSP.ImgUrl         = "http://www.7880.com/up_img/info_6.jpg";
oSP.LinkUrl        = "破釜沉舟图片展--2";
oSP.Title         = "2005中国台湾国际海报设计奖获奖";
SlidePic_646.Add(oSP);
SlidePic_646.Show();
//-->
</SCRIPT>

[/run]

JS看得头痛！

啊哦，真的很晕！！要是有中文注释那就更好了，嘿嘿 [s:2]  [s:2]  [s:2]

[s:7]  [s:7]

这是个图片随机滤镜效果是个VB脚本,有24中不同的效果！我以前在论坛都写过一次了！

但是我发现个问题，在我的电脑上能正常显示但是在论坛上就看不到效果了 ！
怀疑是代码不支持的问题，所以我把附件上传上来

这个不错，效果不错，看来你对脚本挺有研究，有空的时候能不能开课啊！嘿 [s:7]

效果很好...达人啊,没事的话就多上来发点东西,呵呵

值得学习，谢谢

可以改动一个数字就可以改变效果了！

以前改过这玩意

支持下~！

那23种转换图片效果好象会用

我不懂代码的问题