这是一个模拟股票滚屏的看板程序,程序将10个股票的价格和张跌幅信息以每次5组的方式显示,循环交替,不同以往滚屏尾部留有空白的情况。由于代码简单,这里就不对其多加注释了。
1<html>
2<head>
3<!-- [email protected] -->
4<script language="VBScript">
5<!--
6dim j,arry1(10),arry2(10),arry3(10),arry4(10)
7
8'分别定义滚动子段的数组
9
10arry1(0)="数码科技"
11arry1(1)="太子网络"
12arry1(2)="小邦会社"
13arry1(3)="正大集团"
14arry1(4)="聚友网络"
15arry1(5)="全向科技"
16arry1(6)="清华紫光"
17arry1(7)="同创科技"
18arry1(8)="中关村"
19arry1(9)="TCL电子"
20
21arry2(0)="12.56"
22arry2(1)="56.50"
23arry2(2)="5.54"
24arry2(3)="23.11"
25arry2(4)="16.70"
26arry2(5)="14.00"
27arry2(6)="9.20"
28arry2(7)="12.30"
29arry2(8)="87.56"
30arry2(9)="12.30"
31
32
33arry3(0)="12.10"
34arry3(1)="55.70"
35arry3(2)="5.36"
36arry3(3)="22.80"
37arry3(4)="16.50"
38arry3(5)="13.60"
39arry3(6)="9.20"
40arry3(7)="12.89"
41arry3(8)="88.00"
42arry3(9)="12.56"
43
44
45arry4(0)="6.2%"
46arry4(1)="-5%"
47arry4(2)="1.2%"
48arry4(3)="8%"
49arry4(4)="-5.6%"
50arry4(5)="3%"
51arry4(6)="-3%"
52arry4(7)="4%"
53arry4(8)="-2.2%"
54arry4(9)="-6.3%"
55
56'滚动程序
57Sub toplay()
58j=j+1
59
60for i=0 to 4
61a(i).innerhtml=show1(j-1+i)
62b(i).innerhtml=show2(j-1+i)
63c(i).innerhtml=show3(j-1+i)
64d(i).innerhtml=show4(j-1+i)
65next
66
67if j>9 then j=0
68settimeout "toplay",2000
69end sub
70
71function show1(num)
72if num=>10 then
73show1=arry1(num-10)
74else
75show1=arry1(num)
76end if
77end function
78
79function show2(num)
80if num=>10 then
81show2=arry2(num-10)
82else
83show2=arry2(num)
84end if
85end function
86
87function show3(num)
88if num=>10 then
89show3=arry3(num-10)
90else
91show3=arry3(num)
92end if
93end function
94
95function show4(num)
96if num=>10 then
97show4=arry4(num-10)
98else
99show4=arry4(num)
100end if
101end function
102\-->
103</script>
104<style>
105<!--
106td { font-size:9pt }
107\-->
108</style>
109</head>
110<body onload="toplay()">
111<table border="0" cellpadding="5" cellspacing="1">
112<tr>
113<td bgcolor="#FFCC66">证券名称</td>
114<td bgcolor="#FFCC66">成交</td>
115<td bgcolor="#FFCC66">开盘</td>
116<td bgcolor="#FFCC66">涨跌</td>
117</tr>
for i=0 to 4
dim bg
bg="F0EDE6"
if i mod 2=0 then bg="D2E0F0"
1<tr>
2<td =bg="" ```="" align="right" bgcolor="```" id="a"></td>
3<td =bg="" ```="" align="right" bgcolor="```" id="b"></td>
4<td =bg="" ```="" align="right" bgcolor="```" id="c"></td>
5<td =bg="" ```="" align="right" bgcolor="```" id="d"></td>
6</tr>
next
1</table>
2</body>
3</html>
注:你可以更改其中的每组显示股票的行数,这里设置的是5个。