?? 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 + -