滚动

<script language=javascript>
<!--
scrollpertime1=16; //每次滚动高度，象素，scrollpertime1乘10必须小于scrollinterval1
scrollinterval1=5000; //滚动间隔，毫秒
stopscroll1=false; //这个变量控制是否停止滚动
scrollcount1=0; //这个变量用于平滑滚动
//
var upDIV1=document.all.firstDiv1;
var downDIV1=document.all.secendDiv1;
var sing_h1=0;

with(document.all.mainDiv1)
...{
    onmouseover=new Function("stopscroll1=true"); //鼠标经过，停止滚动
    onmouseout=new Function("stopscroll1=false"); //鼠标离开，开始滚动
}

//这时候，内容区的高度是无法读取了。下面输出一个不可见的层"templayer"，稍后将内容复制到里面：
function inits1()
...{ //初始化滚动内容
    sing_h1=document.all.firstDiv1.offsetHeight
    if(sing_h1<=0)...{
setTimeout("inits1()",20);
return;
}
    document.all.secendDiv1.style.top=sing_h1;
    document.all.secendDiv1.innerHTML+=document.all.firstDiv1.innerHTML;
    //设置连续超时，调用"scrollUp1()"函数驱动滚动条：
    setInterval("scrollUp1()",scrollinterval1);
}

function scrollUp1()
...{ //滚动条的驱动函数
    if(stopscroll1==true && scrollcount1==0) return; //如果变量"stopscroll1"为真，则停止滚动 
    if(scrollcount1<scrollpertime1)
    ...{
        if(upDIV1.style.top=="")...{
            var prevTop1=0;
        } else ...{
            var prevTop1=parseInt(upDIV1.style.top)
        }
        if(downDIV1.style.top=="")...{
            var prevTop2=0;
        } else ...{
            var prevTop2=parseInt(downDIV1.style.top)
        }
        upDIV1.style.top=prevTop1-1;
        downDIV1.style.top=prevTop2-1;
        scrollcount1++;
        if(parseInt(upDIV1.style.top)<=-sing_h1)...{
            upDIV1.style.top=parseInt(downDIV1.style.top)+sing_h1
            var temp=upDIV1;
            upDIV1=downDIV1;
            downDIV1=temp;
        }
        //alert(upDIV1.style.top)
        setTimeout("scrollUp1()",20);
    }
    else
    ...{
        scrollcount1=0;
    }
}
//setTimeout("scrollUp1()",20);
inits1();
-->
</script>