BET007的程序JS文件，我看了好长时间才明白的。哈哈，和大家分享下~~~~
2006-07-17 21:26
274 查看
Bet007.net后台文件JS程序
1<script Language="JavaScript">
2 function CheckSearch()
3</script>
12<script language="javascript">
13
17
23
31
36
43
47
51
56
61function getCookie(name)
62function writeCookie(name, value)
79//-->
87</script>
88
89
90<script language="vbscript">
91dim xmlOdds1
92Set xmlOdds1 = CreateObject("Microsoft.XMLDOM")
93
94diffTime=datediff("s","2006-7-11 23:59:29",now)'时间差
95dim fullxmlfile,chxmlfile, m_language,sclass,pageNum
96dim xml1_xml,loaded,soundCheck
97soundCheck=true '默认时间为开启
98dim riseColor,fallColor
99riseColor="#FFB0B0"'上涨色
100fallColor="#00FF44"'下跌色
101dim i
102dim flash_sound(1) '变水声
103flash_sound(0) = "<object classid='clsid:D27CDB6E-AE6D-11cf-96B8-444553540000' codebase='http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,0,0' width='0' height='0' id='image1'><param name='movie' value='image/oddssound.swf'><param name='quality' value='high'><param name=LOOP value='false'></object>"
104'记录数
105dim kk,matchcount
106dim leaguecount
107
108dim matchData() '保存比赛信息、赔率
109dim tr_html()
110dim html0(25)
111dim GoalCn(20) '让球盘口
112dim Goal_T_Cn(40) '大小盘盘口
113'定义让球数组
114GoalCn(0)="平手":GoalCn(1)="平手/半球":GoalCn(2)="半球":GoalCn(3)="半球/一球":GoalCn(4)="一球":GoalCn(5)="一球/球半"
115GoalCn(6)="球半":GoalCn(7)="球半/两球":GoalCn(8)="两球":GoalCn(9)="两球/两球半":GoalCn(10)="两球半":GoalCn(11)="两球半/三球"
116GoalCn(12)="三球":GoalCn(13)="三球/三球半":GoalCn(14)="三球半":GoalCn(15)="三球半/四球":GoalCn(16)="四球":GoalCn(17)="四球/四球半":GoalCn(18)="四球半":GoalCn(19)="四球半/五球":GoalCn(20)="五球"
117'定义让球数值
118Goal_T_Cn(0)="0":Goal_T_Cn(1)="0/0.5":Goal_T_Cn(2)="0.5":Goal_T_Cn(3)="0.5/1":Goal_T_Cn(4)="1":Goal_T_Cn(5)="1/1.5"
119Goal_T_Cn(6)="1.5":Goal_T_Cn(7)="1.5/2":Goal_T_Cn(8)="2":Goal_T_Cn(9)="2/2.5":Goal_T_Cn(10)="2.5":Goal_T_Cn(11)="2.5/3"
120Goal_T_Cn(12)="3":Goal_T_Cn(13)="3/3.5":Goal_T_Cn(14)="3.5":Goal_T_Cn(15)="3.5/4":Goal_T_Cn(16)="4":Goal_T_Cn(17)="4/4.5"
121Goal_T_Cn(18)="4.5":Goal_T_Cn(19)="4.5/5":Goal_T_Cn(20)="5":Goal_T_Cn(21)="5/5.5":Goal_T_Cn(22)="5.5":Goal_T_Cn(23)="5.5/6":Goal_T_Cn(24)="6":Goal_T_Cn(25)="6/6.5":Goal_T_Cn(26)="6.5":Goal_T_Cn(27)="6.5/7":Goal_T_Cn(28)="7":Goal_T_Cn(29)="7/7.5":Goal_T_Cn(30)="7.5":Goal_T_Cn(31)="7.5/8":Goal_T_Cn(32)="8":Goal_T_Cn(33)="8/8.5":Goal_T_Cn(34)="8.5":Goal_T_Cn(35)="8.5/9":Goal_T_Cn(36)="9":Goal_T_Cn(37)="9/9.5":Goal_T_Cn(38)="9.5":Goal_T_Cn(39)="9.5/10":Goal_T_Cn(40)="10"
122
123m_language=getCookie("Bet007_odds_SelLanguage")
124if isnull(m_language) then m_language=1
125fullxmlfile="xml/football_all1.xml"
126chxmlfile="xml/football_ch1.xml"
127call loadodds(1,m_language)
128
129
130setTimeout "getoddsxml()",4000
131
132setTimeout "autoHide()",60000
133
134'载入指数信息
135sub loadodds(page,language)
136 loaded=0
137 sclass=""
138 pageNum=page
139 m_language=language
140 document.getElementById("loading").style.display=""
141 myxml.async = false
142 myxml.load fullxmlfile
143 set kk=myxml.childNodes.item(1).childNodes.item(0)
144 matchcount=kk.childNodes.length
145 redim tr_html(matchcount-1)
146 redim matchData(matchcount,22)
147 If matchcount>0 Then
148 if matchcount>80 then
149 document.getElementById("page").innerhtml="<a href='javascript:' onclick='loadodds(1," & m_language & ")' style='COLOR: #000000'>1页</a> <a href='javascript:' onclick='loadodds(2," & m_language & ")' style='COLOR: #000000'>2页</a>"
150 end if
151 Call MakeTable()
152 else
153 document.getElementById("odds").innerhtml="<p align=center class=f1>暂无相关数据！</p>"
154 end if
155 '调用赔率联赛/杯赛名列表
156 call matkeleague()
157 writeCookie "Bet007_odds_SelLanguage", m_language '记录所选的语言
158 document.getElementById("hiddencount").innerText=0
159 document.getElementById("loading").style.display="none"
160end sub
161
162
163function Goal2GoalCn(goal)
164 '数字盘口转汉汉字
165 if goal>=0 then Goal2GoalCn=GoalCn(cint(goal*4)) else Goal2GoalCn="受让"& GoalCn(abs(cint(goal*4)))
166end function
167
168sub MakeTable()
169 on error resume next
170 dim ii
171 ii=0
172 dim j
173 dim match_id
174 dim match_leagues
175 dim match_typecolor
176 dim match_hometeamID
177 dim match_guestteamID
178 dim goal_cn
179 dim oldmatch_type
180 dim match_homeorder,match_guestorder
181
182 oldmatch_type=""
183 for i=0 to matchcount-1
184 match_id=kk.childNodes.item(i).childNodes.item(0).Text 'ID
185 match_typecolor=kk.childNodes.item(i).childNodes.item(1).Text '类型背景色
186 match_leagues=kk.childNodes.item(i).childNodes.item(2).Text '类型名称
187 matchData(i,0)=match_id
188 matchData(i,1)=kk.childNodes.item(i).childNodes.item(3).Text '开赛时间
189 matchData(i,2)=split(match_leagues,",")(m_language) '选择的语言对类的类型名
190 matchData(i,4)=false '默认到了开场时间
191
192 matchData(i,19)=split(kk.childNodes.item(i).childNodes.item(4).Text,",")(m_language)'主队名
193 matchData(i,20)=split(kk.childNodes.item(i).childNodes.item(5).Text,",")(m_language)'客队名
194
195 mainmoney=split(kk.childNodes.item(i).childNodes.item(6).Text,",")(0) '主队竞猜额
196 guestmoney=split(kk.childNodes.item(i).childNodes.item(6).Text,",")(1) '客队竞猜额
197 summainmoney = CLng(mainmoney)+CLng(guestmoney)
198 if summainmoney <> 0 then
199 permainmoney = int(mainmoney/summainmoney*100)
200 perguestmoney = 100-permainmoney
201 else
202 permainmoney = 0
203 perguestmoney = 0
204 end if
205
206 Neutrality=kk.childNodes.item(i).childNodes.item(7).Text'中立场
207
208 '赔率ID，盘口，主队赔率，客队赔率，若盘口为负，则盘口显示
209 matchData(i,6)=split(kk.childNodes.item(i).childNodes.item(8).Text,",")(0)'赔率ID
210 matchData(i,7)=split(kk.childNodes.item(i).childNodes.item(8).Text,",")(1)'让球盘口
211 matchData(i,8)=split(kk.childNodes.item(i).childNodes.item(8).Text,",")(2) '主队水位
212 matchData(i,9)=split(kk.childNodes.item(i).childNodes.item(8).Text,",")(3) '客队水位
213 '独赢盘赔率，主胜，客胜, 和局
214 matchData(i,10)=split(kk.childNodes.item(i).childNodes.item(9).Text,",")(0)'主胜
215 matchData(i,11)=split(kk.childNodes.item(i).childNodes.item(9).Text,",")(1) '客胜
216 matchData(i,12)=split(kk.childNodes.item(i).childNodes.item(9).Text,",")(2) '走水 /和局
217
218 '大小盘赔率，盘口，上盘赔率，下盘赔率
219 matchData(i,13)=split(kk.childNodes.item(i).childNodes.item(10).Text,",")(0)'大小盘口
220 matchData(i,14)=split(kk.childNodes.item(i).childNodes.item(10).Text,",")(1) '上盘水位 上盘赔率
221 matchData(i,15)=split(kk.childNodes.item(i).childNodes.item(10).Text,",")(2) '下盘水位 下盘赔率
222 '球队排名
223 match_homeorder=trim(split(kk.childNodes.item(i).childNodes.item(11).Text,",")(0)) '主队排名
224 match_guestorder=trim(split(kk.childNodes.item(i).childNodes.item(11).Text,",")(1)) '客队排名
225
226 if match_homeorder<>"" then match_homeorder="<font color=#444444><sup>["&match_homeorder&"]</sup></font>"
227 if match_guestorder<>"" then match_guestorder="<font color=#444444><sup>["&match_guestorder&"]</sup></font>"
228
229 '还没有到开场时间
230 if dateadd("s", diffTime-900,matchData(i,1))>now() and (matchcount<80 or (DateDiff("d",dateadd("s", diffTime,now),matchData(i,1))=0 and pageNum=1) or (DateDiff("d",dateadd("s", diffTime,now),matchData(i,1))>0 and pageNum=2))then
231 matchData(i,4)=true '是否隐藏
232 if instr(sclass,matchData(i,2))<=0 then sclass=sclass & matchData(i,2)
233 html0(0)="<table width='100%' border=0 align=center cellpadding=2 cellspacing=1 bgcolor='#FFE271' id='table_" & match_id & "' index="& i &">"
234
235 if oldmatch_type<>matchData(i,2) then
236 html0(0) =html0(0)& "<tr align=center><td colSpan=6 bgcolor=f0f0f0><font color=#000000><b>"&matchData(i,2)&"</b></font></td></tr>"
237 oldmatch_type=matchData(i,2)
238 end if
239
240 html0(1) = "<tr bgcolor=#FFFBF1 align=center><td rowSpan=3 width='10%'>"& MONTH(matchData(i,1)) & "-" & DAY(matchData(i,1)) & " " & FormatDateTime(matchData(i,1),4) &"</td>"
241
242 html0(2) ="<td align=left rowSpan=2 width='30%'><table width='100%' border=0 cellspacing=0 cellpadding=0><tr id='hometeam_"&match_id&"'>"
243 if Neutrality="True" then
244 html0(2) =html0(2)& "<td><a style='color:#000000'>"&matchData(i,19)&"(中)</a>"&match_homeorder&"</td>"
245 else
246 html0(2) =html0(2)& "<td><a style='color:#000000'>"&matchData(i,19)&"(主)</a>"&match_homeorder&"</td>"
247 end if
248
249 html0(2) =html0(2)& "</tr><tr id='guestteam_"&match_id&"'><td><a style='color:#000000'>"&matchData(i,20)&"</a>"&match_guestorder&"</td></tr>"
250 html0(2) =html0(2)& "</table></td>"
251
252 html0(3) = "<td width='8%' align=center><a href=""javascript:Guess("&i&",1)"" class=sb><span id='HomeWin_" & match_id & "'>"&matchData(i,10)&"</span></a></td>"
253 html0(4) = "<td width='20%'>"
254 html0(5) = "<table cellSpacing=0 cellPadding=0 width='100%' border=0><tr>"
255
256 if matchData(i,7)<>""then
257 goal_cn =Goal2GoalCn(abs(matchData(i,7)))
258 else
259 goal_cn = ""
260 end if
261 '客队是上盘球队
262 if matchData(i,7)<0 then
263 html0(6) = "<td align=center width='68%'></td>"
264 html0(7) = "<td><a href=""javascript:Guess("&i&",4)"" class=sb><span id='homeodds_" & match_id & "'>"&matchData(i,8)&"</span></a></td>"
265 else
266 html0(6) = "<td align=center width='68%'><a class=pk><span id='goal_" & match_id & "'>"&goal_cn&"</span></a></td>"
267 html0(7) = "<td><a href=""javascript:Guess("&i&",4)"" class=sb><span id='homeodds_" & match_id & "'>"&matchData(i,8)&"</span></a></td>"
268 end if
269
270 html0(8) = "</tr></table>"
271 html0(9) = "</td>"
272
273 if matchData(i,13)="" then
274 html0(10) = "<td align=right width='17%'>大<span id='goal_t1_" & match_id & "'></span>"
275 else
276 html0(10) = "<td align=right width='17%'>大<span id='goal_t1_" & match_id & "'>"&Goal_T_Cn(matchData(i,13)*4)&"</span>"
277 end if
278 html0(11) = " <a href=""javascript:Guess("&i&",6)"" class=sb><span id='upodds_t_" & match_id & "'>"&matchData(i,14)&"</span></a></td><td width='15%'><table border=0 cellspacing=0 cellpadding=0 width=100% class=en11><tr><td width=60% align=right>"&mainmoney&"</td><td align=left>/<font color=#880000>"&permainmoney&"%</td></tr></table></td></tr>"
279 html0(12) = "<tr bgcolor=#FFFBF1>"
280 html0(13) = "<td align=center><a href=""javascript:Guess("&i&",3)"" class=sb><span id='GuestWin_" & match_id & "'>"&matchData(i,11)&"</span></a></td>"
281 html0(14) = "<td><table cellSpacing=0 cellPadding=0 width='100%' border='0'><tr>"
282 '让球盘盘口
283 if matchData(i,7) < 0 then
284 html0(15) = "<td align=center width='68%'><a class=pk><span id='goal_" & match_id & "'>"&goal_cn&"</span></a></td>"
285 html0(16) = "<td><a href=""javascript:Guess("&i&",5)"" class=sb><span id='guestodds_" & match_id & "'>"&matchData(i,9)&"</span></td>"
286 else
287 html0(15) = "<td align=center width='68%'></td>"
288 html0(16) = "<td><a href=""javascript:Guess("&i&",5)"" class=sb><span id='guestodds_" & match_id & "'>"&matchData(i,9)&"</span></a></td>"
289 end if
290 html0(17) = "</tr></table></td>"
291
292 if matchData(i,13)="" then
293 html0(18) = "<td align=right>小<span id='goal_t2_" & match_id & "'> </span> <a href=""javascript:Guess("&i&",7)"" class=sb><span id='downodds_t_" & match_id & "'>"&matchData(i,15)&"</span></a></td>"
294 else
295 html0(18) = "<td align=right>小<span id='goal_t2_" & match_id & "'>"&Goal_T_Cn(matchData(i,13)*4)&"</span> <a href=""javascript:Guess("&i&",7)"" class=sb><span id='downodds_t_" & match_id & "'>"&matchData(i,15)&"</span></a></td>"
296 end if
297
298 html0(19) = "<td width='20%'><table border=0 cellspacing=0 cellpadding=0 width=100% class=en11><tr><td width=60% align=right>"&guestmoney&"</td><td align=left>/<font color=#880000>"&perguestmoney&"%</td></tr></table></td></tr>"
299
300 html0(20) = "<tr bgcolor=#FFFBF1>"
301 html0(21) = "<td align=left>和局</td>"
302 html0(22) = "<td align=center><a href=""javascript:Guess("&i&",2)"" class=sb><span id='Standoff_" & match_id & "'>"&matchData(i,12)&"</span></td>"
303 html0(23) = "<td colSpan=3 align=right>"
304 html0(23) = html0(23) & "<A href=""javascript:analysis("&match_id&")"" target=_self style='color:#0000FF'>分析</A> <a href=""javascript:panlu("&match_id&")"" style='color:#0000FF'>盘路</A> <a href=""javascript:SingleAnaly("&i&",0)"" style='color:#0000FF'>数据</A> <A href=""javascript:Guess("&i&",0)"" target=_self style='color:#0000FF'>竞猜</A> </td></tr></table>"
305 For j = 0 To 23
306 tr_html(i) = tr_html(i) & vbCrLf & html0(j)
307 Next
308
309 end if
310 next
311
312 oddshtml="<table width='100%' border=0 align=center cellpadding=3 cellspacing=1 bgcolor=#FFE271 class=font12>"
313 oddshtml=oddshtml& " <tr bgcolor=#FDC135 align=center class=font12>"
314 oddshtml=oddshtml& " <td width=10%>时间</td>"
315 oddshtml=oddshtml& " <td width=30% align=left>主客队伍</td>"
316 oddshtml=oddshtml& " <td width=8%>独赢</td>"
317 oddshtml=oddshtml& " <td width=20%>让球</td>"
318 oddshtml=oddshtml& " <td width=17%>大小</td>"
319 oddshtml=oddshtml& " <td width=15%>让球竞猜额</td>"
320 oddshtml=oddshtml& " </tr></table>"
321
322 For ii = 0 To matchcount-1
323 oddshtml=oddshtml&vbCrLf & tr_html(ii)
324 Next
325 document.getElementById("odds").innerhtml=oddshtml
326end sub
327
328 '赔率联赛/杯赛名列表
329sub matkeleague()
330 on error resume next
331 dim kk1
332 dim st
333 dim leaguehtml
334
335 set kk1=myxml.childNodes.item(1).childNodes.item(1)
336 leaguecount=kk1.childNodes.length
337 leaguehtml=""
338 for i=0 to leaguecount-1
339 st=split(kk1.childNodes.item(i).Text,",")(m_language)
340 if instr(sclass,st)>0 then
341 leaguehtml=leaguehtml & "<tr class=font12><td><input onclick='CheckLeague(" & i+1 & ")' checked type=checkbox id='checkboxleague_" & i+1 & "' value='" & st & "' NAME='checkboxleague_" & i+1 & "'/><label style='cursor:hand' for='checkboxleague_" & i+1 & "' id='labelleague_" & i+1 & "'>" & st & "</label></td></tr>"
342 end if
343 next
344 leaguehtml="<TABLE WIDTH=100% BORDER=0 CELLPADDING=0 CELLSPACING=0>" & leaguehtml & "</TABLE>"
345 document.getElementById("myleague").innerHTML=leaguehtml
346end sub
347
348sub getoddsxml()
349 on error resume next
350 xmlOdds1.load "xml/football_ch1.xml"
351 xmlOdds1.onreadystatechange =GetRef("refresh")
352 window.setTimeout "getoddsxml()",4000
353end sub
354
355sub refresh()
356 on error resume next
357 if xmlOdds1.readyState<>4 then exit sub
358 if xmlOdds1.parseError.errorCode<>0 Then exit sub
359 if xmlOdds1.xml = "" then exit sub
360
361 xml1.async = false
362 xml1.loadXML xmlOdds1.xml
363
364 if xml1.xml= xml1_xml or xml1.xml="" then exit sub
365 if xml1.readyState <>"complete" then exit sub
366 xml1_xml=xml1.xml
367 if loaded<> -1 then
368 loaded=-1
369 else
370 if xml1.childNodes.item(1).Attributes(0).text<>"0" then
371 call loadodds(pageNum,m_language)
372 exit sub
373 end if
374 Call oddsRefresh()
375 end if
376end sub
377
378
379sub oddsRefresh()
380 on error resume next
381 dim i
382 dim j
383 dim match_id
384 dim matchtime
385 dim match_oddsid
386 dim match_shangpan
387 dim match_goal
388 dim match_homeodds
389 dim match_guestodds
390
391 dim upoddschange, downoddschange, oddschange
392 document.getElementById("notify").innerHTML= ""
393 For i = 0 To xml1.childNodes.Item(1).childNodes.length - 1
394 match_id=xml1.childNodes.Item(1).childNodes.Item(i).childNodes(0).Text
395 matchtime=xml1.childNodes.Item(1).childNodes.Item(i).childNodes(1).Text
396
397 match_oddsid=split(xml1.childNodes.Item(1).childNodes.Item(i).childNodes(2).Text,",")(0)'ID
398 match_goal=split(xml1.childNodes.Item(1).childNodes.Item(i).childNodes(2).Text,",")(1)'盘口
399 match_homeodds=split(xml1.childNodes.Item(1).childNodes.Item(i).childNodes(2).Text,",")(2) '上盘水位
400 match_guestodds=split(xml1.childNodes.Item(1).childNodes.Item(i).childNodes(2).Text,",")(3) '下盘水位
401
402 homewin=split(xml1.childNodes.Item(1).childNodes.Item(i).childNodes(3).Text,",")(0)'主胜
403 guestwin=split(xml1.childNodes.Item(1).childNodes.Item(i).childNodes(3).Text,",")(1) '客胜
404 Standoff=split(xml1.childNodes.Item(1).childNodes.Item(i).childNodes(3).Text,",")(2) '走水
405
406 match_goal_t=split(xml1.childNodes.Item(1).childNodes.Item(i).childNodes(4).Text,",")(0)'盘口
407 match_upodds_t=split(xml1.childNodes.Item(1).childNodes.Item(i).childNodes(4).Text,",")(1) '上盘水位
408 match_downodds_t=split(xml1.childNodes.Item(1).childNodes.Item(i).childNodes(4).Text,",")(2) '下盘水位
409
410 if typename(document.getElementById("table_" & match_id))="Nothing" then tmp=false else tmp=true
411 '对象存在
412 if tmp then
413 match_index=document.getElementById("table_" & match_id).index
414 oddschange_l=false
415 oddschange_s=false
416 oddschange_t=false
417 goalchange_l=false
418 goalchange_t=false
419 '判断让球盘上盘水位是否有变化
420 if matchData(match_index,8)<>match_homeodds then
421 if matchData(match_index,8)>match_homeodds then
422 document.getElementById("homeodds_" & match_id).style.backgroundColor="#00FF44"
423 else
424 document.getElementById("homeodds_" & match_id).style.backgroundColor="#F8A7A3"
425 end if
426 document.getElementById("homeodds_" & match_id).innertext=match_homeodds
427 matchData(match_index,8)=match_homeodds
428 oddschange_l=true
429 end if
430 '判断让球盘下盘水位是否有变化
431 if matchData(match_index,9)<>match_guestodds then
432 if matchData(match_index,9)>match_guestodds then
433 document.getElementById("guestodds_" & match_id).style.backgroundColor="#00FF44"
434 else
435 document.getElementById("guestodds_" & match_id).style.backgroundColor="#F8A7A3"
436 end if
437 document.getElementById("guestodds_" & match_id).innertext=match_guestodds
438 matchData(match_index,9)=match_guestodds
439 oddschange_l=true
440 end if
441
442 '判断大小盘上盘水位是否有变化
443 if matchData(match_index,14)<>match_upodds_t then
444 if matchData(match_index,14)>match_upodds_t then
445 document.getElementById("upodds_t_" & match_id).style.backgroundColor="#00FF44"
446 else
447 document.getElementById("upodds_t_" & match_id).style.backgroundColor="#F8A7A3"
448 end if
449 document.getElementById("upodds_t_" & match_id).innertext=match_upodds_t
450 matchData(match_index,14)=match_upodds_t
451 oddschange_t=true
452 end if
453 '判断大小盘下盘水位是否有变化
454 if matchData(match_index,15)<>match_downodds_t then
455 if matchData(match_index,15)>match_downodds_t then
456 document.getElementById("downodds_t_" & match_id).style.backgroundColor="#00FF44"
457 else
458 document.getElementById("downodds_t_" & match_id).style.backgroundColor="#F8A7A3"
459 end if
460 document.getElementById("downodds_t_" & match_id).innertext=match_downodds_t
461 matchData(match_index,15)=match_downodds_t
462 oddschange_t=true
463 end if
464
465 '判断标准盘主胜水位是否有变化
466 if matchData(match_index,10)<>homewin then
467 if matchData(match_index,10)>homewin then
468 document.getElementById("homewin_" & match_id).style.backgroundColor="#00FF44"
469 else
470 document.getElementById("homewin_" & match_id).style.backgroundColor="#F8A7A3"
471 end if
472 document.getElementById("homewin_" & match_id).innertext=homewin
473 matchData(match_index,10)=homewin
474 oddschange_s=true
475 end if
476 '判断标准盘客胜水位是否有变化
477 if matchData(match_index,11)<>guestwin then
478 if matchData(match_index,11)>guestwin then
479 document.getElementById("guestwin_" & match_id).style.backgroundColor="#00FF44"
480 else
481 document.getElementById("guestwin_" & match_id).style.backgroundColor="#F8A7A3"
482 end if
483 document.getElementById("guestwin_" & match_id).innertext=guestwin
484 matchData(match_index,11)=guestwin
485 oddschange_s=true
486 end if
487 '判断标准盘走水水位是否有变化
488 if matchData(match_index,12)<>Standoff then
489 if matchData(match_index,12)>Standoff then
490 document.getElementById("Standoff_" & match_id).style.backgroundColor="#00FF44"
491 else
492 document.getElementById("Standoff_" & match_id).style.backgroundColor="#F8A7A3"
493 end if
494 document.getElementById("Standoff_" & match_id).innertext=Standoff
495 matchData(match_index,12)=Standoff
496 oddschange_s=true
497 end if
498
499 '检查让球盘口
500 goalchange=false
501 if matchData(match_index,7)<>match_goal then
502 if match_goal<>""then
503 '升盘
504 if cdbl(matchData(match_index,7))<cdbl(match_goal) then
505 document.getElementById("goal_" & match_id).innerHTML= "<img src='image/odds_up.gif' width=12 height=11 border=0>"& Goal2GoalCn(match_goal)
506 elseif cdbl(matchData(match_index,7))>cdbl(match_goal) then
507 document.getElementById("goal_" & match_id).innerHTML= Goal2GoalCn(match_goal)&"<img src='image/odds_down.gif' width=12 height=11 border=0>"
508 end if
509 else
510 document.getElementById("goal_" & match_id).innertext=""
511 end if
512 matchData(match_index,7)=match_goal
513 goalchange_l=true
514 end if
515
516 '检查大小盘盘口
517 if matchData(match_index,13)<>match_goal_t then
518 if match_goal<>""then
519 '升盘
520 if cdbl(matchData(match_index,13))<cdbl(match_goal_t) then
521 document.getElementById("goal_t1_" & match_id).innerHTML= "<img src='image/odds_up.gif' width=12 height=11 border=0>"&Goal_T_Cn(match_goal_t*4)
522 document.getElementById("goal_t2_" & match_id).innerHTML= "<img src='image/odds_up.gif' width=12 height=11 border=0>"&Goal_T_Cn(match_goal_t*4)
523 else
524 document.getElementById("goal_t1_" & match_id).innerHTML= Goal_T_Cn(match_goal_t*4)&"<img src='image/odds_down.gif' width=12 height=11 border=0>"
525 document.getElementById("goal_t2_" & match_id).innerHTML= Goal_T_Cn(match_goal_t*4)&"<img src='image/odds_down.gif' width=12 height=11 border=0>"
526 end if
527 else
528 document.getElementById("goal_t1_" & match_id).innertext=""
529 document.getElementById("goal_t2_" & match_id).innertext=""
530 end if
531 matchData(match_index,13)=match_goal_t
532 goalchange_t=true
533 end if
534
535 oddschange=oddschange_l or oddschange_s or oddschange_t
536 goalchange=goalchange_l or goalchange_t
537 if oddschange or goalchange then call Ch_SB_odds(match_id,goalchange) '声音提示
538 end if
539 next
540end sub
541
542
543'进入下注页
544sub Guess(i,flag)
545 window.open "DummyBet.aspx?ID="&matchData(i,0)&"&ball=1&type=1&flag="&flag&"&oddsid="&matchData(i,6)&"&goal="&matchData(i,7)&"&homeodds="&matchData(i,8)&"&guestodds="&matchData(i,9)&"&homeWin="&matchData(i,10)&"&guestWin="&matchData(i,11)&"&standoff="&matchData(i,12)&"&OUgoal="&matchData(i,13)&"&OverOdds="&matchData(i,14)&"&UnderOdds="&matchData(i,15)&"&t1="&matchData(i,19)&"&t2="&matchData(i,20)&"&time="&matchData(i,1)&"&goalcn="&Goal2GoalCn(matchData(i,7)),"","width=388,height=280,resizable=yes,scrollbars=no"
546end sub
547
548'进入分析页
549sub SingleAnaly(i,flag)
550 window.open "SingleAnaly.aspx?ID="&matchData(i,0)&"&ball=1&type=1&flag="&flag&"&oddsid="&matchData(i,6)&"&goal="&matchData(i,7)&"&homeodds="&matchData(i,8)&"&guestodds="&matchData(i,9)&"&homeWin="&matchData(i,10)&"&guestWin="&matchData(i,11)&"&standoff="&matchData(i,12)&"&OUgoal="&matchData(i,13)&"&OverOdds="&matchData(i,14)&"&UnderOdds="&matchData(i,15)&"&t1="&matchData(i,19)&"&t2="&matchData(i,20)&"&time="&matchData(i,1)&"&goalcn="&Goal2GoalCn(matchData(i,7)),"","width=388,height=410,resizable=yes,scrollbars=no"
551end sub
552
553'到了开场时间，自动隐葳赛事
554sub autoHide()
555 for i=0 to matchcount-1
556 '到了开场时间
557 if matchData(i,4) and dateadd("s", diffTime-900,matchData(i,1))<now() then
558 matchData(i,4)=false
559 document.getElementById("table_" & matchData(i,0)).style.display="none"
560 end if
561 next
562 setTimeout "autoHide()",120000
563end sub
564
565sub Ch_SB_odds(m,goalchange)
566 on error resume next
567 dim addHtml,n
568 '赛事没被隐藏 并且选择了声音提示
569 if soundCheck and document.getElementById("table_" & m).style.display<>"none" then
570 document.getElementById("sound").innerhtml=flash_sound(0)
571 end if
572 window.setTimeout "ComebackSBOddsColor(" & m & ")",60000
573end sub
574'恢复背景颜色
575sub ComebackSBOddsColor(matchid)
576 on error resume next
577 document.getElementById("homeodds_" & matchid).style.backgroundColor=""
578 document.getElementById("guestodds_" & matchid).style.backgroundColor=""
579 document.getElementById("upodds_t_" & matchid).style.backgroundColor=""
580 document.getElementById("downodds_t_" & matchid).style.backgroundColor=""
581 document.getElementById("homewin_" & matchid).style.backgroundColor=""
582 document.getElementById("guestwin_" & matchid).style.backgroundColor=""
583 document.getElementById("standoff_" & matchid).style.backgroundColor=""
584 document.getElementById("goal_" & matchid).innerhtml=document.getElementById("goal_" & matchid).innertext
585 document.getElementById("goal_t1_" & matchid).innerhtml=document.getElementById("goal_t1_" & matchid).innertext
586 document.getElementById("goal_t2_" & matchid).innerhtml=document.getElementById("goal_t2_" & matchid).innertext
587end sub
588sub CheckLeague(SclassIndex)
589 on error resume next
590 dim j,sclass, matchid,hh
591 sclass=document.getElementById("labelleague_" & SclassIndex).innertext
592 hh=document.getElementById("hiddencount").innerText
593 if document.getElementById("checkboxleague_" & SclassIndex).checked=true then
594 for j=0 to matchcount-1
595 if matchData(j,4) and matchData(j,2)=sclass then
596 document.getElementById("table_" & matchData(j,0)).style.display=""
597 hh=hh-1
598 end if
599 next
600 else
601 for j=0 to matchcount-1
602 if matchData(j,4) and matchData(j,2)=sclass then
603 document.getElementById("table_" & matchData(j,0)).style.display="none"
604 hh=hh+1
605 end if
606 next
607 end if
608 document.getElementById("hiddencount").innerText=hh
609end sub
610
611'今天所有的赛事
612sub showallmatch()
613 on error resume next
614 dim i
615 for i= 0 to matchcount-1
616 if matchData(i,4) then document.getElementById("table_" & matchData(i,0)).style.display=""
617 next
618 for i=1 to leaguecount
619 document.getElementById("checkboxleague_" & i).checked=true
620 next
621 document.getElementById("hiddencount").innerText=0
622end sub
623
624sub SelectOtherLeague()
625 on error resume next
626 dim i,j,hh,league
627 hh=0
628 for i=1 to leaguecount
629 document.getElementById("checkboxleague_" & i).checked=not document.getElementById("checkboxleague_" & i).checked
630 next
631
632 dim matchid
633 for i=1 to leaguecount
634 if typename(document.getElementById("labelleague_" & i))<>"Nothing" then
635 league=document.getElementById("labelleague_" & i).innertext
636 if document.getElementById("checkboxleague_" & i).checked=true then
637 for j=0 to matchcount-1
638 if matchData(j,2)=league then
639 document.getElementById("table_" & matchData(j,0)).style.display=""
640 end if
641 next
642 else
643 for j=0 to matchcount-1
644 if matchData(j,4) and matchData(j,2)=league then
645 document.getElementById("table_" & matchData(j,0)).style.display="none"
646 hh=hh+1
647 end if
648 next
649 end if
650 end if
651 next
652 document.getElementById("hiddencount").innerText=hh
653end sub
654</script>
655
656
657<script language="vbscript">
658dim xmlScore
659Set xmlScore = CreateObject("Microsoft.XMLDOM")
660
661dim i,j,xml1_xml,loaded
662dim kk,matchcount,matchdata(),tmp,sclasscount
663dim html(30),output,m_language
664dim flash_Goal
665dim soundCheck
666soundCheck=true
667dim ScoreFile
668ScoreFile="NBA\today.xml"
669
670flash_Goal = "<object classid='clsid:D27CDB6E-AE6D-11cf-96B8-444553540000' codebase='http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,0,0' width='0' height='0'><param name='movie' value='nba/sound.swf'><param name='quality' value='high'><param name='wmode' value='transparent'></object>"
671
672dim state(51)
673state(0)="<b>完</b>,<b>完</b>,<b>FT</b>"
674state(1)="未开场,未开場,"
675state(2)="第1节,第1節,1st"
676state(3)="第2节,第2節,2nd"
677state(4)="第3节,第3節,3rd"
678state(5)="第4节,第4節,4th"
679state(6)="第1'OT,第1'OT,1'OT"
680state(7)="第2'OT,第2'OT,2'OT"
681state(8)="第3'OT,第3'OT,3'OT"
682
683state(11)="上半场,下半場,1st"
684state(13)="下半场,下半場,2nd"
685state(51)="中场,中場,Half"
686
687sub seldate(date)
688 ScoreFile="nba_date.aspx?date=" & date
689 Call loadScore(m_language)
690end sub
691
692sub loadScore(language)
693 loaded=0
694 m_language=language
695 myxml.async = false
696 myxml.load ScoreFile
697 set kk=myxml.childNodes.item(1).childNodes.item(0)
698 matchcount=kk.childNodes.length
699
700 redim matchdata(matchcount-1,35) '赛事数据
701
702 Call MakeTable()
703 call MakeSclass()
704end sub
705
706loadScore(0)
707
708'0 ID
709'1 name_en
710'2 sclassType
711'3 color
712'4 matchtime
713'5 matchstate
714'6 remaintime
715'7 hometeamID
716'8 hometeam , hometeam_F , +hometeam_E
717'9 guestteamID
718'10 guestteam , guestteam_F , +guestteam_E
719'11 homescore
720'12 guestscore
721'13 homeone
722'14 guestone
723'15 hometwo
724'16 guesttwo
725'17 homethree
726'18 guestthree
727'19 homefour
728'20 guestfour
729'21 addtime
730'22 HomeAddtime1
731'23 GuestAddTime1
732'24 HomeAddtime2
733'25 GuestAddTime2
734'26 HomeAddtime3
735'27 GuestAddTime3
736'28 addTechnic
737'29 tv
738'30 explain
739'31 explain2
740
741sub MakeTable()
742 on error resume next
743 dim homehalfscore,guesthalfscore,homehalfscore2,guesthalfscore2
744 output=""
745
746 for i=0 to matchcount-1
747 if i mod 2=0 then bg="tr_color1" else bg="tr_color2"
748 tmp=split(kk.childNodes.item(i).childNodes.item(0).Text,"^")
749 for j=0 to ubound(tmp)
750 matchdata(i,j)=tmp(j)
751 next
752 matchstate=cint(tmp(5))
753 html(0)="<table width=570 border=0 align=center cellpadding=0 cellspacing=1 bgcolor=#FFFFFF id='table_" & matchdata(i,0) &"' index=" & i &"><tr align=center bgcolor='#9FC4DE' height=18><td colspan=2 width='30%' bgcolor='" & matchdata(i,3) & "'><table width='98%' border=0 align=center cellpadding=0 cellspacing=0><tr><td width='85%' class=white><b>" & matchdata(i,1) & "： "
754 if tmp(2)=2 and (matchstate=1 or matchstate=3) then '只分两节
755 html(1)="<span id=zt_" & matchdata(i,0) & ">" & split(state(matchstate+10),",")(m_language)
756 else
757 html(1)="<span id=zt_" & matchdata(i,0) & ">" & split(state(matchstate+1),",")(m_language)
758 end if
759 if matchstate=-1 then score_class="td_scoreR" else score_class="td_score"
760
761 tv=" "
762 if(matchdata(i,29)<>"") then tv="<img alt='" & matchdata(i,29) & "' src=image/tv.gif width=12 height=14>" '直播
763 html(2)="</span> <span id=jy_" & matchdata(i,0) & ">" & matchdata(i,6) & "</span></b></td><td width='15%'>" + tv + "</td></tr></table></td>"
764
765 if matchdata(i,21)="" then matchdata(i,21)=0
766 select case m_language
767 case 0:
768 if matchdata(i,2)=4 then
769 html(3)="<td>一节</td><td>二节</td><td>三节</td><td>四节</td>"
770 else
771 html(3)="<td>上半场</td><td> </td><td>下半场</td><td> </td>"
772 end if
773 for j=1 to matchdata(i,21)
774 html(3)=html(3) & "<td>" & j & "'OT</td>"
775 next
776 html(3)= html(3) & "<td width='8%'>半场</td><td width='8%'>全场</td><td width='7%'>分差</td><td width='9%'>总分</td><td width='6%'>分析</td></tr>"
777 case 1:
778 if matchdata(i,2)=4 then
779 html(3)="<td>一節</td><td>二節</td><td>三節</td><td>四節</td>"
780 else
781 html(3)="<td>上半場</td><td> </td><td>下半場</td><td> </td>"
782 end if
783 for j=1 to matchdata(i,21)
784 html(3)= html(3) & "<td>"& j & "'OT</td>"
785 next
786 html(3)= html(3) & "<td width='8%'>半場</td><td width='8%'>全場</td><td width='7%'>分差</td><td width='9%'>总分</td><td width='6%'>分析</td></tr>"
787 case 2:
788 if matchdata(i,2)=4 then
789 html(3)="<td>Part 1</td><td>Part 2</td><td>Part 3</td><td>Part 4</td>"
790 else
791 html(3)="<td>Part 1</td><td> </td><td>Part 2</td><td> </td>"
792 end if
793 for j=1 to matchdata(i,21)
794 html(3)= html(3) & "<td>"& j & "'OT</td>"
795 next
796 html(3)= html(3) & "<td width='7%'>H</td><td width='8%'>T</td><td width='8%'>SD</td><td width='9%'>Total</td><td width='6%'>Data</td></tr>"
797 end select
798
799 html(4)="<tr align=center height=20 class="& bg &" ID=tr1_" & matchdata(i,0) & ">"
800 html(5)="<td rowspan=2 width='10%'>" & month(matchdata(i,4)) & "月" & day(matchdata(i,4)) & "日" & "<BR>" & formatdatetime(matchdata(i,4),vbshorttime) & "<input type=checkbox checked onclick='hidematch(" & i & ");return false;' class=inp></td>"
801 html(6)="<td><a href='http://nba.bet007.com/team/teaminfo" & matchdata(i,7) & ".htm' target=_blank>" & split(matchdata(i,8),",")(m_language) & "(主)</a></td>"
802
803 if (matchstate=-1 or matchstate>=1) then
804 html(7)="<td id=hs1_" & matchdata(i,0) & ">" & matchdata(i,13) & "</td>"
805 else
806 html(7)="<td id=hs1_" & matchdata(i,0) & "> </td>"
807 end if
808 if (matchstate=-1 or matchstate>=2) and matchdata(i,2)=4 then
809 html(8)="<td id=hs2_" & matchdata(i,0) & ">" & matchdata(i,15) & "</td>"
810 else
811 html(8)="<td id=hs2_" & matchdata(i,0) & "> </td>"
812 end if
813 if (matchstate=-1 or matchstate>=3) and matchstate<>50 then
814 html(9)="<td id=hs3_" & matchdata(i,0) & ">" & matchdata(i,17) & "</td>"
815 else
816 html(9)="<td id=hs3_" & matchdata(i,0) & "> </td>"
817 end if
818 if (matchstate=-1 or matchstate>=4) and matchstate<>50 and matchdata(i,2)=4 then
819 html(10)="<td id=hs4_" & matchdata(i,0) & ">" & matchdata(i,19) & "</td>"
820 else
821 html(10)="<td id=hs4_" & matchdata(i,0) & "> </td>"
822 end if
823
824 html(11)=""
825 for j=1 to matchdata(i,21)
826 html(11)=html(11) & "<td id=hadd" & i & "_" & matchdata(i,0) & ">" & matchdata(i,20+j*2) & "</td>"
827 next
828 '半场比分
829 if(matchstate<>0) then
830 if matchdata(i,15)<>"" then homehalfscore=cint(matchdata(i,13)) + cint(matchdata(i,15)) else homehalfscore=cint(matchdata(i,13))
831 if matchdata(i,16)<>"" then guesthalfscore=cint(matchdata(i,14)) + cint(matchdata(i,16)) else guesthalfscore=cint(matchdata(i,14))
832 end if
833 homehalfscore2=0
834 guesthalfscore2=0
835 if(matchstate>=3 and matchstate<10) or matchstate=-1 then
836 if matchdata(i,19)<>"" then homehalfscore2=cint(matchdata(i,17)) + cint(matchdata(i,19)) else homehalfscore2=cint(matchdata(i,17))
837 if matchdata(i,20)<>"" then guesthalfscore2=cint(matchdata(i,18)) + cint(matchdata(i,20)) else guesthalfscore2=cint(matchdata(i,19))
838 end if
839
840 if (matchstate>2 or matchstate=-1) then
841 html(12)="<td><font color=blue id=hbc_" & matchdata(i,0) & ">" & homehalfscore & "</font>/"
842 else
843 html(12)="<td><font color=blue id=hbc_" & matchdata(i,0) & "></font>/"
844 end if
845 if (matchstate>=3 and matchstate<10) or matchstate=-1 then
846 html(12)=html(12)&"<font color=blue id=hbc2_" & matchdata(i,0) & ">" & homehalfscore2 & "</font></td>"
847 else
848 html(12)=html(12)&"<font color=blue id=hbc2_" & matchdata(i,0) & "></font></td>"
849 end if
850
851 '全场比分
852 if(matchstate<>0) then
853 if matchdata(i,28) then
854 html(13)="<td class=" & score_class & " id=hzf_" & matchdata(i,0) & " title='点击查看技术统计' onclick=""javascript:open('http://nba.bet007.com/HTML_TechnicCount/" & matchdata(i,0) & ".htm','','');"">" & matchdata(i,11) & "</td>"
855 else
856 html(13)="<td class=" & score_class & " id=hzf_" & matchdata(i,0) & ">" & matchdata(i,11) & "</td>"
857 end if
858 html(14)="<td id=bfc_" & matchdata(i,0) & ">半:"& homehalfscore-guesthalfscore & "</td><td id=bzf_" & matchdata(i,0) & ">半:"& homehalfscore+guesthalfscore & "</td>"
859
860 else
861 html(13)="<td class=td_score id=hzf_" & matchdata(i,0) & "> </td>"
862 html(14)="<td id=bfc_" & matchdata(i,0) & "></td><td id=bzf_" & matchdata(i,0) & "></td>"
863 end if
864 html(14)=html(14) &"<td><a href='http://nba.bet007.com/analysis/"& matchdata(i,0) & ".htm' target=_blank>分析</a></td></tr>"
865
866'--------------------------------------------------------------------------------------------
867
868 html(15)="<tr align=center height=20 class="& bg &" ID=tr1_" & matchdata(i,0) & ">"
869 html(16)="<td><a href='http://nba.bet007.com/team/teaminfo" & matchdata(i,9) & ".htm' target=_blank>" & split(matchdata(i,10),",")(m_language) & "</a></td>"
870
871 if (matchstate=-1 or matchstate>=1) then
872 html(17)="<td id=gs1_" & matchdata(i,0) & ">" & matchdata(i,14) & "</td>"
873 else
874 html(17)="<td id=gs1_" & matchdata(i,0) & "> </td>"
875 end if
876 if (matchstate=-1 or matchstate>=2) and matchdata(i,2)=4 then
877 html(18)="<td id=gs2_" & matchdata(i,0) & ">" & matchdata(i,16) & "</td>"
878 else
879 html(18)="<td id=gs2_" & matchdata(i,0) & "> </td>"
880 end if
881 if (matchstate=-1 or matchstate>=3) and matchstate<>50 then
882 html(19)="<td id=gs3_" & matchdata(i,0) & ">" & matchdata(i,18) & "</td>"
883 else
884 html(19)="<td id=gs3_" & matchdata(i,0) & "> </td>"
885 end if
886 if (matchstate=-1 or matchstate>=4) and matchstate<>50 and matchdata(i,2)=4 then
887 html(20)="<td id=gs4_" & matchdata(i,0) & ">" & matchdata(i,20) & "</td>"
888 else
889 html(20)="<td id=gs4_" & matchdata(i,0) & "> </td>"
890 end if
891
892 html(21)=""
893 for j=1 to matchdata(i,21)
894 html(21)=html(21) & "<td id=gadd" & i & "_" & matchdata(i,0) & ">" & matchdata(i,21+j*2) & "</td>"
895 next
896 '半场比分
897 if (matchstate>2 or matchstate=-1) then '下半场或完场显示半场比分
898 html(22)="<td><font color=blue id=gbc_" & matchdata(i,0) & ">" & guesthalfscore & "</font>/"
899 else
900 html(22)="<td><font color=blue id=gbc_" & matchdata(i,0) & "></font>/"
901 end if
902 if (matchstate>=3 and matchstate<10) or matchstate=-1 then
903 html(22)=html(22) & "<font color=blue id=gbc2_" & matchdata(i,0) & ">" & guesthalfscore2 & "</font></td>"
904 else
905 html(22)=html(22) & "<font color=blue id=gbc2_" & matchdata(i,0) & "></font></td>"
906 end if
907
908 '全场比分
909
910 if(matchstate<>0) then
911 if matchdata(i,28) then
912 html(23)="<td class=" & score_class & " id=gzf_" & matchdata(i,0) & " title='点击查看技术统计' onclick=""javascript:open('http://nba.bet007.com/HTML_TechnicCount/" & matchdata(i,0) & ".htm','','');"">" & matchdata(i,12) & "</td>"
913 else
914 html(23)="<td class=" & score_class & " id=gzf_" & matchdata(i,0) & ">" & matchdata(i,12) & "</td>"
915 end if
916 else
917 html(23)="<td class=td_score id=gzf_" & matchdata(i,0) & "> </td>"
918 end if
919 if matchstate=-1 or matchstate>2 and matchstate<>50 then
920 html(24)="<td id=qfc_" & matchdata(i,0) & ">全:"& cint(matchdata(i,11) ) - cint(matchdata(i,12)) &"</td><td id=qzf_" & matchdata(i,0) & ">全:"& cint(matchdata(i,11) ) + cint(matchdata(i,12)) &"</td>"
921 else
922 html(24)="<td id=qfc_" & matchdata(i,0) & "></td><td id=qzf_" & matchdata(i,0) & "></td>"
923 end if
924 html(24)=html(24)&"<td><a href='http://nba.bet007.com/1x2/oddslist/"& matchdata(i,0) & ".htm' target=_blank>欧指</a></td></tr>"
925
926 ' 赛事说明
927 html(25)="<tr height=20 id=tr2_" & matchdata(i,0) & "><td colspan=12 bgcolor=#F0F0F0><table width='100%' border=0 cellpadding=0 cellspacing=0><tr class=explain align=center><td width='50%'id=sm_" & matchdata(i,0) &">" & matchdata(i,30) &"</td><td width='46%' id=sm2_" & matchdata(i,0) & ">" & matchdata(i,31) & "</td><td width='4%'><img src='image/sms.gif' onclick=sms(" & i &") style='cursor:hand' width=18 height=15 alt='订阅单场篮球比分'></td></tr></table></td></tr></table>"
928
929 ' 广告
930 if i=0 then html(25)=html(25) & "<table width=570 border=0 align=center cellpadding=0 cellspacing=1 bgcolor=#FFFFFF><tr><TD align=center height=20>广告：<b><a href='http://www.wnba88.com/' target=_blank style='color:blue'>wnba nba篮球推介 最精准欧洲来料 实力公开验证！→请点击进入</a></b></TD></tr></table>"
931
932 html(26)="</table>"
933 output=output & (html(0) &html(1) &html(2) &html(3) &html(4) &html(5) &html(6) &html(7) &html(8) &html(9) &html(10) &html(11) &html(12) &html(13) &html(14) &html(15) &html(16) &html(17) &html(18) &html(19) &html(20) &html(21) &html(22) &html(23) &html(24) &html(25) &html(26))
934 next
935
936 if matchcount=0 then output= "<table width=560 height=40><tr><td align=center class=f1 bgcolor=#F0F0F0>当日没有篮球赛事!</td></tr></table>"
937 document.getElementById("live").innerHTML=output
938end sub
939
940
941 '联赛/杯赛名列表
942sub MakeSclass()
943 dim k
944 dim leaguehtml
945 leaguehtml="<TABLE WIDTH='100%' BORDER=0 CELLPADDING=0 CELLSPACING=0>"
946 k=split(myxml.childNodes.item(1).childNodes.item(1).text,",")
947 sclasscount=ubound(k)-1
948 for i=0 to sclasscount
949 leaguehtml=leaguehtml & ("<tr><td><input onclick=CheckLeague(" & i & ",'" & k(i) & "') checked type=checkbox id='checkboxleague_" & i & "' value='" & k(i) & "'><label style='cursor:hand' for='checkboxleague_" & i & "'>" & k(i) & "</label></td></tr>")
950 next
951 leaguehtml=leaguehtml & "</TABLE>"
952 document.getElementById("sclass").innerHTML=leaguehtml
953end sub
954
955
956sub getxml()
957 on error resume next
958 xmlScore.load "nba/change.xml"
959 xmlScore.onreadystatechange =GetRef("refresh")
960 window.setTimeout "getxml()",3000
961end sub
962
963sub refresh()
964 on error resume next
965 if xmlScore.readyState<>4 then exit sub
966 if xmlScore.parseError.errorCode<>0 Then exit sub
967 if xmlScore.xml = "" then exit sub
968
969 xml1.async = false
970 xml1.loadXML xmlScore.xml
971
972 if xml1.xml=xml1_xml or xml1.xml="" then exit sub
973 xml1_xml=xml1.xml
974
975 dim tmp
976
977 if loaded<>-1 then
978 loaded=-1
979 exit sub
980 else
981 if xml1.childNodes.item(1).Attributes(0).text<>"0" then
982 loadScore(m_language)
983 exit sub
984 end if
985 end if
986
987 dim C,matchid,sclassType
988
989 For i = 0 To xml1.childNodes.Item(1).childNodes.length - 1
990 C=split(xml1.childNodes.Item(1).childNodes.Item(i).Text,"^")
991 matchid=C(0)
992 sclassType=C(15)
993 C(1)=cint(C(1))
994 C(2)=trim(C(2))
995
996 if typename(document.getElementById("table_" & matchid))="Nothing" then tmp=false else tmp=true
997 if tmp then '对象存在
998 match_index=document.getElementById("table_" & matchid).index
999 matchstate=matchdata(match_index,5)
1000
1001 '状态
1002 if matchstate<>c(1) then
1003 matchdata(match_index,5)=c(1)
1004
1005 if sclassType=2 and (C(1)=1 or C(1)=3) then '只分两节
1006 document.getElementById("zt_" & matchid).innerHtml=split(state(C(1)+10),",")(m_language)
1007 else
1008 document.getElementById("zt_" & matchid).innerHtml=split(state(C(1)+1),",")(m_language)
1009 end if
1010
1011 if C(1)=50 then
1012 document.getElementById("hbc_" & matchid).innerHtml=C(3)
1013 document.getElementById("gbc_" & matchid).innerHtml=C(4)
1014 end if
1015 end if
1016
1017 if(c(1)>=3 and c(1)<10) or c(1)=-1 then
1018 if c(11)<>"" then
1019 document.getElementById("hbc2_" & matchid).innerHtml=cint(c(9)) + cint(c(11))
1020 else
1021 document.getElementById("hbc2_" & matchid).innerHtml=cint(c(9))
1022 end if
1023 if c(12)<>"" then
1024 document.getElementById("gbc2_" & matchid).innerHtml=cint(c(10)) + cint(c(12))
1025 else
1026 document.getElementById("gbc2_" & matchid).innerHtml=cint(c(10))
1027 end if
1028 end if
1029
1030
1031 oldHomescore=matchdata(match_index,11)
1032 oldGuestscore=matchdata(match_index,12)
1033 if oldHomescore<>C(3) or oldGuestscore<>C(4) then
1034 matchdata(match_index,11)=C(3)
1035 matchdata(match_index,12)=C(4)
1036
1037 if oldHomescore<>C(3) then document.getElementById("hzf_" & matchid).style.backgroundColor="yellow"
1038 if oldGuestscore<>C(4) then document.getElementById("gzf_" & matchid).style.backgroundColor="yellow"
1039
1040 document.getElementById("hzf_" & matchid).innerHtml=C(3)
1041 document.getElementById("gzf_" & matchid).innerHtml=C(4)
1042
1043 if soundCheck and document.getElementById("table_" & matchid ).style.display="" then document.getElementById("sound").innerHtml=flash_goal
1044
1045 window.setTimeout "timecolors("&matchid&")",15000
1046 end if
1047
1048 '节余
1049 if C(2)="0:0" or C(2)="0.0" or C(2)="0" then
1050 if c(1)=-1 or c(1)=50 then '完场 中场
1051 document.getElementById("jy_" & matchid).innerHtml=""
1052 else
1053 document.getElementById("jy_" & matchid).innerHtml="完"
1054 end if
1055 else
1056 document.getElementById("jy_" & matchid).innerHtml=c(2)
1057 end if
1058
1059 '分节比分
1060 if C(1)=-1 or C(1)>=1 then
1061 if document.getElementById("hs1_" & matchid).innerHtml<>C(5) then C(5)="<span style='color:red'>" & C(5) &"</span>"
1062 if document.getElementById("gs1_" & matchid).innerHtml<>C(6) then C(6)="<span style='color:red'>" & C(6) &"</span>"
1063 document.getElementById("hs1_" & matchid).innerHtml=C(5)
1064 document.getElementById("gs1_" & matchid).innerHtml=C(6)
1065 else
1066 document.getElementById("hs1_" & matchid).innerHtml=""
1067 document.getElementById("gs1_" & matchid).innerHtml=""
1068 end if
1069 if (C(1)=-1 or C(1)>=2) and sclassType=4 then
1070 if document.getElementById("hs2_" & matchid).innerHtml<>C(7) then C(7)="<span style='color:red'>" & C(7) &"</span>"
1071 if document.getElementById("gs2_" & matchid).innerHtml<>C(8) then C(8)="<span style='color:red'>" & C(8) &"</span>"
1072 document.getElementById("hs2_" & matchid).innerHtml=C(7)
1073 document.getElementById("gs2_" & matchid).innerHtml=C(8)
1074 else
1075 document.getElementById("hs2_" & matchid).innerHtml=""
1076 document.getElementById("gs2_" & matchid).innerHtml=""
1077 end if
1078 if C(1)=-1 or C(1)>=3 and C(1)<>50 then
1079 if document.getElementById("hs3_" & matchid).innerHtml<>C(9) then C(9)="<span style='color:red'>" & C(9) &"</span>"
1080 if document.getElementById("gs3_" & matchid).innerHtml<>C(10) then C(10)="<span style='color:red'>" & C(10) &"</span>"
1081 document.getElementById("hs3_" & matchid).innerHtml=C(9)
1082 document.getElementById("gs3_" & matchid).innerHtml=C(10)
1083 else
1084 document.getElementById("hs3_" & matchid).innerHtml=""
1085 document.getElementById("gs3_" & matchid).innerHtml=""
1086 end if
1087 if (C(1)=-1 or C(1)>=4 and C(1)<>50) and sclassType=4then
1088 if document.getElementById("hs4_" & matchid).innerHtml<>C(11) then C(11)="<span style='color:red'>" & C(11) &"</span>"
1089 if document.getElementById("gs4_" & matchid).innerHtml<>C(12) then C(12)="<span style='color:red'>" & C(12) &"</span>"
1090 document.getElementById("hs4_" & matchid).innerHtml=C(11)
1091 document.getElementById("gs4_" & matchid).innerHtml=C(12)
1092 else
1093 document.getElementById("hs4_" & matchid).innerHtml=""
1094 document.getElementById("gs4_" & matchid).innerHtml=""
1095 end if
1096 if C(13)>=1 then '第1加时
1097 if typename(document.getElementById("hadd1_" & matchid))="Nothing" then
1098 loadScore(m_language)
1099 exit sub
1100 end if
1101 document.getElementById("hadd1_" & matchid).innerHtml=C(16)
1102 document.getElementById("gadd1_" & matchid).innerHtml=C(17)
1103 end if
1104 if C(13)>=2 then '第2加时
1105 if typename(document.getElementById("hadd2_" & matchid))="Nothing" then
1106 loadScore(m_language)
1107 exit sub
1108 end if
1109 document.getElementById("hadd2_" & matchid).innerHtml=C(18)
1110 document.getElementById("gadd2_" & matchid).innerHtml=C(19)
1111 end if
1112 if C(13)>=3 then '第3加时
1113 if typename(document.getElementById("hadd3_" & matchid))="Nothing" then
1114 loadScore(m_language)
1115 exit sub
1116 end if
1117 document.getElementById("hadd3_" & matchid).innerHtml=C(20)
1118 document.getElementById("gadd3_" & matchid).innerHtml=C(21)
1119 end if
1120 '说明
1121 document.getElementById("sm_" & matchid).innerHtml=c(14)
1122 document.getElementById("sm2_" & matchid).innerHtml=c(22)
1123 if matchdata(match_index,5)<>0 then
1124 if (matchdata(match_index,5)>=3 and matchdata(match_index,5)<>50) or matchdata(match_index,5)=-1 then '下半场或完场
1125 document.getElementById("qfc_" & matchid).innerHtml="全:" & matchdata(match_index,11)-matchdata(match_index,12)
1126 document.getElementById("qzf_" & matchid).innerHtml="全:" & cint(matchdata(match_index,11))+cint(matchdata(match_index,12))
1127 else
1128 document.getElementById("bfc_" & matchid).innerHtml="半:" & matchdata(match_index,11)-matchdata(match_index,12)
1129 document.getElementById("bzf_" & matchid).innerHtml="半:" & cint(matchdata(match_index,11))+cint(matchdata(match_index,12))
1130 end if
1131 end if
1132 end if
1133 next
1134end sub
1135
1136sub timecolors(matchid)
1137 on error resume next
1138 document.getElementById("hs1_" & matchid).innerHtml=document.getElementById("hs1_" & matchid).innerText
1139 document.getElementById("gs1_" & matchid).innerHtml=document.getElementById("gs1_" & matchid).innerText
1140 document.getElementById("hs2_" & matchid).innerHtml=document.getElementById("hs2_" & matchid).innerText
1141 document.getElementById("gs2_" & matchid).innerHtml=document.getElementById("gs2_" & matchid).innerText
1142 document.getElementById("hs3_" & matchid).innerHtml=document.getElementById("hs3_" & matchid).innerText
1143 document.getElementById("gs3_" & matchid).innerHtml=document.getElementById("gs3_" & matchid).innerText
1144 document.getElementById("hs4_" & matchid).innerHtml=document.getElementById("hs4_" & matchid).innerText
1145 document.getElementById("gs4_" & matchid).innerHtml=document.getElementById("gs4_" & matchid).innerText
1146
1147 document.getElementById("hzf_" & matchid).style.backgroundColor=""
1148 document.getElementById("gzf_" & matchid).style.backgroundColor=""
1149end sub
1150
1151sub hidematch(i)
1152 dim matchindex
1153 document.getElementById("table_" & matchdata(i,0)).style.display="none"
1154 document.getElementById("hiddencount").innerText=document.getElementById("hiddencount").innerText+1
1155end sub
1156
1157sub CheckLeague(i,name)
1158 dim j
1159 dim matchid
1160 hh=document.getElementById("hiddencount").innerText
1161 if document.getElementById("checkboxleague_" & i).checked=true then
1162 for j=0 to matchcount-1
1163 if matchdata(j,1)=name then
1164 document.getElementById("table_" & matchdata(j,0)).style.display=""
1165 hh=hh-1
1166 end if
1167 next
1168 else
1169 for j=0 to matchcount-1
1170 if matchdata(j,1)=name then
1171 document.getElementById("table_" & matchdata(j,0)).style.display="none"
1172 hh=hh+1
1173 end if
1174 next
1175 end if
1176 document.getElementById("hiddencount").innerText=hh
1177end sub
1178
1179sub ShowAllMatch()
1180 dim i
1181 for i=0 to sclasscount
1182 document.getElementById("checkboxleague_" & i).checked=true
1183 next
1184 for i=0 to matchcount-1
1185 document.getElementById("table_" & matchdata(i,0)).style.display=""
1186 next
1187 document.getElementById("hiddencount").innerText=0
1188end sub
1189
1190sub SelectOtherLeague()
1191 dim i,j,hh
1192 dim sclassname
1193 hh=0
1194 for i=0 to sclasscount
1195 sclassname=document.getElementById("checkboxleague_" & i).value
1196 if document.getElementById("checkboxleague_" & i).checked then
1197 document.getElementById("checkboxleague_" & i).checked=false
1198 for j=0 to matchcount-1
1199 if matchdata(j,1)=sclassname then
1200 document.getElementById("table_" & matchdata(j,0)).style.display="none"
1201 hh=hh+1
1202 end if
1203 next
1204 else
1205 document.getElementById("checkboxleague_" & i).checked=true
1206 for j=0 to matchcount-1
1207 if matchdata(j,1)=sclassname then
1208 document.getElementById("table_" & matchdata(j,0)).style.display=""
1209 end if
1210 next
1211 end if
1212 next
1213 document.getElementById("hiddencount").innerText=hh
1214end sub
1215
1216sub sms(i)
1217 window.open "http://bf.bet007.com/sms.aspx?id=" & matchdata(i,0) &"&ball=NBA&team=" & split(matchdata(i,8),",")(m_language) &" VS " & split(matchdata(i,10),",")(m_language), "","scrollbars=no,resizable=no,width=420, height=316"
1218end sub
1219
1220window.setTimeout "getxml()",2000
1221</script>
1<script Language="JavaScript">
2 function CheckSearch()
3</script>
12<script language="javascript">
13
17
23
31
36
43
47
51
56
61function getCookie(name)
62function writeCookie(name, value)
79//-->
87</script>
88
89
90<script language="vbscript">
91dim xmlOdds1
92Set xmlOdds1 = CreateObject("Microsoft.XMLDOM")
93
94diffTime=datediff("s","2006-7-11 23:59:29",now)'时间差
95dim fullxmlfile,chxmlfile, m_language,sclass,pageNum
96dim xml1_xml,loaded,soundCheck
97soundCheck=true '默认时间为开启
98dim riseColor,fallColor
99riseColor="#FFB0B0"'上涨色
100fallColor="#00FF44"'下跌色
101dim i
102dim flash_sound(1) '变水声
103flash_sound(0) = "<object classid='clsid:D27CDB6E-AE6D-11cf-96B8-444553540000' codebase='http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,0,0' width='0' height='0' id='image1'><param name='movie' value='image/oddssound.swf'><param name='quality' value='high'><param name=LOOP value='false'></object>"
104'记录数
105dim kk,matchcount
106dim leaguecount
107
108dim matchData() '保存比赛信息、赔率
109dim tr_html()
110dim html0(25)
111dim GoalCn(20) '让球盘口
112dim Goal_T_Cn(40) '大小盘盘口
113'定义让球数组
114GoalCn(0)="平手":GoalCn(1)="平手/半球":GoalCn(2)="半球":GoalCn(3)="半球/一球":GoalCn(4)="一球":GoalCn(5)="一球/球半"
115GoalCn(6)="球半":GoalCn(7)="球半/两球":GoalCn(8)="两球":GoalCn(9)="两球/两球半":GoalCn(10)="两球半":GoalCn(11)="两球半/三球"
116GoalCn(12)="三球":GoalCn(13)="三球/三球半":GoalCn(14)="三球半":GoalCn(15)="三球半/四球":GoalCn(16)="四球":GoalCn(17)="四球/四球半":GoalCn(18)="四球半":GoalCn(19)="四球半/五球":GoalCn(20)="五球"
117'定义让球数值
118Goal_T_Cn(0)="0":Goal_T_Cn(1)="0/0.5":Goal_T_Cn(2)="0.5":Goal_T_Cn(3)="0.5/1":Goal_T_Cn(4)="1":Goal_T_Cn(5)="1/1.5"
119Goal_T_Cn(6)="1.5":Goal_T_Cn(7)="1.5/2":Goal_T_Cn(8)="2":Goal_T_Cn(9)="2/2.5":Goal_T_Cn(10)="2.5":Goal_T_Cn(11)="2.5/3"
120Goal_T_Cn(12)="3":Goal_T_Cn(13)="3/3.5":Goal_T_Cn(14)="3.5":Goal_T_Cn(15)="3.5/4":Goal_T_Cn(16)="4":Goal_T_Cn(17)="4/4.5"
121Goal_T_Cn(18)="4.5":Goal_T_Cn(19)="4.5/5":Goal_T_Cn(20)="5":Goal_T_Cn(21)="5/5.5":Goal_T_Cn(22)="5.5":Goal_T_Cn(23)="5.5/6":Goal_T_Cn(24)="6":Goal_T_Cn(25)="6/6.5":Goal_T_Cn(26)="6.5":Goal_T_Cn(27)="6.5/7":Goal_T_Cn(28)="7":Goal_T_Cn(29)="7/7.5":Goal_T_Cn(30)="7.5":Goal_T_Cn(31)="7.5/8":Goal_T_Cn(32)="8":Goal_T_Cn(33)="8/8.5":Goal_T_Cn(34)="8.5":Goal_T_Cn(35)="8.5/9":Goal_T_Cn(36)="9":Goal_T_Cn(37)="9/9.5":Goal_T_Cn(38)="9.5":Goal_T_Cn(39)="9.5/10":Goal_T_Cn(40)="10"
122
123m_language=getCookie("Bet007_odds_SelLanguage")
124if isnull(m_language) then m_language=1
125fullxmlfile="xml/football_all1.xml"
126chxmlfile="xml/football_ch1.xml"
127call loadodds(1,m_language)
128
129
130setTimeout "getoddsxml()",4000
131
132setTimeout "autoHide()",60000
133
134'载入指数信息
135sub loadodds(page,language)
136 loaded=0
137 sclass=""
138 pageNum=page
139 m_language=language
140 document.getElementById("loading").style.display=""
141 myxml.async = false
142 myxml.load fullxmlfile
143 set kk=myxml.childNodes.item(1).childNodes.item(0)
144 matchcount=kk.childNodes.length
145 redim tr_html(matchcount-1)
146 redim matchData(matchcount,22)
147 If matchcount>0 Then
148 if matchcount>80 then
149 document.getElementById("page").innerhtml="<a href='javascript:' onclick='loadodds(1," & m_language & ")' style='COLOR: #000000'>1页</a> <a href='javascript:' onclick='loadodds(2," & m_language & ")' style='COLOR: #000000'>2页</a>"
150 end if
151 Call MakeTable()
152 else
153 document.getElementById("odds").innerhtml="<p align=center class=f1>暂无相关数据！</p>"
154 end if
155 '调用赔率联赛/杯赛名列表
156 call matkeleague()
157 writeCookie "Bet007_odds_SelLanguage", m_language '记录所选的语言
158 document.getElementById("hiddencount").innerText=0
159 document.getElementById("loading").style.display="none"
160end sub
161
162
163function Goal2GoalCn(goal)
164 '数字盘口转汉汉字
165 if goal>=0 then Goal2GoalCn=GoalCn(cint(goal*4)) else Goal2GoalCn="受让"& GoalCn(abs(cint(goal*4)))
166end function
167
168sub MakeTable()
169 on error resume next
170 dim ii
171 ii=0
172 dim j
173 dim match_id
174 dim match_leagues
175 dim match_typecolor
176 dim match_hometeamID
177 dim match_guestteamID
178 dim goal_cn
179 dim oldmatch_type
180 dim match_homeorder,match_guestorder
181
182 oldmatch_type=""
183 for i=0 to matchcount-1
184 match_id=kk.childNodes.item(i).childNodes.item(0).Text 'ID
185 match_typecolor=kk.childNodes.item(i).childNodes.item(1).Text '类型背景色
186 match_leagues=kk.childNodes.item(i).childNodes.item(2).Text '类型名称
187 matchData(i,0)=match_id
188 matchData(i,1)=kk.childNodes.item(i).childNodes.item(3).Text '开赛时间
189 matchData(i,2)=split(match_leagues,",")(m_language) '选择的语言对类的类型名
190 matchData(i,4)=false '默认到了开场时间
191
192 matchData(i,19)=split(kk.childNodes.item(i).childNodes.item(4).Text,",")(m_language)'主队名
193 matchData(i,20)=split(kk.childNodes.item(i).childNodes.item(5).Text,",")(m_language)'客队名
194
195 mainmoney=split(kk.childNodes.item(i).childNodes.item(6).Text,",")(0) '主队竞猜额
196 guestmoney=split(kk.childNodes.item(i).childNodes.item(6).Text,",")(1) '客队竞猜额
197 summainmoney = CLng(mainmoney)+CLng(guestmoney)
198 if summainmoney <> 0 then
199 permainmoney = int(mainmoney/summainmoney*100)
200 perguestmoney = 100-permainmoney
201 else
202 permainmoney = 0
203 perguestmoney = 0
204 end if
205
206 Neutrality=kk.childNodes.item(i).childNodes.item(7).Text'中立场
207
208 '赔率ID，盘口，主队赔率，客队赔率，若盘口为负，则盘口显示
209 matchData(i,6)=split(kk.childNodes.item(i).childNodes.item(8).Text,",")(0)'赔率ID
210 matchData(i,7)=split(kk.childNodes.item(i).childNodes.item(8).Text,",")(1)'让球盘口
211 matchData(i,8)=split(kk.childNodes.item(i).childNodes.item(8).Text,",")(2) '主队水位
212 matchData(i,9)=split(kk.childNodes.item(i).childNodes.item(8).Text,",")(3) '客队水位
213 '独赢盘赔率，主胜，客胜, 和局
214 matchData(i,10)=split(kk.childNodes.item(i).childNodes.item(9).Text,",")(0)'主胜
215 matchData(i,11)=split(kk.childNodes.item(i).childNodes.item(9).Text,",")(1) '客胜
216 matchData(i,12)=split(kk.childNodes.item(i).childNodes.item(9).Text,",")(2) '走水 /和局
217
218 '大小盘赔率，盘口，上盘赔率，下盘赔率
219 matchData(i,13)=split(kk.childNodes.item(i).childNodes.item(10).Text,",")(0)'大小盘口
220 matchData(i,14)=split(kk.childNodes.item(i).childNodes.item(10).Text,",")(1) '上盘水位 上盘赔率
221 matchData(i,15)=split(kk.childNodes.item(i).childNodes.item(10).Text,",")(2) '下盘水位 下盘赔率
222 '球队排名
223 match_homeorder=trim(split(kk.childNodes.item(i).childNodes.item(11).Text,",")(0)) '主队排名
224 match_guestorder=trim(split(kk.childNodes.item(i).childNodes.item(11).Text,",")(1)) '客队排名
225
226 if match_homeorder<>"" then match_homeorder="<font color=#444444><sup>["&match_homeorder&"]</sup></font>"
227 if match_guestorder<>"" then match_guestorder="<font color=#444444><sup>["&match_guestorder&"]</sup></font>"
228
229 '还没有到开场时间
230 if dateadd("s", diffTime-900,matchData(i,1))>now() and (matchcount<80 or (DateDiff("d",dateadd("s", diffTime,now),matchData(i,1))=0 and pageNum=1) or (DateDiff("d",dateadd("s", diffTime,now),matchData(i,1))>0 and pageNum=2))then
231 matchData(i,4)=true '是否隐藏
232 if instr(sclass,matchData(i,2))<=0 then sclass=sclass & matchData(i,2)
233 html0(0)="<table width='100%' border=0 align=center cellpadding=2 cellspacing=1 bgcolor='#FFE271' id='table_" & match_id & "' index="& i &">"
234
235 if oldmatch_type<>matchData(i,2) then
236 html0(0) =html0(0)& "<tr align=center><td colSpan=6 bgcolor=f0f0f0><font color=#000000><b>"&matchData(i,2)&"</b></font></td></tr>"
237 oldmatch_type=matchData(i,2)
238 end if
239
240 html0(1) = "<tr bgcolor=#FFFBF1 align=center><td rowSpan=3 width='10%'>"& MONTH(matchData(i,1)) & "-" & DAY(matchData(i,1)) & " " & FormatDateTime(matchData(i,1),4) &"</td>"
241
242 html0(2) ="<td align=left rowSpan=2 width='30%'><table width='100%' border=0 cellspacing=0 cellpadding=0><tr id='hometeam_"&match_id&"'>"
243 if Neutrality="True" then
244 html0(2) =html0(2)& "<td><a style='color:#000000'>"&matchData(i,19)&"(中)</a>"&match_homeorder&"</td>"
245 else
246 html0(2) =html0(2)& "<td><a style='color:#000000'>"&matchData(i,19)&"(主)</a>"&match_homeorder&"</td>"
247 end if
248
249 html0(2) =html0(2)& "</tr><tr id='guestteam_"&match_id&"'><td><a style='color:#000000'>"&matchData(i,20)&"</a>"&match_guestorder&"</td></tr>"
250 html0(2) =html0(2)& "</table></td>"
251
252 html0(3) = "<td width='8%' align=center><a href=""javascript:Guess("&i&",1)"" class=sb><span id='HomeWin_" & match_id & "'>"&matchData(i,10)&"</span></a></td>"
253 html0(4) = "<td width='20%'>"
254 html0(5) = "<table cellSpacing=0 cellPadding=0 width='100%' border=0><tr>"
255
256 if matchData(i,7)<>""then
257 goal_cn =Goal2GoalCn(abs(matchData(i,7)))
258 else
259 goal_cn = ""
260 end if
261 '客队是上盘球队
262 if matchData(i,7)<0 then
263 html0(6) = "<td align=center width='68%'></td>"
264 html0(7) = "<td><a href=""javascript:Guess("&i&",4)"" class=sb><span id='homeodds_" & match_id & "'>"&matchData(i,8)&"</span></a></td>"
265 else
266 html0(6) = "<td align=center width='68%'><a class=pk><span id='goal_" & match_id & "'>"&goal_cn&"</span></a></td>"
267 html0(7) = "<td><a href=""javascript:Guess("&i&",4)"" class=sb><span id='homeodds_" & match_id & "'>"&matchData(i,8)&"</span></a></td>"
268 end if
269
270 html0(8) = "</tr></table>"
271 html0(9) = "</td>"
272
273 if matchData(i,13)="" then
274 html0(10) = "<td align=right width='17%'>大<span id='goal_t1_" & match_id & "'></span>"
275 else
276 html0(10) = "<td align=right width='17%'>大<span id='goal_t1_" & match_id & "'>"&Goal_T_Cn(matchData(i,13)*4)&"</span>"
277 end if
278 html0(11) = " <a href=""javascript:Guess("&i&",6)"" class=sb><span id='upodds_t_" & match_id & "'>"&matchData(i,14)&"</span></a></td><td width='15%'><table border=0 cellspacing=0 cellpadding=0 width=100% class=en11><tr><td width=60% align=right>"&mainmoney&"</td><td align=left>/<font color=#880000>"&permainmoney&"%</td></tr></table></td></tr>"
279 html0(12) = "<tr bgcolor=#FFFBF1>"
280 html0(13) = "<td align=center><a href=""javascript:Guess("&i&",3)"" class=sb><span id='GuestWin_" & match_id & "'>"&matchData(i,11)&"</span></a></td>"
281 html0(14) = "<td><table cellSpacing=0 cellPadding=0 width='100%' border='0'><tr>"
282 '让球盘盘口
283 if matchData(i,7) < 0 then
284 html0(15) = "<td align=center width='68%'><a class=pk><span id='goal_" & match_id & "'>"&goal_cn&"</span></a></td>"
285 html0(16) = "<td><a href=""javascript:Guess("&i&",5)"" class=sb><span id='guestodds_" & match_id & "'>"&matchData(i,9)&"</span></td>"
286 else
287 html0(15) = "<td align=center width='68%'></td>"
288 html0(16) = "<td><a href=""javascript:Guess("&i&",5)"" class=sb><span id='guestodds_" & match_id & "'>"&matchData(i,9)&"</span></a></td>"
289 end if
290 html0(17) = "</tr></table></td>"
291
292 if matchData(i,13)="" then
293 html0(18) = "<td align=right>小<span id='goal_t2_" & match_id & "'> </span> <a href=""javascript:Guess("&i&",7)"" class=sb><span id='downodds_t_" & match_id & "'>"&matchData(i,15)&"</span></a></td>"
294 else
295 html0(18) = "<td align=right>小<span id='goal_t2_" & match_id & "'>"&Goal_T_Cn(matchData(i,13)*4)&"</span> <a href=""javascript:Guess("&i&",7)"" class=sb><span id='downodds_t_" & match_id & "'>"&matchData(i,15)&"</span></a></td>"
296 end if
297
298 html0(19) = "<td width='20%'><table border=0 cellspacing=0 cellpadding=0 width=100% class=en11><tr><td width=60% align=right>"&guestmoney&"</td><td align=left>/<font color=#880000>"&perguestmoney&"%</td></tr></table></td></tr>"
299
300 html0(20) = "<tr bgcolor=#FFFBF1>"
301 html0(21) = "<td align=left>和局</td>"
302 html0(22) = "<td align=center><a href=""javascript:Guess("&i&",2)"" class=sb><span id='Standoff_" & match_id & "'>"&matchData(i,12)&"</span></td>"
303 html0(23) = "<td colSpan=3 align=right>"
304 html0(23) = html0(23) & "<A href=""javascript:analysis("&match_id&")"" target=_self style='color:#0000FF'>分析</A> <a href=""javascript:panlu("&match_id&")"" style='color:#0000FF'>盘路</A> <a href=""javascript:SingleAnaly("&i&",0)"" style='color:#0000FF'>数据</A> <A href=""javascript:Guess("&i&",0)"" target=_self style='color:#0000FF'>竞猜</A> </td></tr></table>"
305 For j = 0 To 23
306 tr_html(i) = tr_html(i) & vbCrLf & html0(j)
307 Next
308
309 end if
310 next
311
312 oddshtml="<table width='100%' border=0 align=center cellpadding=3 cellspacing=1 bgcolor=#FFE271 class=font12>"
313 oddshtml=oddshtml& " <tr bgcolor=#FDC135 align=center class=font12>"
314 oddshtml=oddshtml& " <td width=10%>时间</td>"
315 oddshtml=oddshtml& " <td width=30% align=left>主客队伍</td>"
316 oddshtml=oddshtml& " <td width=8%>独赢</td>"
317 oddshtml=oddshtml& " <td width=20%>让球</td>"
318 oddshtml=oddshtml& " <td width=17%>大小</td>"
319 oddshtml=oddshtml& " <td width=15%>让球竞猜额</td>"
320 oddshtml=oddshtml& " </tr></table>"
321
322 For ii = 0 To matchcount-1
323 oddshtml=oddshtml&vbCrLf & tr_html(ii)
324 Next
325 document.getElementById("odds").innerhtml=oddshtml
326end sub
327
328 '赔率联赛/杯赛名列表
329sub matkeleague()
330 on error resume next
331 dim kk1
332 dim st
333 dim leaguehtml
334
335 set kk1=myxml.childNodes.item(1).childNodes.item(1)
336 leaguecount=kk1.childNodes.length
337 leaguehtml=""
338 for i=0 to leaguecount-1
339 st=split(kk1.childNodes.item(i).Text,",")(m_language)
340 if instr(sclass,st)>0 then
341 leaguehtml=leaguehtml & "<tr class=font12><td><input onclick='CheckLeague(" & i+1 & ")' checked type=checkbox id='checkboxleague_" & i+1 & "' value='" & st & "' NAME='checkboxleague_" & i+1 & "'/><label style='cursor:hand' for='checkboxleague_" & i+1 & "' id='labelleague_" & i+1 & "'>" & st & "</label></td></tr>"
342 end if
343 next
344 leaguehtml="<TABLE WIDTH=100% BORDER=0 CELLPADDING=0 CELLSPACING=0>" & leaguehtml & "</TABLE>"
345 document.getElementById("myleague").innerHTML=leaguehtml
346end sub
347
348sub getoddsxml()
349 on error resume next
350 xmlOdds1.load "xml/football_ch1.xml"
351 xmlOdds1.onreadystatechange =GetRef("refresh")
352 window.setTimeout "getoddsxml()",4000
353end sub
354
355sub refresh()
356 on error resume next
357 if xmlOdds1.readyState<>4 then exit sub
358 if xmlOdds1.parseError.errorCode<>0 Then exit sub
359 if xmlOdds1.xml = "" then exit sub
360
361 xml1.async = false
362 xml1.loadXML xmlOdds1.xml
363
364 if xml1.xml= xml1_xml or xml1.xml="" then exit sub
365 if xml1.readyState <>"complete" then exit sub
366 xml1_xml=xml1.xml
367 if loaded<> -1 then
368 loaded=-1
369 else
370 if xml1.childNodes.item(1).Attributes(0).text<>"0" then
371 call loadodds(pageNum,m_language)
372 exit sub
373 end if
374 Call oddsRefresh()
375 end if
376end sub
377
378
379sub oddsRefresh()
380 on error resume next
381 dim i
382 dim j
383 dim match_id
384 dim matchtime
385 dim match_oddsid
386 dim match_shangpan
387 dim match_goal
388 dim match_homeodds
389 dim match_guestodds
390
391 dim upoddschange, downoddschange, oddschange
392 document.getElementById("notify").innerHTML= ""
393 For i = 0 To xml1.childNodes.Item(1).childNodes.length - 1
394 match_id=xml1.childNodes.Item(1).childNodes.Item(i).childNodes(0).Text
395 matchtime=xml1.childNodes.Item(1).childNodes.Item(i).childNodes(1).Text
396
397 match_oddsid=split(xml1.childNodes.Item(1).childNodes.Item(i).childNodes(2).Text,",")(0)'ID
398 match_goal=split(xml1.childNodes.Item(1).childNodes.Item(i).childNodes(2).Text,",")(1)'盘口
399 match_homeodds=split(xml1.childNodes.Item(1).childNodes.Item(i).childNodes(2).Text,",")(2) '上盘水位
400 match_guestodds=split(xml1.childNodes.Item(1).childNodes.Item(i).childNodes(2).Text,",")(3) '下盘水位
401
402 homewin=split(xml1.childNodes.Item(1).childNodes.Item(i).childNodes(3).Text,",")(0)'主胜
403 guestwin=split(xml1.childNodes.Item(1).childNodes.Item(i).childNodes(3).Text,",")(1) '客胜
404 Standoff=split(xml1.childNodes.Item(1).childNodes.Item(i).childNodes(3).Text,",")(2) '走水
405
406 match_goal_t=split(xml1.childNodes.Item(1).childNodes.Item(i).childNodes(4).Text,",")(0)'盘口
407 match_upodds_t=split(xml1.childNodes.Item(1).childNodes.Item(i).childNodes(4).Text,",")(1) '上盘水位
408 match_downodds_t=split(xml1.childNodes.Item(1).childNodes.Item(i).childNodes(4).Text,",")(2) '下盘水位
409
410 if typename(document.getElementById("table_" & match_id))="Nothing" then tmp=false else tmp=true
411 '对象存在
412 if tmp then
413 match_index=document.getElementById("table_" & match_id).index
414 oddschange_l=false
415 oddschange_s=false
416 oddschange_t=false
417 goalchange_l=false
418 goalchange_t=false
419 '判断让球盘上盘水位是否有变化
420 if matchData(match_index,8)<>match_homeodds then
421 if matchData(match_index,8)>match_homeodds then
422 document.getElementById("homeodds_" & match_id).style.backgroundColor="#00FF44"
423 else
424 document.getElementById("homeodds_" & match_id).style.backgroundColor="#F8A7A3"
425 end if
426 document.getElementById("homeodds_" & match_id).innertext=match_homeodds
427 matchData(match_index,8)=match_homeodds
428 oddschange_l=true
429 end if
430 '判断让球盘下盘水位是否有变化
431 if matchData(match_index,9)<>match_guestodds then
432 if matchData(match_index,9)>match_guestodds then
433 document.getElementById("guestodds_" & match_id).style.backgroundColor="#00FF44"
434 else
435 document.getElementById("guestodds_" & match_id).style.backgroundColor="#F8A7A3"
436 end if
437 document.getElementById("guestodds_" & match_id).innertext=match_guestodds
438 matchData(match_index,9)=match_guestodds
439 oddschange_l=true
440 end if
441
442 '判断大小盘上盘水位是否有变化
443 if matchData(match_index,14)<>match_upodds_t then
444 if matchData(match_index,14)>match_upodds_t then
445 document.getElementById("upodds_t_" & match_id).style.backgroundColor="#00FF44"
446 else
447 document.getElementById("upodds_t_" & match_id).style.backgroundColor="#F8A7A3"
448 end if
449 document.getElementById("upodds_t_" & match_id).innertext=match_upodds_t
450 matchData(match_index,14)=match_upodds_t
451 oddschange_t=true
452 end if
453 '判断大小盘下盘水位是否有变化
454 if matchData(match_index,15)<>match_downodds_t then
455 if matchData(match_index,15)>match_downodds_t then
456 document.getElementById("downodds_t_" & match_id).style.backgroundColor="#00FF44"
457 else
458 document.getElementById("downodds_t_" & match_id).style.backgroundColor="#F8A7A3"
459 end if
460 document.getElementById("downodds_t_" & match_id).innertext=match_downodds_t
461 matchData(match_index,15)=match_downodds_t
462 oddschange_t=true
463 end if
464
465 '判断标准盘主胜水位是否有变化
466 if matchData(match_index,10)<>homewin then
467 if matchData(match_index,10)>homewin then
468 document.getElementById("homewin_" & match_id).style.backgroundColor="#00FF44"
469 else
470 document.getElementById("homewin_" & match_id).style.backgroundColor="#F8A7A3"
471 end if
472 document.getElementById("homewin_" & match_id).innertext=homewin
473 matchData(match_index,10)=homewin
474 oddschange_s=true
475 end if
476 '判断标准盘客胜水位是否有变化
477 if matchData(match_index,11)<>guestwin then
478 if matchData(match_index,11)>guestwin then
479 document.getElementById("guestwin_" & match_id).style.backgroundColor="#00FF44"
480 else
481 document.getElementById("guestwin_" & match_id).style.backgroundColor="#F8A7A3"
482 end if
483 document.getElementById("guestwin_" & match_id).innertext=guestwin
484 matchData(match_index,11)=guestwin
485 oddschange_s=true
486 end if
487 '判断标准盘走水水位是否有变化
488 if matchData(match_index,12)<>Standoff then
489 if matchData(match_index,12)>Standoff then
490 document.getElementById("Standoff_" & match_id).style.backgroundColor="#00FF44"
491 else
492 document.getElementById("Standoff_" & match_id).style.backgroundColor="#F8A7A3"
493 end if
494 document.getElementById("Standoff_" & match_id).innertext=Standoff
495 matchData(match_index,12)=Standoff
496 oddschange_s=true
497 end if
498
499 '检查让球盘口
500 goalchange=false
501 if matchData(match_index,7)<>match_goal then
502 if match_goal<>""then
503 '升盘
504 if cdbl(matchData(match_index,7))<cdbl(match_goal) then
505 document.getElementById("goal_" & match_id).innerHTML= "<img src='image/odds_up.gif' width=12 height=11 border=0>"& Goal2GoalCn(match_goal)
506 elseif cdbl(matchData(match_index,7))>cdbl(match_goal) then
507 document.getElementById("goal_" & match_id).innerHTML= Goal2GoalCn(match_goal)&"<img src='image/odds_down.gif' width=12 height=11 border=0>"
508 end if
509 else
510 document.getElementById("goal_" & match_id).innertext=""
511 end if
512 matchData(match_index,7)=match_goal
513 goalchange_l=true
514 end if
515
516 '检查大小盘盘口
517 if matchData(match_index,13)<>match_goal_t then
518 if match_goal<>""then
519 '升盘
520 if cdbl(matchData(match_index,13))<cdbl(match_goal_t) then
521 document.getElementById("goal_t1_" & match_id).innerHTML= "<img src='image/odds_up.gif' width=12 height=11 border=0>"&Goal_T_Cn(match_goal_t*4)
522 document.getElementById("goal_t2_" & match_id).innerHTML= "<img src='image/odds_up.gif' width=12 height=11 border=0>"&Goal_T_Cn(match_goal_t*4)
523 else
524 document.getElementById("goal_t1_" & match_id).innerHTML= Goal_T_Cn(match_goal_t*4)&"<img src='image/odds_down.gif' width=12 height=11 border=0>"
525 document.getElementById("goal_t2_" & match_id).innerHTML= Goal_T_Cn(match_goal_t*4)&"<img src='image/odds_down.gif' width=12 height=11 border=0>"
526 end if
527 else
528 document.getElementById("goal_t1_" & match_id).innertext=""
529 document.getElementById("goal_t2_" & match_id).innertext=""
530 end if
531 matchData(match_index,13)=match_goal_t
532 goalchange_t=true
533 end if
534
535 oddschange=oddschange_l or oddschange_s or oddschange_t
536 goalchange=goalchange_l or goalchange_t
537 if oddschange or goalchange then call Ch_SB_odds(match_id,goalchange) '声音提示
538 end if
539 next
540end sub
541
542
543'进入下注页
544sub Guess(i,flag)
545 window.open "DummyBet.aspx?ID="&matchData(i,0)&"&ball=1&type=1&flag="&flag&"&oddsid="&matchData(i,6)&"&goal="&matchData(i,7)&"&homeodds="&matchData(i,8)&"&guestodds="&matchData(i,9)&"&homeWin="&matchData(i,10)&"&guestWin="&matchData(i,11)&"&standoff="&matchData(i,12)&"&OUgoal="&matchData(i,13)&"&OverOdds="&matchData(i,14)&"&UnderOdds="&matchData(i,15)&"&t1="&matchData(i,19)&"&t2="&matchData(i,20)&"&time="&matchData(i,1)&"&goalcn="&Goal2GoalCn(matchData(i,7)),"","width=388,height=280,resizable=yes,scrollbars=no"
546end sub
547
548'进入分析页
549sub SingleAnaly(i,flag)
550 window.open "SingleAnaly.aspx?ID="&matchData(i,0)&"&ball=1&type=1&flag="&flag&"&oddsid="&matchData(i,6)&"&goal="&matchData(i,7)&"&homeodds="&matchData(i,8)&"&guestodds="&matchData(i,9)&"&homeWin="&matchData(i,10)&"&guestWin="&matchData(i,11)&"&standoff="&matchData(i,12)&"&OUgoal="&matchData(i,13)&"&OverOdds="&matchData(i,14)&"&UnderOdds="&matchData(i,15)&"&t1="&matchData(i,19)&"&t2="&matchData(i,20)&"&time="&matchData(i,1)&"&goalcn="&Goal2GoalCn(matchData(i,7)),"","width=388,height=410,resizable=yes,scrollbars=no"
551end sub
552
553'到了开场时间，自动隐葳赛事
554sub autoHide()
555 for i=0 to matchcount-1
556 '到了开场时间
557 if matchData(i,4) and dateadd("s", diffTime-900,matchData(i,1))<now() then
558 matchData(i,4)=false
559 document.getElementById("table_" & matchData(i,0)).style.display="none"
560 end if
561 next
562 setTimeout "autoHide()",120000
563end sub
564
565sub Ch_SB_odds(m,goalchange)
566 on error resume next
567 dim addHtml,n
568 '赛事没被隐藏 并且选择了声音提示
569 if soundCheck and document.getElementById("table_" & m).style.display<>"none" then
570 document.getElementById("sound").innerhtml=flash_sound(0)
571 end if
572 window.setTimeout "ComebackSBOddsColor(" & m & ")",60000
573end sub
574'恢复背景颜色
575sub ComebackSBOddsColor(matchid)
576 on error resume next
577 document.getElementById("homeodds_" & matchid).style.backgroundColor=""
578 document.getElementById("guestodds_" & matchid).style.backgroundColor=""
579 document.getElementById("upodds_t_" & matchid).style.backgroundColor=""
580 document.getElementById("downodds_t_" & matchid).style.backgroundColor=""
581 document.getElementById("homewin_" & matchid).style.backgroundColor=""
582 document.getElementById("guestwin_" & matchid).style.backgroundColor=""
583 document.getElementById("standoff_" & matchid).style.backgroundColor=""
584 document.getElementById("goal_" & matchid).innerhtml=document.getElementById("goal_" & matchid).innertext
585 document.getElementById("goal_t1_" & matchid).innerhtml=document.getElementById("goal_t1_" & matchid).innertext
586 document.getElementById("goal_t2_" & matchid).innerhtml=document.getElementById("goal_t2_" & matchid).innertext
587end sub
588sub CheckLeague(SclassIndex)
589 on error resume next
590 dim j,sclass, matchid,hh
591 sclass=document.getElementById("labelleague_" & SclassIndex).innertext
592 hh=document.getElementById("hiddencount").innerText
593 if document.getElementById("checkboxleague_" & SclassIndex).checked=true then
594 for j=0 to matchcount-1
595 if matchData(j,4) and matchData(j,2)=sclass then
596 document.getElementById("table_" & matchData(j,0)).style.display=""
597 hh=hh-1
598 end if
599 next
600 else
601 for j=0 to matchcount-1
602 if matchData(j,4) and matchData(j,2)=sclass then
603 document.getElementById("table_" & matchData(j,0)).style.display="none"
604 hh=hh+1
605 end if
606 next
607 end if
608 document.getElementById("hiddencount").innerText=hh
609end sub
610
611'今天所有的赛事
612sub showallmatch()
613 on error resume next
614 dim i
615 for i= 0 to matchcount-1
616 if matchData(i,4) then document.getElementById("table_" & matchData(i,0)).style.display=""
617 next
618 for i=1 to leaguecount
619 document.getElementById("checkboxleague_" & i).checked=true
620 next
621 document.getElementById("hiddencount").innerText=0
622end sub
623
624sub SelectOtherLeague()
625 on error resume next
626 dim i,j,hh,league
627 hh=0
628 for i=1 to leaguecount
629 document.getElementById("checkboxleague_" & i).checked=not document.getElementById("checkboxleague_" & i).checked
630 next
631
632 dim matchid
633 for i=1 to leaguecount
634 if typename(document.getElementById("labelleague_" & i))<>"Nothing" then
635 league=document.getElementById("labelleague_" & i).innertext
636 if document.getElementById("checkboxleague_" & i).checked=true then
637 for j=0 to matchcount-1
638 if matchData(j,2)=league then
639 document.getElementById("table_" & matchData(j,0)).style.display=""
640 end if
641 next
642 else
643 for j=0 to matchcount-1
644 if matchData(j,4) and matchData(j,2)=league then
645 document.getElementById("table_" & matchData(j,0)).style.display="none"
646 hh=hh+1
647 end if
648 next
649 end if
650 end if
651 next
652 document.getElementById("hiddencount").innerText=hh
653end sub
654</script>
655
656
657<script language="vbscript">
658dim xmlScore
659Set xmlScore = CreateObject("Microsoft.XMLDOM")
660
661dim i,j,xml1_xml,loaded
662dim kk,matchcount,matchdata(),tmp,sclasscount
663dim html(30),output,m_language
664dim flash_Goal
665dim soundCheck
666soundCheck=true
667dim ScoreFile
668ScoreFile="NBA\today.xml"
669
670flash_Goal = "<object classid='clsid:D27CDB6E-AE6D-11cf-96B8-444553540000' codebase='http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,0,0' width='0' height='0'><param name='movie' value='nba/sound.swf'><param name='quality' value='high'><param name='wmode' value='transparent'></object>"
671
672dim state(51)
673state(0)="<b>完</b>,<b>完</b>,<b>FT</b>"
674state(1)="未开场,未开場,"
675state(2)="第1节,第1節,1st"
676state(3)="第2节,第2節,2nd"
677state(4)="第3节,第3節,3rd"
678state(5)="第4节,第4節,4th"
679state(6)="第1'OT,第1'OT,1'OT"
680state(7)="第2'OT,第2'OT,2'OT"
681state(8)="第3'OT,第3'OT,3'OT"
682
683state(11)="上半场,下半場,1st"
684state(13)="下半场,下半場,2nd"
685state(51)="中场,中場,Half"
686
687sub seldate(date)
688 ScoreFile="nba_date.aspx?date=" & date
689 Call loadScore(m_language)
690end sub
691
692sub loadScore(language)
693 loaded=0
694 m_language=language
695 myxml.async = false
696 myxml.load ScoreFile
697 set kk=myxml.childNodes.item(1).childNodes.item(0)
698 matchcount=kk.childNodes.length
699
700 redim matchdata(matchcount-1,35) '赛事数据
701
702 Call MakeTable()
703 call MakeSclass()
704end sub
705
706loadScore(0)
707
708'0 ID
709'1 name_en
710'2 sclassType
711'3 color
712'4 matchtime
713'5 matchstate
714'6 remaintime
715'7 hometeamID
716'8 hometeam , hometeam_F , +hometeam_E
717'9 guestteamID
718'10 guestteam , guestteam_F , +guestteam_E
719'11 homescore
720'12 guestscore
721'13 homeone
722'14 guestone
723'15 hometwo
724'16 guesttwo
725'17 homethree
726'18 guestthree
727'19 homefour
728'20 guestfour
729'21 addtime
730'22 HomeAddtime1
731'23 GuestAddTime1
732'24 HomeAddtime2
733'25 GuestAddTime2
734'26 HomeAddtime3
735'27 GuestAddTime3
736'28 addTechnic
737'29 tv
738'30 explain
739'31 explain2
740
741sub MakeTable()
742 on error resume next
743 dim homehalfscore,guesthalfscore,homehalfscore2,guesthalfscore2
744 output=""
745
746 for i=0 to matchcount-1
747 if i mod 2=0 then bg="tr_color1" else bg="tr_color2"
748 tmp=split(kk.childNodes.item(i).childNodes.item(0).Text,"^")
749 for j=0 to ubound(tmp)
750 matchdata(i,j)=tmp(j)
751 next
752 matchstate=cint(tmp(5))
753 html(0)="<table width=570 border=0 align=center cellpadding=0 cellspacing=1 bgcolor=#FFFFFF id='table_" & matchdata(i,0) &"' index=" & i &"><tr align=center bgcolor='#9FC4DE' height=18><td colspan=2 width='30%' bgcolor='" & matchdata(i,3) & "'><table width='98%' border=0 align=center cellpadding=0 cellspacing=0><tr><td width='85%' class=white><b>" & matchdata(i,1) & "： "
754 if tmp(2)=2 and (matchstate=1 or matchstate=3) then '只分两节
755 html(1)="<span id=zt_" & matchdata(i,0) & ">" & split(state(matchstate+10),",")(m_language)
756 else
757 html(1)="<span id=zt_" & matchdata(i,0) & ">" & split(state(matchstate+1),",")(m_language)
758 end if
759 if matchstate=-1 then score_class="td_scoreR" else score_class="td_score"
760
761 tv=" "
762 if(matchdata(i,29)<>"") then tv="<img alt='" & matchdata(i,29) & "' src=image/tv.gif width=12 height=14>" '直播
763 html(2)="</span> <span id=jy_" & matchdata(i,0) & ">" & matchdata(i,6) & "</span></b></td><td width='15%'>" + tv + "</td></tr></table></td>"
764
765 if matchdata(i,21)="" then matchdata(i,21)=0
766 select case m_language
767 case 0:
768 if matchdata(i,2)=4 then
769 html(3)="<td>一节</td><td>二节</td><td>三节</td><td>四节</td>"
770 else
771 html(3)="<td>上半场</td><td> </td><td>下半场</td><td> </td>"
772 end if
773 for j=1 to matchdata(i,21)
774 html(3)=html(3) & "<td>" & j & "'OT</td>"
775 next
776 html(3)= html(3) & "<td width='8%'>半场</td><td width='8%'>全场</td><td width='7%'>分差</td><td width='9%'>总分</td><td width='6%'>分析</td></tr>"
777 case 1:
778 if matchdata(i,2)=4 then
779 html(3)="<td>一節</td><td>二節</td><td>三節</td><td>四節</td>"
780 else
781 html(3)="<td>上半場</td><td> </td><td>下半場</td><td> </td>"
782 end if
783 for j=1 to matchdata(i,21)
784 html(3)= html(3) & "<td>"& j & "'OT</td>"
785 next
786 html(3)= html(3) & "<td width='8%'>半場</td><td width='8%'>全場</td><td width='7%'>分差</td><td width='9%'>总分</td><td width='6%'>分析</td></tr>"
787 case 2:
788 if matchdata(i,2)=4 then
789 html(3)="<td>Part 1</td><td>Part 2</td><td>Part 3</td><td>Part 4</td>"
790 else
791 html(3)="<td>Part 1</td><td> </td><td>Part 2</td><td> </td>"
792 end if
793 for j=1 to matchdata(i,21)
794 html(3)= html(3) & "<td>"& j & "'OT</td>"
795 next
796 html(3)= html(3) & "<td width='7%'>H</td><td width='8%'>T</td><td width='8%'>SD</td><td width='9%'>Total</td><td width='6%'>Data</td></tr>"
797 end select
798
799 html(4)="<tr align=center height=20 class="& bg &" ID=tr1_" & matchdata(i,0) & ">"
800 html(5)="<td rowspan=2 width='10%'>" & month(matchdata(i,4)) & "月" & day(matchdata(i,4)) & "日" & "<BR>" & formatdatetime(matchdata(i,4),vbshorttime) & "<input type=checkbox checked onclick='hidematch(" & i & ");return false;' class=inp></td>"
801 html(6)="<td><a href='http://nba.bet007.com/team/teaminfo" & matchdata(i,7) & ".htm' target=_blank>" & split(matchdata(i,8),",")(m_language) & "(主)</a></td>"
802
803 if (matchstate=-1 or matchstate>=1) then
804 html(7)="<td id=hs1_" & matchdata(i,0) & ">" & matchdata(i,13) & "</td>"
805 else
806 html(7)="<td id=hs1_" & matchdata(i,0) & "> </td>"
807 end if
808 if (matchstate=-1 or matchstate>=2) and matchdata(i,2)=4 then
809 html(8)="<td id=hs2_" & matchdata(i,0) & ">" & matchdata(i,15) & "</td>"
810 else
811 html(8)="<td id=hs2_" & matchdata(i,0) & "> </td>"
812 end if
813 if (matchstate=-1 or matchstate>=3) and matchstate<>50 then
814 html(9)="<td id=hs3_" & matchdata(i,0) & ">" & matchdata(i,17) & "</td>"
815 else
816 html(9)="<td id=hs3_" & matchdata(i,0) & "> </td>"
817 end if
818 if (matchstate=-1 or matchstate>=4) and matchstate<>50 and matchdata(i,2)=4 then
819 html(10)="<td id=hs4_" & matchdata(i,0) & ">" & matchdata(i,19) & "</td>"
820 else
821 html(10)="<td id=hs4_" & matchdata(i,0) & "> </td>"
822 end if
823
824 html(11)=""
825 for j=1 to matchdata(i,21)
826 html(11)=html(11) & "<td id=hadd" & i & "_" & matchdata(i,0) & ">" & matchdata(i,20+j*2) & "</td>"
827 next
828 '半场比分
829 if(matchstate<>0) then
830 if matchdata(i,15)<>"" then homehalfscore=cint(matchdata(i,13)) + cint(matchdata(i,15)) else homehalfscore=cint(matchdata(i,13))
831 if matchdata(i,16)<>"" then guesthalfscore=cint(matchdata(i,14)) + cint(matchdata(i,16)) else guesthalfscore=cint(matchdata(i,14))
832 end if
833 homehalfscore2=0
834 guesthalfscore2=0
835 if(matchstate>=3 and matchstate<10) or matchstate=-1 then
836 if matchdata(i,19)<>"" then homehalfscore2=cint(matchdata(i,17)) + cint(matchdata(i,19)) else homehalfscore2=cint(matchdata(i,17))
837 if matchdata(i,20)<>"" then guesthalfscore2=cint(matchdata(i,18)) + cint(matchdata(i,20)) else guesthalfscore2=cint(matchdata(i,19))
838 end if
839
840 if (matchstate>2 or matchstate=-1) then
841 html(12)="<td><font color=blue id=hbc_" & matchdata(i,0) & ">" & homehalfscore & "</font>/"
842 else
843 html(12)="<td><font color=blue id=hbc_" & matchdata(i,0) & "></font>/"
844 end if
845 if (matchstate>=3 and matchstate<10) or matchstate=-1 then
846 html(12)=html(12)&"<font color=blue id=hbc2_" & matchdata(i,0) & ">" & homehalfscore2 & "</font></td>"
847 else
848 html(12)=html(12)&"<font color=blue id=hbc2_" & matchdata(i,0) & "></font></td>"
849 end if
850
851 '全场比分
852 if(matchstate<>0) then
853 if matchdata(i,28) then
854 html(13)="<td class=" & score_class & " id=hzf_" & matchdata(i,0) & " title='点击查看技术统计' onclick=""javascript:open('http://nba.bet007.com/HTML_TechnicCount/" & matchdata(i,0) & ".htm','','');"">" & matchdata(i,11) & "</td>"
855 else
856 html(13)="<td class=" & score_class & " id=hzf_" & matchdata(i,0) & ">" & matchdata(i,11) & "</td>"
857 end if
858 html(14)="<td id=bfc_" & matchdata(i,0) & ">半:"& homehalfscore-guesthalfscore & "</td><td id=bzf_" & matchdata(i,0) & ">半:"& homehalfscore+guesthalfscore & "</td>"
859
860 else
861 html(13)="<td class=td_score id=hzf_" & matchdata(i,0) & "> </td>"
862 html(14)="<td id=bfc_" & matchdata(i,0) & "></td><td id=bzf_" & matchdata(i,0) & "></td>"
863 end if
864 html(14)=html(14) &"<td><a href='http://nba.bet007.com/analysis/"& matchdata(i,0) & ".htm' target=_blank>分析</a></td></tr>"
865
866'--------------------------------------------------------------------------------------------
867
868 html(15)="<tr align=center height=20 class="& bg &" ID=tr1_" & matchdata(i,0) & ">"
869 html(16)="<td><a href='http://nba.bet007.com/team/teaminfo" & matchdata(i,9) & ".htm' target=_blank>" & split(matchdata(i,10),",")(m_language) & "</a></td>"
870
871 if (matchstate=-1 or matchstate>=1) then
872 html(17)="<td id=gs1_" & matchdata(i,0) & ">" & matchdata(i,14) & "</td>"
873 else
874 html(17)="<td id=gs1_" & matchdata(i,0) & "> </td>"
875 end if
876 if (matchstate=-1 or matchstate>=2) and matchdata(i,2)=4 then
877 html(18)="<td id=gs2_" & matchdata(i,0) & ">" & matchdata(i,16) & "</td>"
878 else
879 html(18)="<td id=gs2_" & matchdata(i,0) & "> </td>"
880 end if
881 if (matchstate=-1 or matchstate>=3) and matchstate<>50 then
882 html(19)="<td id=gs3_" & matchdata(i,0) & ">" & matchdata(i,18) & "</td>"
883 else
884 html(19)="<td id=gs3_" & matchdata(i,0) & "> </td>"
885 end if
886 if (matchstate=-1 or matchstate>=4) and matchstate<>50 and matchdata(i,2)=4 then
887 html(20)="<td id=gs4_" & matchdata(i,0) & ">" & matchdata(i,20) & "</td>"
888 else
889 html(20)="<td id=gs4_" & matchdata(i,0) & "> </td>"
890 end if
891
892 html(21)=""
893 for j=1 to matchdata(i,21)
894 html(21)=html(21) & "<td id=gadd" & i & "_" & matchdata(i,0) & ">" & matchdata(i,21+j*2) & "</td>"
895 next
896 '半场比分
897 if (matchstate>2 or matchstate=-1) then '下半场或完场显示半场比分
898 html(22)="<td><font color=blue id=gbc_" & matchdata(i,0) & ">" & guesthalfscore & "</font>/"
899 else
900 html(22)="<td><font color=blue id=gbc_" & matchdata(i,0) & "></font>/"
901 end if
902 if (matchstate>=3 and matchstate<10) or matchstate=-1 then
903 html(22)=html(22) & "<font color=blue id=gbc2_" & matchdata(i,0) & ">" & guesthalfscore2 & "</font></td>"
904 else
905 html(22)=html(22) & "<font color=blue id=gbc2_" & matchdata(i,0) & "></font></td>"
906 end if
907
908 '全场比分
909
910 if(matchstate<>0) then
911 if matchdata(i,28) then
912 html(23)="<td class=" & score_class & " id=gzf_" & matchdata(i,0) & " title='点击查看技术统计' onclick=""javascript:open('http://nba.bet007.com/HTML_TechnicCount/" & matchdata(i,0) & ".htm','','');"">" & matchdata(i,12) & "</td>"
913 else
914 html(23)="<td class=" & score_class & " id=gzf_" & matchdata(i,0) & ">" & matchdata(i,12) & "</td>"
915 end if
916 else
917 html(23)="<td class=td_score id=gzf_" & matchdata(i,0) & "> </td>"
918 end if
919 if matchstate=-1 or matchstate>2 and matchstate<>50 then
920 html(24)="<td id=qfc_" & matchdata(i,0) & ">全:"& cint(matchdata(i,11) ) - cint(matchdata(i,12)) &"</td><td id=qzf_" & matchdata(i,0) & ">全:"& cint(matchdata(i,11) ) + cint(matchdata(i,12)) &"</td>"
921 else
922 html(24)="<td id=qfc_" & matchdata(i,0) & "></td><td id=qzf_" & matchdata(i,0) & "></td>"
923 end if
924 html(24)=html(24)&"<td><a href='http://nba.bet007.com/1x2/oddslist/"& matchdata(i,0) & ".htm' target=_blank>欧指</a></td></tr>"
925
926 ' 赛事说明
927 html(25)="<tr height=20 id=tr2_" & matchdata(i,0) & "><td colspan=12 bgcolor=#F0F0F0><table width='100%' border=0 cellpadding=0 cellspacing=0><tr class=explain align=center><td width='50%'id=sm_" & matchdata(i,0) &">" & matchdata(i,30) &"</td><td width='46%' id=sm2_" & matchdata(i,0) & ">" & matchdata(i,31) & "</td><td width='4%'><img src='image/sms.gif' onclick=sms(" & i &") style='cursor:hand' width=18 height=15 alt='订阅单场篮球比分'></td></tr></table></td></tr></table>"
928
929 ' 广告
930 if i=0 then html(25)=html(25) & "<table width=570 border=0 align=center cellpadding=0 cellspacing=1 bgcolor=#FFFFFF><tr><TD align=center height=20>广告：<b><a href='http://www.wnba88.com/' target=_blank style='color:blue'>wnba nba篮球推介 最精准欧洲来料 实力公开验证！→请点击进入</a></b></TD></tr></table>"
931
932 html(26)="</table>"
933 output=output & (html(0) &html(1) &html(2) &html(3) &html(4) &html(5) &html(6) &html(7) &html(8) &html(9) &html(10) &html(11) &html(12) &html(13) &html(14) &html(15) &html(16) &html(17) &html(18) &html(19) &html(20) &html(21) &html(22) &html(23) &html(24) &html(25) &html(26))
934 next
935
936 if matchcount=0 then output= "<table width=560 height=40><tr><td align=center class=f1 bgcolor=#F0F0F0>当日没有篮球赛事!</td></tr></table>"
937 document.getElementById("live").innerHTML=output
938end sub
939
940
941 '联赛/杯赛名列表
942sub MakeSclass()
943 dim k
944 dim leaguehtml
945 leaguehtml="<TABLE WIDTH='100%' BORDER=0 CELLPADDING=0 CELLSPACING=0>"
946 k=split(myxml.childNodes.item(1).childNodes.item(1).text,",")
947 sclasscount=ubound(k)-1
948 for i=0 to sclasscount
949 leaguehtml=leaguehtml & ("<tr><td><input onclick=CheckLeague(" & i & ",'" & k(i) & "') checked type=checkbox id='checkboxleague_" & i & "' value='" & k(i) & "'><label style='cursor:hand' for='checkboxleague_" & i & "'>" & k(i) & "</label></td></tr>")
950 next
951 leaguehtml=leaguehtml & "</TABLE>"
952 document.getElementById("sclass").innerHTML=leaguehtml
953end sub
954
955
956sub getxml()
957 on error resume next
958 xmlScore.load "nba/change.xml"
959 xmlScore.onreadystatechange =GetRef("refresh")
960 window.setTimeout "getxml()",3000
961end sub
962
963sub refresh()
964 on error resume next
965 if xmlScore.readyState<>4 then exit sub
966 if xmlScore.parseError.errorCode<>0 Then exit sub
967 if xmlScore.xml = "" then exit sub
968
969 xml1.async = false
970 xml1.loadXML xmlScore.xml
971
972 if xml1.xml=xml1_xml or xml1.xml="" then exit sub
973 xml1_xml=xml1.xml
974
975 dim tmp
976
977 if loaded<>-1 then
978 loaded=-1
979 exit sub
980 else
981 if xml1.childNodes.item(1).Attributes(0).text<>"0" then
982 loadScore(m_language)
983 exit sub
984 end if
985 end if
986
987 dim C,matchid,sclassType
988
989 For i = 0 To xml1.childNodes.Item(1).childNodes.length - 1
990 C=split(xml1.childNodes.Item(1).childNodes.Item(i).Text,"^")
991 matchid=C(0)
992 sclassType=C(15)
993 C(1)=cint(C(1))
994 C(2)=trim(C(2))
995
996 if typename(document.getElementById("table_" & matchid))="Nothing" then tmp=false else tmp=true
997 if tmp then '对象存在
998 match_index=document.getElementById("table_" & matchid).index
999 matchstate=matchdata(match_index,5)
1000
1001 '状态
1002 if matchstate<>c(1) then
1003 matchdata(match_index,5)=c(1)
1004
1005 if sclassType=2 and (C(1)=1 or C(1)=3) then '只分两节
1006 document.getElementById("zt_" & matchid).innerHtml=split(state(C(1)+10),",")(m_language)
1007 else
1008 document.getElementById("zt_" & matchid).innerHtml=split(state(C(1)+1),",")(m_language)
1009 end if
1010
1011 if C(1)=50 then
1012 document.getElementById("hbc_" & matchid).innerHtml=C(3)
1013 document.getElementById("gbc_" & matchid).innerHtml=C(4)
1014 end if
1015 end if
1016
1017 if(c(1)>=3 and c(1)<10) or c(1)=-1 then
1018 if c(11)<>"" then
1019 document.getElementById("hbc2_" & matchid).innerHtml=cint(c(9)) + cint(c(11))
1020 else
1021 document.getElementById("hbc2_" & matchid).innerHtml=cint(c(9))
1022 end if
1023 if c(12)<>"" then
1024 document.getElementById("gbc2_" & matchid).innerHtml=cint(c(10)) + cint(c(12))
1025 else
1026 document.getElementById("gbc2_" & matchid).innerHtml=cint(c(10))
1027 end if
1028 end if
1029
1030
1031 oldHomescore=matchdata(match_index,11)
1032 oldGuestscore=matchdata(match_index,12)
1033 if oldHomescore<>C(3) or oldGuestscore<>C(4) then
1034 matchdata(match_index,11)=C(3)
1035 matchdata(match_index,12)=C(4)
1036
1037 if oldHomescore<>C(3) then document.getElementById("hzf_" & matchid).style.backgroundColor="yellow"
1038 if oldGuestscore<>C(4) then document.getElementById("gzf_" & matchid).style.backgroundColor="yellow"
1039
1040 document.getElementById("hzf_" & matchid).innerHtml=C(3)
1041 document.getElementById("gzf_" & matchid).innerHtml=C(4)
1042
1043 if soundCheck and document.getElementById("table_" & matchid ).style.display="" then document.getElementById("sound").innerHtml=flash_goal
1044
1045 window.setTimeout "timecolors("&matchid&")",15000
1046 end if
1047
1048 '节余
1049 if C(2)="0:0" or C(2)="0.0" or C(2)="0" then
1050 if c(1)=-1 or c(1)=50 then '完场 中场
1051 document.getElementById("jy_" & matchid).innerHtml=""
1052 else
1053 document.getElementById("jy_" & matchid).innerHtml="完"
1054 end if
1055 else
1056 document.getElementById("jy_" & matchid).innerHtml=c(2)
1057 end if
1058
1059 '分节比分
1060 if C(1)=-1 or C(1)>=1 then
1061 if document.getElementById("hs1_" & matchid).innerHtml<>C(5) then C(5)="<span style='color:red'>" & C(5) &"</span>"
1062 if document.getElementById("gs1_" & matchid).innerHtml<>C(6) then C(6)="<span style='color:red'>" & C(6) &"</span>"
1063 document.getElementById("hs1_" & matchid).innerHtml=C(5)
1064 document.getElementById("gs1_" & matchid).innerHtml=C(6)
1065 else
1066 document.getElementById("hs1_" & matchid).innerHtml=""
1067 document.getElementById("gs1_" & matchid).innerHtml=""
1068 end if
1069 if (C(1)=-1 or C(1)>=2) and sclassType=4 then
1070 if document.getElementById("hs2_" & matchid).innerHtml<>C(7) then C(7)="<span style='color:red'>" & C(7) &"</span>"
1071 if document.getElementById("gs2_" & matchid).innerHtml<>C(8) then C(8)="<span style='color:red'>" & C(8) &"</span>"
1072 document.getElementById("hs2_" & matchid).innerHtml=C(7)
1073 document.getElementById("gs2_" & matchid).innerHtml=C(8)
1074 else
1075 document.getElementById("hs2_" & matchid).innerHtml=""
1076 document.getElementById("gs2_" & matchid).innerHtml=""
1077 end if
1078 if C(1)=-1 or C(1)>=3 and C(1)<>50 then
1079 if document.getElementById("hs3_" & matchid).innerHtml<>C(9) then C(9)="<span style='color:red'>" & C(9) &"</span>"
1080 if document.getElementById("gs3_" & matchid).innerHtml<>C(10) then C(10)="<span style='color:red'>" & C(10) &"</span>"
1081 document.getElementById("hs3_" & matchid).innerHtml=C(9)
1082 document.getElementById("gs3_" & matchid).innerHtml=C(10)
1083 else
1084 document.getElementById("hs3_" & matchid).innerHtml=""
1085 document.getElementById("gs3_" & matchid).innerHtml=""
1086 end if
1087 if (C(1)=-1 or C(1)>=4 and C(1)<>50) and sclassType=4then
1088 if document.getElementById("hs4_" & matchid).innerHtml<>C(11) then C(11)="<span style='color:red'>" & C(11) &"</span>"
1089 if document.getElementById("gs4_" & matchid).innerHtml<>C(12) then C(12)="<span style='color:red'>" & C(12) &"</span>"
1090 document.getElementById("hs4_" & matchid).innerHtml=C(11)
1091 document.getElementById("gs4_" & matchid).innerHtml=C(12)
1092 else
1093 document.getElementById("hs4_" & matchid).innerHtml=""
1094 document.getElementById("gs4_" & matchid).innerHtml=""
1095 end if
1096 if C(13)>=1 then '第1加时
1097 if typename(document.getElementById("hadd1_" & matchid))="Nothing" then
1098 loadScore(m_language)
1099 exit sub
1100 end if
1101 document.getElementById("hadd1_" & matchid).innerHtml=C(16)
1102 document.getElementById("gadd1_" & matchid).innerHtml=C(17)
1103 end if
1104 if C(13)>=2 then '第2加时
1105 if typename(document.getElementById("hadd2_" & matchid))="Nothing" then
1106 loadScore(m_language)
1107 exit sub
1108 end if
1109 document.getElementById("hadd2_" & matchid).innerHtml=C(18)
1110 document.getElementById("gadd2_" & matchid).innerHtml=C(19)
1111 end if
1112 if C(13)>=3 then '第3加时
1113 if typename(document.getElementById("hadd3_" & matchid))="Nothing" then
1114 loadScore(m_language)
1115 exit sub
1116 end if
1117 document.getElementById("hadd3_" & matchid).innerHtml=C(20)
1118 document.getElementById("gadd3_" & matchid).innerHtml=C(21)
1119 end if
1120 '说明
1121 document.getElementById("sm_" & matchid).innerHtml=c(14)
1122 document.getElementById("sm2_" & matchid).innerHtml=c(22)
1123 if matchdata(match_index,5)<>0 then
1124 if (matchdata(match_index,5)>=3 and matchdata(match_index,5)<>50) or matchdata(match_index,5)=-1 then '下半场或完场
1125 document.getElementById("qfc_" & matchid).innerHtml="全:" & matchdata(match_index,11)-matchdata(match_index,12)
1126 document.getElementById("qzf_" & matchid).innerHtml="全:" & cint(matchdata(match_index,11))+cint(matchdata(match_index,12))
1127 else
1128 document.getElementById("bfc_" & matchid).innerHtml="半:" & matchdata(match_index,11)-matchdata(match_index,12)
1129 document.getElementById("bzf_" & matchid).innerHtml="半:" & cint(matchdata(match_index,11))+cint(matchdata(match_index,12))
1130 end if
1131 end if
1132 end if
1133 next
1134end sub
1135
1136sub timecolors(matchid)
1137 on error resume next
1138 document.getElementById("hs1_" & matchid).innerHtml=document.getElementById("hs1_" & matchid).innerText
1139 document.getElementById("gs1_" & matchid).innerHtml=document.getElementById("gs1_" & matchid).innerText
1140 document.getElementById("hs2_" & matchid).innerHtml=document.getElementById("hs2_" & matchid).innerText
1141 document.getElementById("gs2_" & matchid).innerHtml=document.getElementById("gs2_" & matchid).innerText
1142 document.getElementById("hs3_" & matchid).innerHtml=document.getElementById("hs3_" & matchid).innerText
1143 document.getElementById("gs3_" & matchid).innerHtml=document.getElementById("gs3_" & matchid).innerText
1144 document.getElementById("hs4_" & matchid).innerHtml=document.getElementById("hs4_" & matchid).innerText
1145 document.getElementById("gs4_" & matchid).innerHtml=document.getElementById("gs4_" & matchid).innerText
1146
1147 document.getElementById("hzf_" & matchid).style.backgroundColor=""
1148 document.getElementById("gzf_" & matchid).style.backgroundColor=""
1149end sub
1150
1151sub hidematch(i)
1152 dim matchindex
1153 document.getElementById("table_" & matchdata(i,0)).style.display="none"
1154 document.getElementById("hiddencount").innerText=document.getElementById("hiddencount").innerText+1
1155end sub
1156
1157sub CheckLeague(i,name)
1158 dim j
1159 dim matchid
1160 hh=document.getElementById("hiddencount").innerText
1161 if document.getElementById("checkboxleague_" & i).checked=true then
1162 for j=0 to matchcount-1
1163 if matchdata(j,1)=name then
1164 document.getElementById("table_" & matchdata(j,0)).style.display=""
1165 hh=hh-1
1166 end if
1167 next
1168 else
1169 for j=0 to matchcount-1
1170 if matchdata(j,1)=name then
1171 document.getElementById("table_" & matchdata(j,0)).style.display="none"
1172 hh=hh+1
1173 end if
1174 next
1175 end if
1176 document.getElementById("hiddencount").innerText=hh
1177end sub
1178
1179sub ShowAllMatch()
1180 dim i
1181 for i=0 to sclasscount
1182 document.getElementById("checkboxleague_" & i).checked=true
1183 next
1184 for i=0 to matchcount-1
1185 document.getElementById("table_" & matchdata(i,0)).style.display=""
1186 next
1187 document.getElementById("hiddencount").innerText=0
1188end sub
1189
1190sub SelectOtherLeague()
1191 dim i,j,hh
1192 dim sclassname
1193 hh=0
1194 for i=0 to sclasscount
1195 sclassname=document.getElementById("checkboxleague_" & i).value
1196 if document.getElementById("checkboxleague_" & i).checked then
1197 document.getElementById("checkboxleague_" & i).checked=false
1198 for j=0 to matchcount-1
1199 if matchdata(j,1)=sclassname then
1200 document.getElementById("table_" & matchdata(j,0)).style.display="none"
1201 hh=hh+1
1202 end if
1203 next
1204 else
1205 document.getElementById("checkboxleague_" & i).checked=true
1206 for j=0 to matchcount-1
1207 if matchdata(j,1)=sclassname then
1208 document.getElementById("table_" & matchdata(j,0)).style.display=""
1209 end if
1210 next
1211 end if
1212 next
1213 document.getElementById("hiddencount").innerText=hh
1214end sub
1215
1216sub sms(i)
1217 window.open "http://bf.bet007.com/sms.aspx?id=" & matchdata(i,0) &"&ball=NBA&team=" & split(matchdata(i,8),",")(m_language) &" VS " & split(matchdata(i,10),",")(m_language), "","scrollbars=no,resizable=no,width=420, height=316"
1218end sub
1219
1220window.setTimeout "getxml()",2000
1221</script>
内容来自用户分享和网络整理，不保证内容的准确性，如有侵权内容，可联系管理员处理 
相关文章推荐
- 分享非常有用的Java程序 (关键代码) (二)---列出文件和目录
- 与大家分享一下200多个js技巧代码，不看别后海呀
- 梭猫互联分享：IIS FTP 安装程序无法复制文件的问题
- 微信小程序开发(五) - 全局(app.js)逻辑 - js 文件
- 读取XML文件中的指定值及属性(供大家分享)
- 【node.js】本地模式安装express：'express' 不是内部或外部命令，也不是可运行的程序或批处理文件。
- Node.js express不是内部或外部命令，也不是可运行的程序或批处理文件
- 跟大家分享一个非常精简的夏令时转换程序，程序是通用的可以在51、430、PIC、瑞萨系列的单片机上使用
- 给大家分享一个省市区选择框_js实现
- 分享一个js文件中嵌套php会出错的问题
- C#2005用XML来保存连接数据库的字符串(这样改变了服务器连接配制只需改一下这个文件就成了),琢磨了几天终于有解了,和大家分享一下,希望高手指点!
- 本文实例分析了js正则表达式中的单行模式与多行模式。分享给大家供大家参考
- 由于嵌入式项目版本较多不好管理，于是笔者写了一个“版本小助手”，和大家分享一下，附上程序
- 操作select的jquery插件 注意:使用时请保持JS文件的编码和你程序的编码一致...
- 自己写了个JS日历控件与大家分享
- JS浮动层[公司JS开发人员做的DEMO]与大家分享
- 分享一个管理硬盘中的音乐文件的ASP.NET程序，仅限于我个人的处理方式
- 【node.js】windows安装express：'express' 不是内部或外部命令，也不是可运行的程序或批处理文件。
- 【node.js】本地模式安装express：'express' 不是内部或外部命令，也不是可运行的程序或批处理文件。
- 今天在写程序中遇到的问题与大家分享一下