当前位置: 首页 > 图文教程 > 网络编程 > ASP > 运用asp结合vbscript模拟股票滚屏

ASP
ASP中遍历和操作Application对象的集合
ASP 实例教程：FileSystemObject 对象
制作WEB在线编辑器-插入HTML标签
ASPJPEG综合操作的CLASS
ASP设计常见问题及解答精要
如何用ASP实现电子贺卡一例
ASP生成静态Html文件技术
ASP编程技术学习：Cookie集合
解决ASP中Connection对像封装dll问题
巧解Session cookie
用asp判断某IP是否属于某网段的另类算法
ASP入门：Global.asa文件技巧用法
教程/ASP 十天学会ASP之第三天
推荐:ASP初学者常用源代码总结篇
ASP生成静态Html文件技术杂谈
收集整理ASP的常用内置函数
用ASP动态生成JS的表单验证代码
教程/ASP 十天学会ASP之第一天
在asp聊天室里实现房间功能和用户显示
ASP快速开发方法之数据操作

No. « 87 88 89 90 »

技术文章搜索

关键字

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

出处:互联网   整理: 软晨网（RuanChen.com）   发布: 2009-11-03   浏览: 170 ::
收藏到网摘: n/a

  这是一个模拟股票滚屏的看板程序，程序将10个股票的价格和张跌幅信息以每次5组的方式显示，循环交替，不同以往滚屏尾部留有空白的情况。由于代码简单，这里就不对其多加注释了。

<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