繁體中文当前位置: 首页 > 图文教程 > 网络编程 > ASP > 运用asp结合vbscript模拟股票滚屏
- ASP
- TSYS 新闻列表JS调用下载
- 使用asp代码突破图片的防盗连
- 一种理论上最快的Web数据库分页方法
- asp：debug类调试程序
- 如何增加Referer功能--反向链接插件
- pjblog中清空引用的小程序
- 光碟工具 Alcohol 120% v1.9.6.4719 下载(附序列号注册码)
- ASP实现头像图像随机变换
- UTF-8 Unicode Ansi 汉字GB2321几种编码转换程序
- [转]XMLHTTPRequest的属性和方法简介
- ASP常用函数:getpy()
- 我用ASP写的m行n列的函数,动态输出创建TABLE行列
- ASP常用函数:Delay()
- ASP常用函数:Trace()
- [转]ASP实现关键词获取(各搜索引擎,GB2312及UTF-8)
- 对象标记具有无效的 ''MSWC.MyInfo'' ProgID
- ServerVariables集合检索预定的环境变量
- HTTP_HOST 和 SERVER_NAME 的区别详解
- [转]ASP常用函数:TimeZone
- Eval 函数 | Execute 语句 | ExecuteGlobal 语句
ASP 中的 运用asp结合vbscript模拟股票滚屏
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-11-03 浏览: 237 ::
收藏到网摘: n/a
<html>
<head>
<!-- [email protected] -->
<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)="TCL电子"
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>
</head>
<body onload="toplay()">
<table border="0" cellpadding="5" cellspacing="1">
<tr>
<td bgcolor="#FFCC66">证券名称</td>
<td bgcolor="#FFCC66">成交</td>
<td bgcolor="#FFCC66">开盘</td>
<td bgcolor="#FFCC66">涨跌</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
评论 (0) All
