 |
|
|
 首页 |
名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash |
|
这是一个模仿股票滚屏的看板程序，程序将10个股票的价格和张跌幅信息以每次5组的方法显示，循环交替，不同以往滚屏尾部留有空白的情况。由于代码简朴，这里就不对其多加注释了。 <html> <head> <!-- sunboy008@sina.com.cn --> <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%> align="right"></td> <td id="d" bgcolor=<%=bg%> align="right"></td> </tr> <%next%> </table> </body> </html> 注：你可以更改其中的每组显示股票的行数，这里设置的是5个。 返回类别: 教程 上一教程: ASP使用ACTIVEX组件实例一 下一教程: 初学者必读 ASP运行环境的搭建 您可以阅读与"运用ASP结合VBSCRIPT模仿股票滚屏"相关的教程: · ASP与数据库运用：密码验证 · 谈谈如何在不支持数据库的ASP主页上运用ADO · ASP技术在论坛中的运用(六) · 使用XMLHTTP结合ASP，实现网页的异步调用 · FLASH和ASP数据库的结合应用 |
  |
| 快精灵印艺坊 版权所有 |
首页 会员中心在线印刷在线编辑付款方式索取样品设计指南连锁门店
|
||
