带复选框的列表框[网页特效代码]

作者：Eve Cole 更新时间：2009-06-20 15:54:25

<script language=JavaScript> var imgUrl=new Array(); var imgLink=new Array(); var adNum=0; imgUrl[1]="/img/200406301.jpg"; imgLink[1]="/js"; imgUrl[2]="/img/200406302.jpg"; imgLink[2]="/js"; imgUrl[3]="/img/200406303.jpg"; imgLink[3]="/js"; imgUrl[4]="/img/200406304.jpg"; imgLink[4]="/js"; imgUrl[5]="/img/200406305.jpg"; imgLink[5]="/js"; var imgPre=新数组();变量j=0； for (i=1;i<=5;i++) { if( (imgUrl[i]!="") && (imgLink[i]!="") ) { j++; } 否则{ 中断; } } 函数 playTran(){ if (document.all) imgInit.filters.revealTrans.play(); } var 键=0;函数 nextAd(){ if(adNum<j)adNum++ ;否则 adNum=1; if( key==0 ){ key=1; } else if (document.all){ imgInit.filters.revealTrans.Transition=6; imgInit.filters.revealTrans.apply();播放Tran(); } document.images.imgInit.src=imgUrl[adNum]; theTimer=setTimeout("nextAd()", 5000); } 函数 goUrl(){ JumpUrl=imgLink[adNum];跳跃目标='_self'; if (jumpUrl != ''){ if (jumpTarget != '') window.open(jumpUrl,jumpTarget);否则 location.href=jumpUrl; } } </script> <a href="javascript:goUrl()"><div aligm=right><img style="FILTER: RevealTrans(duration=2,transition=6);border-color:#000000;color :#000000" src="javascript:nextAd()" width=150 border=1 class=moviepic name=imgInit height="200"></div></a>