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

ASP
Access 2000 数据库 80 万记录通用快速分页类
Microsoft JET Database Engine 错误 ''80004005'' 未指定的错误的完美解决方法
收藏的ASP常用的函数集
asp分页的一个类
ASP开发网页牢记注意事项
ASP下操作Excel技术总结分析
ASP数据岛操作类
ASP经典分页类
asp论坛在线人数统计研究
ASP调用SQL SERVER存储程序
asp输出bmp
ASP连接数据库的全能代码
ASP面向对象编程探讨及比较
web文件管理器的后续开发
一小偷类!!有兴趣的可以看看
利用ASP实现事务处理的方法
大数量查询分页显示 微软的解决办法
如何把ASP编写成DLL
asp实现树型结构
超级ASP大分页_我的类容我做主

No. « 56 57 58 59 »

技术文章搜索

关键字

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

出处:互联网   整理: 软晨网（RuanChen.com）   发布: 2009-11-03   浏览: 228 ::
收藏到网摘: 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