运用asp结合vbscript模拟股票滚屏

这是一个模拟股票滚屏的看板程序,程序将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个。

Published At
Categories with Web编程
Tagged with
comments powered by Disqus