如何制作一个股票滚屏显示面板？.docVIP

如何制作一个股票滚屏显示面板？ html? head? script? LANGUAGE=VBScript? !--? dim? j,arry1(10),arry2(10),arry3(10),arry4(10)? ｀分别定义滚动子段的数组? arry1(0)=随风起舞? arry1(1)=雁冰飘逸? arry1(2)=英特贝贝? arry1(3)=复旦晓桃? arry1(4)=日照河山? arry1(5)=栀子花香? arry1(6)=雨水绿花? arry1(7)=我心飞扬? arry1(8)=笑傲江湖? arry1(9)=精彩春风? arry2(0)=12.56? arry2(1)=56.50? arry2(2)=5.54? arry2(3)=23.11? arry2(4)=16.70? arry2(5)=14.00? arry2(6)=9.20? arry2(7)=12.30? arry2(8)=87.56? arry2(9)=12.30? arry3(0)=12.10? arry3(1)=55.70? arry3(2)=5.36? arry3(3)=22.80? arry3(4)=16.50? arry3(5)=13.60? arry3(6)=9.20? arry3(7)=12.89? arry3(8)=88.00? arry3(9)=12.56? arry4(0)=6.2%? arry4(1)=-5%? arry4(2)=1.2%? arry4(3)=8%? arry4(4)=-5.6%? arry4(5)=3%? arry4(6)=-3%? arry4(7)=4%? arry4(8)=-2.2%? arry4(9)=-6.3%? ｀滚动程序? Sub? toplay()? j=j+1? for? i=0? to? 4? a(i).innerhtml=show1(j-1+i)? b(i).innerhtml=show2(j-1+i)? c(i).innerhtml=show3(j-1+i)? d(i).innerhtml=show4(j-1+i)? next? if? j9? then? j=0? settimeout? toplay,2000? end? sub? function? show1(num)? if? num=10? then? show1=arry1(num-10)? else? show1=arry1(num)? end? if? end?function?function?show2(num)?if?num=10?then?show2=arry2(num-10)?else?show2=arry2(num)?end?if?end?function?function?show3(num)?if?num=10?then?show3=arry3(num-10)?else?show3=arry3(num)?end?if?end?function?function?show4(num)?if?num=10?then?show4=arry4(num-10)?else?show4=arry4(num)?end?if?end?function?--?/script?style?!--?td?{?font-size:9pt?}?--?/style? title精彩春风之股票滚屏显示/title /head?body?onload=toplay()?table?border=0?cellpat? dding=5? cellspacing=1? tr? td? bgcolor=red证券名称/td? td? bgcolor=red成交/td? td? bgcolor=red 开盘/td? td? bgcolor=red涨跌/td? /tr? %? for? i=0? to? 4? dim? bg? bg=F0EDE6? if? i? mod? 2=0? then? bg=D2E0F0? %? tr? td? id=a? bgcolor=%=bg%? align=right/td? td? id=b? bgcolor=%=bg%? align=right/td? td? id=c? bgcolor=%=bg%? align=right/td? td? id=d? bgcolor=