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
投稿猜你喜欢
- 斐波那契记忆优化法：<script type="text/javascript">var fibonacci
- 在网络设计领域关于Eye-Tracking的研究十分火爆，但是如何把这些研究结果转变为具体可行的设计来运作依旧是个难点。以下就是一些来自于E
先看一段HTML代码，在下边这段代码中，这张图片的宽度未知，我想写在CSS中写一行限制最大宽度为50px：<div id=&- 下面是我已经证实可用的自动备份的方法. 1、打开企业管理器->管理->sql server代理 2、新建一个作业,作业名称随便取
- 有些时候（如开发聊天程序），我们需要将将滚动条（scrollbar）保持在最底部，比如聊天窗口，最新发出和收到的信息要显示在最下方，如果要看
- 是时候了—— 在大部分情况下当用户输入密码时把它们用清晰的文字显示出来。一直以来，提供反馈、把系统状态形象化是最基本的可用性原则，当用户输入
- MS SQL基本语法及实例操作 一：建表并初始化 ============================ create database
- 1：在终端下：mysql -V。 以下是代码片段：[shengting@login ~]$ mysql -Vmysql Ver 14.7 D
- 本文介绍了一些JavaScript常用到得表单验证函数，方便大家使用。 判断是否为整数，是则返回true,否则返回falsefun
- 数据库并行访问，也就是两个或两以上用户同时访问同一数据，这也是数据库引擎如何设计和实现适度反应所面临的最大问题。设计优良、性能卓越的数据库引
- 虽然大多数web文档的顶部都有doctype声明，但很多人都没有注意它。它是在你新建一个文档时，由web创作软件草率处理的众多细节之一。虽然
- /* --注意：准备数据（可略过，非常耗时） CREATE TABLE CHECK1_T1 ( ID INT, C1 CHAR(8000)
- 新云4.0模版标签是全新改的了，加了前缀。如果你怀旧，请查看新云CMS3.1常用模板标签。下面的标签说明，后台就有，为了方便查看转到这里。{
- 1. 鼠标的哪个按键被点击？<html><head><script type="text/javas
- “正则表达式”对象，我们就可以非常方便的对各种数据进行合法性的校验了。首先，让我们来了解一下究竟什么
- 与部门同事做了个小小的交流，话题杂而浅，在此做一个小纪录。1、什么是设计工业设计、环境设计、建筑设计、平面设计、网页设计、服装设计、信息设计
- 今天无意在坛子里看到这样一个求救帖（这里），看了一下，感觉问题比较好解决。但是问题背后的问题却引起了我的反思。把他的页面整理一下看看（为了便
- 如果 replaceText 为函数，对于每一个匹配的子字符串，调用该函数时带有下面的 m+3 个参数，此处 m 是在 rgExp 中捕获的
- MySQL GUI Tools是一套图形化桌面应用工具套装，可以用来管理MySQL服务器。该套装工具包含三个工具：MySQL Query B
- 我们平日办公时用得最多的软件是Execl、Word或WPS Office等，你的计算机中一定储存着大量的XLS、DOC、WPS文件吧！网页制
