dim Cnt,j,i,k
dim timerID
cnt=14
redim arry2(cnt)
redim arry3(cnt)
redim arry4(cnt)
redim arry5(cnt)
redim arry6(cnt)
arry2(0)="仙境传说"
arry3(0)="2523"
arry4(0)="2578"
arry5(0)="55"
arry6(0)="2.19% "
arry2(1)="传奇世界"
arry3(1)="749"
arry4(1)="801"
arry5(1)="52"
arry6(1)="6.92% "
arry2(2)="天堂II"
arry3(2)="1047"
arry4(2)="1031"
arry5(2)="-16"
arry6(2)="-1.53% "
arry2(3)="奇迹（MU）"
arry3(3)="1015"
arry4(3)="1059"
arry5(3)="44"
arry6(3)="4.34% "
arry2(4)="封神榜"
arry3(4)="768"
arry4(4)="668"
arry5(4)="-100"
arry6(4)="-12.98% "
arry2(5)="魔兽世界"
arry3(5)="871"
arry4(5)="857"
arry5(5)="-14"
arry6(5)="-1.59% "
arry2(6)="传奇3G"
arry3(6)="1128"
arry4(6)="1146"
arry5(6)="18"
arry6(6)="1.55% "
arry2(7)="刀剑Online"
arry3(7)="796"
arry4(7)="803"
arry5(7)="7"
arry6(7)=".89% "
arry2(8)="大话西游II"
arry3(8)="905"
arry4(8)="836"
arry5(8)="-69"
arry6(8)="-7.57% "
arry2(9)="剑侠情缘OL"
arry3(9)="824"
arry4(9)="713"
arry5(9)="-111"
arry6(9)="-13.44% "
arry2(10)="传奇"
arry3(10)="2294"
arry4(10)="2260"
arry5(10)="-34"
arry6(10)="-1.47% "
arry2(11)="魔力宝贝"
arry3(11)="797"
arry4(11)="833"
arry5(11)="36"
arry6(11)="4.47% "
arry2(12)="天之炼狱"
arry3(12)="1064"
arry4(12)="1076"
arry5(12)="12"
arry6(12)="1.16% "
arry2(13)="密传"
arry3(13)="969"
arry4(13)="945"
arry5(13)="-24"
arry6(13)="-2.43% "
Sub toplay()
j=j+1
dim x
if (cnt - 1)>4 then
x = 4
else
x=cnt - 1
end if
for i=0 to x
bbb(i).innerhtml=show2(j-1+i)
ccc(i).innerhtml=show3(j-1+i)
ddd(i).innerhtml=show4(j-1+i)
eee(i).innerhtml=show5(j-1+i)
fff(i).innerhtml=show6(j-1+i)
next
if j>cnt then j=0
if (cnt - 1)>=4 then timerID = settimeout("toplay()",1000)
End Sub
function show2(num)
if num>=cnt then
show2=arry2(num-cnt)
else
show2=arry2(num)
end if
end function
function show3(num)
if num>=cnt then
show3=arry3(num-cnt)
else
show3=arry3(num)
end if
end function
function show4(num)
if num>=cnt then
show4=arry4(num-cnt)
else
show4=arry4(num)
end if
end function
function show5(num)
if num>=cnt then
show5=arry5(num-cnt)
else
show5=arry5(num)
end if
end function
function show6(num)
if num>=cnt then
show6=arry6(num-cnt)
else
show6=arry6(num)
end if
end function
sub playnow()
settimeout "toplay()",1000
end sub
sub playnow2()
timerID = settimeout("toplay()",0)
end sub
sub playstop()
cleartimeout timerID
end sub