完美的滚动.txt

来自「javascript 特效40个」· 文本 代码 · 共 46 行

<table width="126" height="148" border="0" align="center" bordercolor="#FF0000">
  
    
  <TR><TD width=120 height="144" align="center">
                  <DIV id=rolllink style="OVERFLOW: hidden; WIDTH: 100px; HEIGHT: 100px" align="center">
                  <DIV id=rolllink1>
                  <TABLE width="109" height="129" border="0" align=center cellSpacing=0 bordercolor="#33CCFF">
                    <TBODY>
                    <TR  align=middle>
                      <TD width=122 align="center">sdfsdfdf</TD>
                    </TR>
                    <TR  align=middle>
                      <TD width=122 align="center"><a href="classchange.html">sdfasfdfd</a></TD>
                    </TR>
                    <TR  align=middle>
                      <TD width=122 align="center">sdfdfdfsdf</TD>
                    </TR>
                    <TR  align=middle>
                      <TD align="center">dffdfgh</TD>
                    </TR>
                    <TR  align=middle>
                      <TD align="center">dfsaafsdf</TD>
                    </TR>
                    <TR  align=middle>
                    <TD width=122 align="center">4445</TD>
                    </TR></TBODY></TABLE>
                  </DIV>
                  <DIV id=rolllink2></DIV></DIV>
                  <SCRIPT>
   var rollspeed=30
   rolllink2.innerHTML=rolllink1.innerHTML //克隆rolllink1为rolllink2
   function Marquee(){
   if(rolllink2.offsetTop-rolllink.scrollTop<=0) //当滚动至rolllink1与rolllink2交界时
   rolllink.scrollTop-=rolllink1.offsetHeight  //rolllink跳到最顶端
   else{
   rolllink.scrollTop++
   }
   }
   var MyMar=setInterval(Marquee,rollspeed) //设置定时器
   rolllink.onmouseover=function() {clearInterval(MyMar)}//鼠标移上时清除定时器达到滚动停止的目的
   rolllink.onmouseout=function() {MyMar=setInterval(Marquee,rollspeed)}//鼠标移开时重设定时器
											</SCRIPT>
											
											&nbsp;</td>
  </tr>
</table>