on error resume next
dim i,kk,matchcount,datecount
dim leaguecount
dim loaded
datecount=0
dim bgc
dim week(8)
week(0)=""
week(1)="星期日"
week(2)="星期一"
week(3)="星期二"
week(4)="星期三"
week(5)="星期四"
week(6)="星期五"
week(7)="星期六"

dim matchdata(),oddsdata()  '保存比赛时间等信息
dim tr_xml()
dim html0(25)
dim GoalCn(20)
GoalCn(0)="平手"
GoalCn(1)="平手/半球"
GoalCn(2)="半球"
GoalCn(3)="半球/一球"
GoalCn(4)="一球"
GoalCn(5)="一球/球半"
GoalCn(6)="球半"
GoalCn(7)="球半/两球"
GoalCn(8)="两球"
GoalCn(9)="两球/两球半"
GoalCn(10)="两球半"
GoalCn(11)="两球半/三球"
GoalCn(12)="三球"
GoalCn(13)="三球/三球半"
GoalCn(14)="三球半"
GoalCn(15)="三球半/四球"
GoalCn(16)="四球"
GoalCn(17)="四球/四球半"
GoalCn(18)="四球半"
GoalCn(19)="四球半/五球"
GoalCn(20)="五球"

function Goal2GoalCn(goal)
	'数字盘口转汉汉字
	on error resume next
	if goal>=0 then 
		Goal2GoalCn=GoalCn(cint(goal*4)) 
	else 
		Goal2GoalCn="受让"& GoalCn(abs(cint(goal*4)))
	end if
end function
dim code
code = parent.coms.document.getElementById("code").innerText
if (code=null or code="") then code="big5"
if (code="big5") then
  call loadodds(1)
else
  call loadodds(0)
end if
on error resume next
sub loadodds(language)
	loaded=0
	m_language=language
	myxml.async = false
	myxml.load "xml\ODDS_ALL.xml"	
	set kk=myxml.childNodes.item(1).childNodes.item(0)
	matchcount=kk.childNodes.length
	redim tr_xml(matchcount-1)
	redim matchdata(matchcount-1,14) '赛事数据
	redim oddsdata(matchcount-1,14,6)'赔率数据

	If matchcount>=0 Then
		Call MakeTable_V()
	end if
	call matkeleague()
	document.getElementById("loadtext").innerhtml="全部数据加载成功！<br>没有必要的话请不要再刷新本页面"
	settimeout "NotDisplay()",3000
end sub
'隐藏加载提示
sub NotDisplay()
	document.getElementById("loading").style.display="none"
end sub

'语言转换
sub selLanguage(language)
	settimeout "loadodds("&language&")",10
end sub

sub MakeTable_V()
    dim ii
    ii=0
    dim j

	for i=0 to matchcount-1
		matchdata(i,0)=kk.childNodes.item(i).childNodes.item(0).Text 'ID
		matchdata(i,1)=kk.childNodes.item(i).childNodes.item(1).Text '类型背景色
		matchdata(i,2)=split(kk.childNodes.item(i).childNodes.item(2).Text,",")(m_language)'选择的语言对类的类型名
		matchdata(i,3)=split(kk.childNodes.item(i).childNodes.item(3).Text,",")(0)'开赛时间
		matchdata(i,4)=split(kk.childNodes.item(i).childNodes.item(4).Text,",")(m_language)'主队名
		matchdata(i,5)=split(kk.childNodes.item(i).childNodes.item(5).Text,",")(m_language)'客队名
		matchdata(i,6)=split(kk.childNodes.item(i).childNodes.item(6).Text,",")(0) '主队ID
		matchdata(i,7)=split(kk.childNodes.item(i).childNodes.item(6).Text,",")(1) '客队ID
		Neutrality=kk.childNodes.item(i).childNodes.item(8).Text'中立场
		matchdata(i,8)=kk.childNodes.item(i).childNodes.item(9).Text'上盘
		if matchdata(i,8)="2" then
			matchdata(i,9)=matchdata(i,5) '上盘
			matchdata(i,10)=matchdata(i,4) '下盘
		else
			matchdata(i,9)=matchdata(i,4)
			matchdata(i,10)=matchdata(i,5)
		end if
		
		arr=split(kk.childNodes.item(i).childNodes.item(10).Text,";") '各公司赔率
		zoudi=split(kk.childNodes.item(i).childNodes.item(11).Text,",") '走地情况
		closepan=split(kk.childNodes.item(i).childNodes.item(12).Text,",") '封盘情况
		'for j=LBound(arr) To UBound(arr)
                for j=0 to companyCount-1
			oddsdata(i,j+1,0)=split(arr(fromid(j)),",")(0) '赔率ID	
			oddsdata(i,j+1,1)=split(arr(fromid(j)),",")(1) '盘口
			oddsdata(i,j+1,2)=split(arr(fromid(j)),",")(2)'上盘水位
			oddsdata(i,j+1,3)=split(arr(fromid(j)),",")(3)'下盘水位
			oddsdata(i,j+1,4)=split(arr(fromid(j)),",")(4)'初盘口			
			oddsdata(i,j+1,5)=zoudi(fromid(j)) '走地
			oddsdata(i,j+1,6)=closepan(fromid(j)) '封盘
		next
		matchdata(i,11)=true '是否显示
		matchdata(i,12)=true '是否到时

	  if (selSclass=1 or oddsdata(i,1,0)<>"") and (seldate="" or InStr(seldate, formatdatetime(matchdata(i,3),vbshortdate))>0) then  '筛选	
                if (i Mod 2=0) then bgc="#F5F5F5" else bgc="#EBF0FC" end if
		html0(0) = "<TR align=center height=40 id='tr_" & matchdata(i,0) &"' bgColor="&bgc&" index="&i&">"
	        html0(1) = "<td bgColor="&matchdata(i,1)&" width=20><input id='checkbox_" & matchdata(i,0) & "' type=checkbox checked onclick='hidematch(" & i & ")'></td>"
		html0(2) = "<TD bgColor="&matchdata(i,1)&" width=50><FONT color=#ffffff>"&matchdata(i,2)&"<BR>"&formatdatetime(matchdata(i,3),vbshorttime)&"</FONT></TD>"
		
		if matchdata(i,8)="2" then '判断哪个队是上盘球队,2:客上盘
			html0(3) = "<td width=100  bgcolor=#FFFFEE><table height='100%' width='100%' cellSpacing=0 cellPadding=0 border=0 class=font12>"
			if Neutrality="True" then
				html0(3) = html0(3) & "<tr><td id='up_" &matchdata(i,0) &"' align=center>"& matchdata(i,5)&"(中)</td></tr>"
				html0(4) = "<tr><td id='down_" &matchdata(i,0) &"' align=center>"& matchdata(i,4)&"</td></tr></table></td>"
			else
				html0(3) = html0(3) & "<tr><td id='up_" &matchdata(i,0) &"' align=center>"& matchdata(i,5)&"</td></tr>"
				html0(4) = "<tr><td id='down_" &matchdata(i,0) &"' align=center>"& matchdata(i,4)&"(主)</td></tr></table></td>"
			end if
		else
			html0(3) = "<td width=100  bgcolor=#FFFFEE><table height='100%' width='100%' cellSpacing=0 cellPadding=0 border=0 class=font12>"
			if Neutrality="True" then
				html0(3) = html0(3) & "<tr><td id='up_" &matchdata(i,0) &"' align=center>"& matchdata(i,4)&"(中)</td></tr>"
				html0(4) = "<tr><td id='down_" &matchdata(i,0) &"' align=center>"& matchdata(i,5)&"</td></tr></table></td>"
			else
				html0(3) = html0(3) & "<tr><td id='up_" &matchdata(i,0) &"' align=center>"& matchdata(i,4)&"(主)</td></tr>"
				html0(4) = "<tr><td id='down_" &matchdata(i,0) &"' align=center>"& matchdata(i,5)&"</td></tr></table></td>"
			end if
		end if

		html0(5)=""
		for j=0 to companyCount-1 
			html0(5)=html0(5)&"<TD id='odds_"&company(j,1)&"_"&matchdata(i,0)&"' title='"&company(j,2)&"' width=70>"
			html0(5)=html0(5)&"<TABLE height='100%' cellSpacing=0 cellPadding=0 width='100%' border=0>"
			html0(5)=html0(5)&"<TR align=center><TD align=center>"
			if oddsdata(i,company(j,3),1)<>"" then
				if abs(oddsdata(i,company(j,3),1)-oddsdata(i,company(j,3),4))>=0.5 then
					'html0(5)=html0(5)&"<span class=chgoal>●</span>"
				end if
			end if
			html0(5)=html0(5)&"<span id='upodds_"&company(j,1)&"_"&matchdata(i,0)&"' class=f1>"&oddsdata(i,company(j,3),2)&"</span>"
			''html0(5)=html0(5)&"<span id='upodds_"&company(j,1)&"_"&matchdata(i,0)&"' style='cursor:hand' class=f1 onclick=""ChangeDetail("&i&","&company(j,3)&",'"&company(j,2)&"')"" class=f1>"&oddsdata(i,company(j,3),2)&"</span>"
			if oddsdata(i,company(j,3),5)="True" then html0(5)=html0(5)&" <img src='img/goal.gif'>"
			html0(5)=html0(5)&"</TD></TR>"
			''html0(5)=html0(5)&"<tr align=center><TD  width='100%'>"
			''html0(5)=html0(5)&"<tr align=center><TD  width='100%'><a id='goal_"&company(j,1)&"_"&matchdata(i,0)&"' href='javascript:' onclick=""ChangeDetail_p("&i&","&company(j,3)&",'"&company(j,2)&"')"">"
			html0(5)=html0(5)&"<tr align=center><TD  width='100%'><a style='cursor:hand' href='javascript:void(0)' onclick=openTrend('http://wvw.totou.com/pl/trend.jsp?l=" & encodeURI(matchdata(i,4)) & "&r=" & encodeURI(matchdata(i,5)) & "&cn=" & encodeURI(company(j,2)) & "&cid=" & company(j,1) & "&mid=" & (oddsdata(i,company(j,3),0)) & "') id='goal_"&company(j,1)&"_"&matchdata(i,0)&"'>"

			if oddsdata(i,company(j,3),1)<>"" then html0(5)=html0(5)& Goal2GoalCn(oddsdata(i,company(j,3),1))
			html0(5)=html0(5)&"</a></td></TR><TR align=center><TD class=f2>"
			''html0(5)=html0(5)&"</a></td></TR><TR align=center><TD class=f2>"
			
			if oddsdata(i,company(j,3),6)="True" then
				''html0(5)=html0(5)&"<span id='close_"&company(j,1)&"_"&matchdata(i,0)&"' class=dim>(封)</span>"
			else
				''html0(5)=html0(5)&"<span id='close_"&company(j,1)&"_"&matchdata(i,0)&"' style='display:none' class=dim>(封)</span>"
			end if
			html0(5)=html0(5)&"<span id='downodds_"&company(j,1)&"_"&matchdata(i,0)&"'>"&oddsdata(i,company(j,3),3)&"</span></TD></TR>"
			html0(5)=html0(5)&"</TABLE></TD>"
		next
		''html0(6)="<TD bgColor=#F7F3F7><!--<a style='cursor:hand;color:blue' onclick=""ChangeDetail_all("&i&")"">走势</a><BR><img src='' width=0 height=16><A style='cursor:hand;color:blue' onclick=""analysis("&matchdata(i,0)&")"">分析</a>--></TD>"
		''html0(7)="<TD bgColor=#F7F3F7><A style='cursor:hand;color:blue' onclick=""EuropeOdds("&matchdata(i,0)&")"" target=_self>欧赔</A><br><img src='' width=0 height=16><a style='cursor:hand;color:blue' onclick=""OverDown('"&matchdata(i,0)&"&team1="&matchdata(i,4)&"&team2="&matchdata(i,5)&"')"">大小</A></TD>"
		html0(7)="</TR>"
		For j = 0 To 7
			tr_xml(i) = tr_xml(i) & vbCrLf & html0(j)
		Next
                if (bAds and i=0 and txt_ad1<>"") then
		  tr_xml(i) = tr_xml(i) & "<tr><td colspan=20 align=center bgcolor=#FFFFFF height=25 class=font12>"+txt_ad1+"</td></tr>"
                end if
                if (bAds and i=1 and txt_ad2<>"") then
		  tr_xml(i) = tr_xml(i) & "<tr><td colspan=20 align=center bgcolor=#FFFFFF height=25 class=font12>"+txt_ad2+"</td></tr>"
                end if
                if (bAds and i=2 and txt_ad3<>"") then
		  tr_xml(i) = tr_xml(i) & "<tr><td colspan=20 align=center bgcolor=#FFFFFF height=25 class=font12>"+txt_ad3+"</td></tr>"
                end if
                if (bAds and i=3 and txt_ad4<>"") then
		  tr_xml(i) = tr_xml(i) & "<tr><td colspan=20 align=center bgcolor=#FFFFFF height=25 class=font12>"+txt_ad4+"</td></tr>"
                end if
                if (bAds and i=4 and txt_ad5<>"") then
		  tr_xml(i) = tr_xml(i) & "<tr><td colspan=20 align=center bgcolor=#FFFFFF height=25 class=font12>"+txt_ad5+"</td></tr>"
                end if
                If InStr(matchdate1, formatdatetime(matchdata(i,3),vbshortdate)) <= 0 Then
			tr_xml(i) = "<tr><td colspan=20 align=center bgcolor=#99CC66 height=25 class=font12 style='color:#000000'>"&formatdatetime(matchdata(i,3),vblongdate)&"("&week(Weekday(matchdata(i,3)))&")</td></tr>" & tr_xml(i)

			datecount=datecount+1
			matchdate1=matchdate1 & formatdatetime(matchdata(i,3),vbshortdate)
                        matchdate = matchdate & "<br><input style='cursor:hand' onclick='CheckDate(""" & formatdatetime(matchdata(i,3),vbshortdate) & ""","&datecount&")' checked type=checkbox id='checkboxdate_" & datecount & "'><label style='cursor:hand' for='checkboxdate_" & datecount & "'>" & formatdatetime(matchdata(i,3),vbshortdate) & "</label>"
                End If
	 else
		tr_xml(i)=""
		matchdata(i,11)=false '是否显示
		matchdata(i,12)=false '是否到时
	 end if
		
	next
	''document.getElementById("scheduleDate").innerhtml=matchdate
	oddsHead="<TR align=center bgColor=#CC0000 class=tr_head height=28>"
	oddsHead=oddsHead&"<TD width=20 bgcolor=#990000>选</TD>"
	oddsHead=oddsHead&"<TD width=50 bgcolor=#990000>赛事</TD>"
	oddsHead=oddsHead&"<TD width=100 bgcolor=#FFFFEE class=f3>对阵球队</TD>"
	for i=0 to companyCount-1
	  oddsHead=oddsHead&"<TD width=70 bgcolor=" & company(i,4) & ">"&company(i,2) & "</TD>"
	  document.getElementById("company"&company(i,1)).checked=true
	next
        ''oddsHead=oddsHead& "<TD width=60>分析</TD>"
	''oddsHead=oddsHead&"<TD width=30>赔率</TD>"
	oddsHead=oddsHead& "</TR>"
	''if 170+companycount*70<549 then tableWidth=549 else tableWidth=170+companycount*70
        tableWidth=551
	oddshtml="<TABLE width="& tableWidth &" border=0 cellPadding=0 cellSpacing=1 bgColor=#666666 class=font12>" & oddsHead
	For ii = 0 To matchcount-1
		oddshtml=oddshtml&vbCrLf & tr_xml(ii)
	Next
	oddsHead=oddsHead& "</TR>"
	oddshtml=oddshtml & oddsHead
	oddshtml=oddshtml& "</TABLE>"
	document.getElementById("odds").innerhtml=oddshtml
	document.getElementById("headtable").style.width=tablewidth
end sub


 '联赛/杯赛名列表
sub matkeleague()
	dim l
	dim kk1
	dim st
	dim leaguehtml

	set kk1=myxml.childNodes.item(1).childNodes.item(1)
	l=kk1.childNodes.length
	leaguecount=l
	leaguehtml=""	
	for i=0 to l-1
		st=split(kk1.childNodes.item(i).Text,",")(m_language)
		leaguehtml=leaguehtml &  "<tr class=font12><td><input style='cursor:hand' 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>"
	next
	leaguehtml="<TABLE WIDTH=100% BORDER=0 CELLPADDING=0 CELLSPACING=0>" & leaguehtml & "</TABLE>"
	document.getElementById("myleague").innerHTML=leaguehtml
end sub