📄 nba.htm
字号:
<html>
<head>
<meta name="VI60_DefaultClientScript" Content="VBScript">
<meta NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<title>NBA赛况</title>
<style type="text/css">
div{text-align:center;height:60;Font-size:1em;font-weight:bold;padding:10pt,2pt,10pt,2pt;letter-spacing:2pt}
div.divnormal{filter:glow(color=yellow,strength=20);cursor:hand}
div.divmousedown{filter:glow(color=yellow,strength=5);cursor:hand}
div.divblank{cursor:hand}
.contents{HEIGHT: 90%; LEFT: 20%; POSITION: absolute; TOP: 15%; WIDTH: 83%}
</style>
</head>
<script language="VBS">
<!--
'定义常量
'球队数
const maxteamlength=29
'最大纪录数
const maxlistlength=10
'定义变量
'定义动态表格字段名数组
dim keyword()
redim keyword(maxlistlength)
'now表示当前用户所处的界面
dim now
'定义与自动浏览球队信息相关的变量
dim lasttop,tid
sub init
teamshow
end sub
'删除下拉菜单中的项目
sub deleteitem
'循环菜单长度
for i=0 to select1.length-1
'每次都要删除第0项,原因是每当删除了菜单的第0项,后面的项目就会补充这个位置
select1.remove(0)
next
end sub
sub teamshow
'显示"NBA球队"界面
div_content.style.visibility="visible"
'隐藏并清空"NBA之最"界面
div_list.innerHTML =""
div_list.style.zIndex =-2
'将now变量赋1,表示现在所处的界面是"NBA球队"界面
now=1
'删除下拉菜单中的项目
deleteitem
'添加新的菜单项
additem1
'显示和第一个菜单项目相关的数据:包括球队标志和球队信息
end sub
'在第一个界面中,向下拉菜单添加项目
sub additem1
'循环球队长度
for i=1 to maxteamlength
'定位数据指针
Nbateam.recordset.AbsolutePosition=i
'创建新的option单元
set tmp=document.createElement ("OPTION")
'指定新的option单元的value和text为球队的名称
tmp.value=Nbateam.recordset("name")
tmp.text=Nbateam.recordset("name")
'向下拉菜单select1添加这个新的option项目
select1.add tmp
next
'选择第一个项目
select1.selectedIndex =0
end sub
'开始自动浏览
sub beginscroll
tid=window.setInterval ("scrollpage",100)
end sub
'将上一次滚动位置变量lasttop的值清零
lasttop=0
sub scrollpage
'建立框架窗口的引用
set tmp=Parent.frames("comment")
'滚动滚动条,步长为2
tmp.scrollto 0,tmp.document.body.scrolltop+2
'如果这次滚动位置与上次相同,则表示不再滚动,则滚回初始位置,同时lasttop清零
if tmp.document.body.scrolltop<=lasttop then
tmp.scrollto 0,0
lasttop=0
else
'否则lasttop变量置为本次滚动条滚动到的位置
lasttop=tmp.document.body.scrolltop
end if
end sub
'结束自动浏览
sub endscroll
window.clearinterval(tid)
end sub
sub listshow
'如果没有关闭视频界面的显示则自动隐藏
'隐藏"NBA球队"界面,将"NBA之最"界面推到屏幕表面(z轴最大位置)
div_content.style.visibility="hidden"
div_list.style.zIndex =1
'将now变量赋2,表示现在所处的界面是"NBA之最"界面
now=2
deleteitem
'添加新的项目
additem2
'显示和第一个菜单项目相关的数据:第一种统计数据
showlist 1
end sub
sub additem2
'循环纪录数长度
for i=1 to maxlistlength
'定位数据指针
Nbalist0.recordset.AbsolutePosition=i
'创建新的option单元
set tmp=document.createElement ("OPTION")
'指定新的option单元的text为统计数据的名称
tmp.text=Nbalist0.recordset("name")
'指定与这个统计相关的字段名串
keyword(i)=Nbalist0.recordset("keyword")
'向下拉菜单select1添加这个新的option项目
select1.add tmp
next
'选择第一个项目
select1.selectedIndex =0
end sub
sub showlist(i)
'定义变量
'Nbalist指向和菜单选项对应的数据ActiveX控件
'tmpstr生成动态内容,最后将赋给div_list.innerHtml
dim Nbalist,tmpstr
'建立数据控件的引用
set Nbalist=document.all("Nbalist"&select1.selectedIndex+1)
'分解和统计项目对应的字段名串
tmpkeyarray=split(keyword(i),";")
'生成动态表格
'生成数据统计的标题
tmpstr="<h1 align=center>"&select1.options(i).text&"</h1>"
'生成动态表格数据段名称部分,指定与表格相绑定的数据控件名称,即Nbalist.id
tmpstr=tmpstr&"<table datapagesize=5 border=1 id=table1 datasrc='#"&Nbalist.id&"' width=95%><thead><tr>"
for i=0 to ubound(tmpkeyarray)
tmpstr=tmpstr&"<td><font face='楷体_GB2312' color='#0000ff'><strong><span>"&tmpkeyarray(i)&"</span></strong></font></td>"
next
tmpstr=tmpstr&"</tr></thead><tbody><tr>"
'生成表格体,指定和表格单元相绑定的数据段
for i=0 to ubound(tmpkeyarray)
tmpstr=tmpstr&"<td><font color='#ffffff'><span datafld='"&tmpkeyarray(i)&"'></span></font></td>"
next
tmpstr=tmpstr&"</tr></tbody>"
'添加翻页功能键
tmpstr=tmpstr&"<tfoot><tr><font color='#00ff00'>翻页:<br>"
tmpstr=tmpstr&"<input type=button id=lastpage value='上页'>"
tmpstr=tmpstr&"<input type=button id=nextpage value='下页'><br>"
'添加排序按钮,有几个字段就添加几个按钮
tmpstr=tmpstr&"数据排序:<br>"
for i=0 to ubound(tmpkeyarray)
if i=0 or i=2 then
tmptxt="按"&tmpkeyarray(i)&"排序"
'下面语句中生成按钮的title值是为了保存与排序按钮相应的数据段的名称
tmpstr=tmpstr&"<input type=button id=order"&i&" value="&tmptxt&" title="&tmpkeyarray(i)&"><br>"
end if
next
tmpstr=tmpstr&"</tr></tfoot></table>"
'将生成的动态内容串赋给div_list
div_list.innerHTML =tmpstr
end sub
'处理用户点击排序按钮的事件
'由于动态生成的元素不能接收外部事件,因此用已有的容器元素div_list的点击事件来替代处理
sub dealclick
dim tmp,Nbalist
'建立对被点击元素的引用
set tmp=window.event.srcElement
'建立对当前数据控件的引用
set Nbalist=document.all("Nbalist"&select1.selectedIndex+1)
'如果点击的不是表单控件(这里意味着按钮0则退出
if tmp.tagname<>"INPUT" then exit sub
'分支选择元素的id以分别处理
select case tmp.id
'如果点击了"上页"按钮
case "lastpage"
'动态表格向上翻页
table1.previouspage
'如果点击了"下页"按钮
case "nextpage"
'动态表格向下翻页
table1.nextpage
'其他情况,意味着点击了排序诸按钮中的一个
case else
'按照按钮title中保存的字段名信息排序
Nbalist.Sort=tmp.title
'重新显示表格
Nbalist.Reset
end select
end sub
-->
</script>
<body text="#ff0000" onload = "init" bgColor=peachpuff>
<div id="div_control" style="BACKGROUND-IMAGE: url(NBA_control.gif); HEIGHT: 90%; LEFT: 0%; POSITION: absolute; TOP: 15%; WIDTH: 20%">
<div id=but2 onload = "but2.className='divnormal'" onmouseover="but2.className='divnormal'" onmouseout="but2.className='divblank'" onmouseup="but2.className='divnormal'" onclick="listshow" onmousedown="but2.className='divmousedown'">NBA赛况</div>
<div>
<select id=select1 name=select1 onchange="if now=1 then showdata select1.selectedindex+1 else showlist select1.selectedIndex+1" disabled style="VISIBILITY: hidden">
</select>
</div>
</div>
<div id="div_list" class="contents" style="BACKGROUND-IMAGE: url(gnd.gif); Z-INDEX: -2" onclick="dealclick">
</div>
<div id="div_content" class="contents" style="Z-INDEX: -1">
</div>
<OBJECT classid=clsid:333C7BC4-460F-11D0-BC04-0080C7055A83 height=1 id=Nbateam
width=1 VIEWASTEXT border = 0>
<PARAM NAME="RowDelim" VALUE="
">
<PARAM NAME="FieldDelim" VALUE=",">
<PARAM NAME="TextQualifier" VALUE='"'>
<PARAM NAME="EscapeChar" VALUE="">
<PARAM NAME="UseHeader" VALUE="-1">
<PARAM NAME="SortAscending" VALUE="-1">
<PARAM NAME="SortColumn" VALUE="">
<PARAM NAME="FilterValue" VALUE="">
<PARAM NAME="FilterCriterion" VALUE="??">
<PARAM NAME="FilterColumn" VALUE="">
<PARAM NAME="CharSet" VALUE="gb2312">
<PARAM NAME="Language" VALUE="zh-cn">
<PARAM NAME="CaseSensitive" VALUE="-1">
<PARAM NAME="Sort" VALUE="">
<PARAM NAME="Filter" VALUE="">
<PARAM NAME="AppendData" VALUE="0">
<PARAM NAME="DataURL" VALUE="Nbateam.txt">
<PARAM NAME="ReadyState" VALUE="4">
</OBJECT>
<OBJECT classid=clsid:333C7BC4-460F-11D0-BC04-0080C7055A83 height=1 id=Nbalist0
width=1 VIEWASTEXT border = 0>
<PARAM NAME="RowDelim" VALUE="
">
<PARAM NAME="FieldDelim" VALUE=",">
<PARAM NAME="TextQualifier" VALUE='"'>
<PARAM NAME="EscapeChar" VALUE="">
<PARAM NAME="UseHeader" VALUE="-1">
<PARAM NAME="SortAscending" VALUE="-1">
<PARAM NAME="SortColumn" VALUE="">
<PARAM NAME="FilterValue" VALUE="">
<PARAM NAME="FilterCriterion" VALUE="??">
<PARAM NAME="FilterColumn" VALUE="">
<PARAM NAME="CharSet" VALUE="gb2312">
<PARAM NAME="Language" VALUE="zh-cn">
<PARAM NAME="CaseSensitive" VALUE="-1">
<PARAM NAME="Sort" VALUE="">
<PARAM NAME="Filter" VALUE="">
<PARAM NAME="AppendData" VALUE="0">
<PARAM NAME="DataURL" VALUE="list.txt">
<PARAM NAME="ReadyState" VALUE="4">
</OBJECT>
<OBJECT classid=clsid:333C7BC4-460F-11D0-BC04-0080C7055A83 height=1 id=Nbalist1
width=1 VIEWASTEXT border = 0>
<PARAM NAME="RowDelim" VALUE="
">
<PARAM NAME="FieldDelim" VALUE=",">
<PARAM NAME="TextQualifier" VALUE='"'>
<PARAM NAME="EscapeChar" VALUE="">
<PARAM NAME="UseHeader" VALUE="-1">
<PARAM NAME="SortAscending" VALUE="-1">
<PARAM NAME="SortColumn" VALUE="">
<PARAM NAME="FilterValue" VALUE="">
<PARAM NAME="FilterCriterion" VALUE="??">
<PARAM NAME="FilterColumn" VALUE="">
<PARAM NAME="CharSet" VALUE="gb2312">
<PARAM NAME="Language" VALUE="zh-cn">
<PARAM NAME="CaseSensitive" VALUE="-1">
<PARAM NAME="Sort" VALUE="">
<PARAM NAME="Filter" VALUE="">
<PARAM NAME="AppendData" VALUE="0">
<PARAM NAME="DataURL" VALUE="Nbazl01.txt">
<PARAM NAME="ReadyState" VALUE="4">
</OBJECT>
<OBJECT classid=clsid:333C7BC4-460F-11D0-BC04-0080C7055A83 height=1 id=Nbalist2
width=1 VIEWASTEXT border = 0>
<PARAM NAME="RowDelim" VALUE="
">
<PARAM NAME="FieldDelim" VALUE=",">
<PARAM NAME="TextQualifier" VALUE='"'>
<PARAM NAME="EscapeChar" VALUE="">
<PARAM NAME="UseHeader" VALUE="-1">
<PARAM NAME="SortAscending" VALUE="-1">
<PARAM NAME="SortColumn" VALUE="">
<PARAM NAME="FilterValue" VALUE="">
<PARAM NAME="FilterCriterion" VALUE="??">
<PARAM NAME="FilterColumn" VALUE="">
<PARAM NAME="CharSet" VALUE="gb2312">
<PARAM NAME="Language" VALUE="zh-cn">
<PARAM NAME="CaseSensitive" VALUE="-1">
<PARAM NAME="Sort" VALUE="">
<PARAM NAME="Filter" VALUE="">
<PARAM NAME="AppendData" VALUE="0">
<PARAM NAME="DataURL" VALUE="Nbazl02.txt">
<PARAM NAME="ReadyState" VALUE="4">
</OBJECT>
<FONT color=royalblue face=serif
id=xianshi size=4 style="BACKGROUND-COLOR: #ffdab9; DISPLAY: block; LEFT: 60px">
<OBJECT classid=clsid:333C7BC4-460F-11D0-BC04-0080C7055A83 height=1 id=Nbalist3
width=1 VIEWASTEXT border = 0>
<PARAM NAME="RowDelim" VALUE="
">
<PARAM NAME="FieldDelim" VALUE=",">
<PARAM NAME="TextQualifier" VALUE='"'>
<PARAM NAME="EscapeChar" VALUE="">
<PARAM NAME="UseHeader" VALUE="-1">
<PARAM NAME="SortAscending" VALUE="-1">
<PARAM NAME="SortColumn" VALUE="">
<PARAM NAME="FilterValue" VALUE="">
<PARAM NAME="FilterCriterion" VALUE="??">
<PARAM NAME="FilterColumn" VALUE="">
<PARAM NAME="CharSet" VALUE="gb2312">
<PARAM NAME="Language" VALUE="zh-cn">
<PARAM NAME="CaseSensitive" VALUE="-1">
<PARAM NAME="Sort" VALUE="">
<PARAM NAME="Filter" VALUE="">
<PARAM NAME="AppendData" VALUE="0">
<PARAM NAME="DataURL" VALUE="Nbazl03.txt">
<PARAM NAME="ReadyState" VALUE="4">
</OBJECT>
NBA历届决赛 情况</FONT>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -