逐行滚动文字效果的Javascript实现

yoken 阅读：1915 2007-10-15 23:15:00 评论：0

/* 本程序根据21cn的一个版本改进而来。
* 原版本实现的思路是：在一个大小只有一行的层里生成一个表格，然后使用
* TABLE的scrollTop来实现逐行滚动。但这个方法只能在IE中正常运行，在Mozzila 就无法滚动。
* 改进后使用 IFrame 来代替原来的层，使用BODY的scrollTop来实现滚动。
* BTW：DannyKang 是我英文名写法。
*/

//FILE: scrolltext.js CREATED: DannyKang @ 2004-5-19
var stopscroll=false;
var preTop=0;
//var newTop=0;
var currentTop=0;
var stoptime=0;
var iInterval ;

function init_srolltext(){
document.body.scrollTop=0;
document.body.onmouseover = new Function("stopscroll=true");
document.body.onmouseout = new Function("stopscroll=false");
document.body.oncontextmenu = new Function("return false;");
document.body.onselectstart = new Function("return false;");
iInterval = setInterval("scrollUp()",25);
}

function scrollUp(){
if(stopscroll==true) return;
currentTop+=1; //每次滚动 1 个象素
if(currentTop==24){ //刚滚动完一行后(每行高23)
stoptime+=1; //停顿时间累计 1 个单位时间(25毫秒)
currentTop-=1; //滚动位移数恢复原值
if(stoptime==100){ //停顿时间累计 100 个单位时间后重新计算滚动位移和停顿时间
currentTop=0;
stoptime=0;
//if(confirm("One line end ...... \n\nok to stop , cancel to go on.")){clearInterval(iInterval);}
}
}else{
document.body.scrollTop = preTop +1; //滚动 1 个象素
if(preTop< document.body.scrollTop){
preTop = document.body.scrollTop ;
}
else {//如果滚动到末尾了(滚动跟没滚一样)
preTop = 1
document.body.scrollTop = 1;
//if(confirm("scroll to all text ending.......["+preTop+"/"+document.body.scrollTop+"] \n\nok to stop , cancel to go on.")){clearInterval(iInterval);}
}
}
}

init_srolltext(); //启动

/*调用页面的IFrame 写法*/
<iframe id="adtxt1" align="center" style="WIDTH: 590; HEIGHT: 23" src="index_js/adtxt1.htm" name="iframe1" frameborder="0" scrolling="no"></iframe>

/*滚动内容的HTML页面 adtxt1.htm 源代码*/
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD><TITLE>滚动新闻</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<STYLE type=text/css>
body,TD {
FONT-SIZE: 9pt
}
</STYLE>
<BODY scroll=no leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<table border=0 align="center" cellpadding=0 cellspacing=0>
<tr>
<td height=23 align="center" nowrap><a href="http://photo.zsnet.com/tounament/&quo ... "_blank">中山市“美好生活一瞬间”数码摄影比赛</a>　　
<a href="http://www.zsyjedu.net.cn/jianjie.htm" target=&quo ... t color="#FF0000">中国商业技师协会职业资格权威认证培训</font></a>
</td>
</tr>

<tr>
<td height=23 align="center" nowrap><a href="http://wh3351.zsnet.com/news/news_view.asp?news_ ... target="_blank">“好山好水好儿女”中山文化名人推广月</a>　　
<a href="http://news.zsnet.com/newscontent.asp?newsid=7 ... rget="_blank">中山市劳动和社会保障工作情况通报</a></td>
</tr>


<tr>
<td height=23 align="center" nowrap> <a href="http://photo.zsnet.com/tounament/&quo ... "_blank">中山市“美好生活一瞬间”数码摄影比赛</a>　　
<a href="http://www.zsyjedu.net.cn/jianjie.htm" target=&quo ... t color="#FF0000">中国商业技师协会职业资格权威认证培训</font></a>
</td>
</tr>
</table>

<SCRIPT language=JavaScript src="scrolltext.js"></SCRIPT>
</BODY>
</HTML>

/*调用页面演示效果见：http://www.zhongshan.gd.cn */

转载保留链接！网址：https://80920140.com/post/100.html

标签:win10

声明

1.本站遵循行业规范，任何转载的稿件都会明确标注作者和来源； 2.本站的原创文章，请转载时务必注明文章作者和来源，不尊重原创的行为我们将追究责任； 3.作者投稿可能会经我们编辑修改或补充。