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
投稿猜你喜欢
gitee的指定分支想上传的本地文件夹为C#learning下面为使用git将这个C#learning上传到项目的example的方法1.在- 正文方法一：直接使用已知的cookie访问特点：简单，但需要先在浏览器登录原理：简单地说，cookie保存在发起请求的客户端中，服务器利用c
- 如果是windows安装完成后，需要将'\Python27\Scripts\'加入系统环境变量# coding=utf-8i
- 实例如下所示：# -*-coding:utf-8-*-import osfile_obj = open("test2.txt&qu
- 本文实例讲述了MySQL学习笔记之数据定义表约束，分页方法。分享给大家供大家参考，具体如下：1. primary key 主键特点：主键是用
- 弄个随机数的东西，直接从网上找了一个现成的，简单看了两眼，感觉算法应该是对的，但今天测试下来，是不对的；网上大多数人用的写法是这样的：fun
- GraphSAGE是一种用于图神经网络中的节点嵌入学习方法。它通过聚合节点邻居的信息来生成节点的低维表示，使节点表示能够更好地应用于各种下游
- 很多新手刚开始学习python的时候经常会看到python 中__name__ = \'__main__\' 这样的代码，可
- 本文为大家分享了mysql 8.0.15 安装配置方法，供大家参考，具体内容如下1.安装完成后在安装根目录下做一个my.ini文件my.in
- <script language="javascript" type="text/javascript&
- struct和C语言的很相似，模拟出class的功能，但是不完全的！没有构造函数等！struct的申明package mainimport
- 特地查看了下手册，关于php magic quotes,常见的几个设置如下，magic_quotes_gpc，magic_quo
- 准备工作没有加壳的python编译并打包的exe文件python反打包代码（不知道这样叫是否合理）：python-exe-unpacker1
- 前言在Python开发中，有些情况下，我们可能面临在一台机器上同时安装多版本Python的需求。比如：有多个Python项目，每个项目依赖不
- 本文实例讲述了PHP操作MySQL中BLOB字段的方法。分享给大家供大家参考，具体如下：1、MySQL中BLOB字段类型BLOB类型的字段用
- 作者的blog: blog.never-online.net"Never Modules"-NCC(never
- vscode是一款非常轻量级的编辑器，你可以通过安装甚至自己编写一些小的插件来满足各种不同的使用需求，使用起来非常简介方便。方式一：图形安装
- Python是一种高级编程语言，它在众多编程语言中，拥有极高的人气和使用率。Python中的多线程和线程池是其强大的功能之一，可以让我们更加
- 经常会有人问我, PHP的数组, 如果用foreach来访问, 遍历的顺序是固定的么? 以什么顺序遍历呢? 比如: <?php $ar
- 反射反射即想到4个内置函数分别为:getattr、hasattr、setattr、delattr 获取成员、检查成员、设置成员、
