《网页制作案例》综合编程实例

例4-1网页中文字上下滚动循环显示(程序名: Scroll. html) title>文字上下滚动循环显示 messages=new Array messages[O]=“欢迎使用本书学习“ messages[l=“这里有织网梦工厂 messages[2]=“是网页初学者的最佳选择0&&layer top=layer document. height*-1)4 else thayer. top=scrollerheight thayer. document. write(messages) layer document. close( (i-messages length-1) else thayer 2=eval( whichlayer) if (layer 2. top>0&&layer 2. top<=5)( set Timeout("movel(document. main document. first), 3000) return; if (layer 2 layer 2.document. height*-1)i

例 4-1 网页中文字上下滚动循环显示(程序名：Scroll.html)。 文字上下滚动循环显示 var messages=new Array() messages[0]=“欢迎使用本书学习“ messages[1]=“这里有织网梦工厂“ messages[2]=“是网页初学者的最佳选择“ messages[3]=“这里有…………有精彩的内容等着你“ var scrollerwidth=320 var scrollerheight=100 var scrollerbgcolor='#FFFFFF' if (messages.length>1) i=2 else i=0 function move1(whichlayer){ tlayer=eval(whichlayer) if (tlayer.top>0&&tlayer.top=tlayer.document.height*-1){ tlayer.top-=5 setTimeout(“move1(tlayer)”,100)} else{ tlayer.top=scrollerheight tlayer.document.write(messages[i]) tlayer.document.close() if (i==messages.length-1) i=0 else i++}} function move2(whichlayer){ tlayer2=eval(whichlayer) if (tlayer2.top>0&&tlayer2.top=tlayer2.document.height*-1){

set Timeout( "move2(thayer 2),100) tlayer2.document. write(messages()) thayer 2 document. close if(i-messages length-1) else function move3(whichdiv)i if (tdiv style. pixel Top>0&&tdiv style. pixel Top=tdiv offset Height*-1)( tdiv style. pixeITop-=5 setTimeout("move3(tdiv), 100)) tdiv style. pixe tdiv innerHTML=messages[1 if(i==messages. length-1) else function move 4(whichdiv)i if (tdiv 2 style. pixel Top>0&&tdiv2 style pixel Top=tdiv 2. offsetHeight*-1)i tdiv 2 style. pixel Top- tdiv2. innerHTML=messages[] else

tlayer2.top-=5 setTimeout(“move2(tlayer2)”,100)} else{ tlayer2.top=scrollerheight tlayer2.document.write(messages[i]) tlayer2.document.close() if (i==messages.length-1) i=0 else i++}} function move3(whichdiv){ tdiv=eval(whichdiv) if (tdiv.style.pixelTop>0&&tdiv.style.pixelTop=tdiv.offsetHeight*-1){ tdiv.style.pixelTop-=5 setTimeout(“move3(tdiv)”,100)} else{ tdiv.style.pixelTop=scrollerheight tdiv.innerHTML=messages[i] if (i==messages.length-1) i=0 else i++}} function move4(whichdiv){ tdiv2=eval(whichdiv) if (tdiv2.style.pixelTop>0&&tdiv2.style.pixelTop=tdiv2.offsetHeight*-1){ tdiv2.style.pixelTop-=5 setTimeout(“move4(second2)”,100)} else{ tdiv2.style.pixelTop=scrollerheight tdiv2.innerHTML=messages[i] if (i==messages.length-1) i=0 else i++}}

function startscrollOi move3(first2) ond2, style. top=scrollerheight movel(document. main document first) document. main document second. to overheight+5 document. main document. second visibility=show)) window. onload=startscroll if(document layer document. write( messages[) clayer id="second"left=0 top=0 width=&(scrollerwidth;; visibility=hide> if( document all)i document writeln() document writeln( ) document. write( messages[1]) document writeIn() document writeln()

function startscroll(){ if (document.all){ move3(first2) second2.style.top=scrollerheight} else if (document.layers){ move1(document.main.document.first) document.main.document.second.top=scrollerheight+5 document.main.document.second.visibility='show'}} window.onload=startscroll if (document.layers) document.write(messages[0]) if (document.layers) document.write(messages[1]) if (document.all){ document.writeln('') document.writeln('') document.writeln('') document.write(messages[0]) document.writeln('') document.writeln('') document.write(messages[1]) document.writeln('') document.writeln('') document.writeln('') }

程序 Scrollhtml运行后得结果是网页中上下滚动循环显示几行文字,如图44、 4-7所示 3文字上下滚动籍环显示- icrosoft∴回 文件)编辑)查看)收藏④)工具① 后:②冈户搜索 地址①)):01:am转到链接 欢迎使用本书学习 我的电脑 图4-4显示文字之 2文字上下淒动籍环显示-重 microsoft∴回回囟 文件C)编辑)查看)收藏④)工具〔) 后·国图的 搜索 地址①)]:x01NTP1204873Mm回转到链接 这里有织网梦工厂 图4-5显示文字之 文字上下淒动籍环显示-重 icrosoft-回区 文件)编辑)查看①)收藏)工具①) 搜索 地址①cHF1 sMacromedi转到 是网页初学者的最佳选择 图4-6显示文字之三

程序 Scroll.html 运行后得结果是网页中上下滚动循环显示几行文字，如图 4-4、4-5、4-6、 4-7 所示。 图 4-4 显示文字之一 图 4-5 显示文字之二 图 4-6 显示文字之三

3文宇上下液动籍环显示- microsoft回风 文件①)编辑吧)查看Q收藏)工具( ③后:②冈的户搜索 地址0)]1:T2087tn转到链接 这里有…………有精彩的内容等着你 完毕 我的电脑 图4-7显示文字之四

图 4-7 显示文字之四