asp如何制作一个股票滚屏显示面板？
时间：2010-07-07 12:27:00
如何制作一个股票滚屏显示面板？
<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 j>9 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" cellpadding="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=<％=bg％> align="right"></td>
</tr>
<％next％>
</table>
</body>
</html>
0
投稿猜你喜欢
asp清理缓存的代码
发现一个不错的11px字体：PMingLiu
asp压缩access数据库（带密码）方法
js表格拖选动态效果COOL而实用
页面无刷新调用数据(IFRAME+js)
asp防止同时登陆的问题
js字放大效果
Date()与new Date()的区别
[译]艺术和设计的差异 (1)
框架和框架之间的关系
详解php如何合并身份证正反面图片为一张图片
asp如何对数组显示和排序？
戴尔是如何设计新官网首页的
用javascript给表格加滚动条
MySQL 5.0.16的乱码问题解决方法
远古幻想ICON 1套+创作思路
如何用OleDbDataAdapter来对数据库进行操作？
SQL和Oracle对数据库事务处理的差异性
