上下滚动代码

1. <DIV style="WIDTH: 230px; HEIGHT: 200px; OVERFLOW: hidden" id=rolllink>
   
2. <DIV id=rolllink1>
   
3. <TABLE cellSpacing=1 width="100%">
   
4.    <TBODY>
   
5.        <TR align=middle>
   
6.            <TD width=230><A  href="http://www.ermudi.cn"  target=_blank>石家庄网站建设</A></TD>
   
7.        </TR>
   
8.        <TR align=middle>
   
9.            <TD width=230><A  href="http://www.ermudi.cn"  target=_blank>石家庄网站建设</A></TD>
   
10.        </TR>
    
11.        <TR align=middle>
    
12.             <TD width=230><A  href="http://www.ermudi.cn"  target=_blank>石家庄网站建设</A></TD>
    
13.        </TR>
    
14.        <TR align=middle>
    
15.             <TD width=230><A  href="http://www.ermudi.cn"  target=_blank>石家庄网站建设</A></TD>
    
16.        </TR>
    
17.        <TR align=middle>
    
18.             <TD width=230><A  href="http://www.ermudi.cn"  target=_blank>石家庄网站建设</A></TD>
    
19.        </TR>
    
20.                                  
    
21.                                 </TBODY>
    
22.                               </TABLE>
    
23.                             </DIV>
    
24.                           <DIV id=rolllink2></DIV>
    
25.                         </DIV>
    
26.                             <SCRIPT>
    
27.    var rollspeed=30
    
28.    rolllink2.innerHTML=rolllink1.innerHTML //克隆rolllink1为rolllink2
    
29.    function Marquee(){
    
30.    if(rolllink2.offsetTop-rolllink.scrollTop<=0) //当滚动至rolllink1与rolllink2交界时
    
31.    rolllink.scrollTop-=rolllink1.offsetHeight  //rolllink跳到最顶端
    
32.    else{
    
33.    rolllink.scrollTop++
    
34.    }
    
35.    }
    
36.    var MyMar=setInterval(Marquee,rollspeed) //设置定时器
    
37.    rolllink.onmouseover=function() {clearInterval(MyMar)}//鼠标移上时清除定时器达到滚动停止的目的
    
38.    rolllink.onmouseout=function() {MyMar=setInterval(Marquee,rollspeed)}//鼠标移开时重设定时器
    
39.     </SCRIPT>

复制代码