Function showls(ls)
	ls=left(ls,3)
	lscolor = "#e0f0d0"
	Select Case ls
	Case "意甲"
		lscolor = "lightgreen"
	Case "英超"
		lscolor = "#f0e0d0"
	Case "德甲"
		lscolor = "lightyellow"
	Case "西甲"
		lscolor = "lightblue"
	Case "世界杯"
		lscolor = "#FFCC66"
	Case "中甲","中超"
		lscolor = "yellow"
	End Select
	showls="<td bgcolor='"&lscolor&"' nowrap>"&ls&"</td>"
End Function
Function showtr(Rs,Flag)
	trbgColor="#C5E1FE"
	If Flag Then trbgColor="#E1F0FF"
	thetr="<tr id='ln" & Rs("pid") & "' bgcolor='" & trbgColor & "' height=22 align='center'>"
	thetr=thetr+ showls(Rs("ls")) + "<td>" & Rs("pid") & "</td>"
	If Rs("ShR")=1 Then
		thetr=thetr+"<td id=tm1" & Rs("pid") & ">" & Rs("stm") & "</td>"
		thetr=thetr+"<td nowrap id=tz1" & Rs("pid") & "><a target=_blank href='gameguess2.asp?tz=2&playid=" & Rs("pid") & "&plid=" & Rs("plid") & "'><font color='brown'>上盘</a></td>"
		thetr=thetr+"<td nowrap id=pl1" & Rs("pid") & ">" & Rs("pl2") & "</td>"
		thetr=thetr+"<td nowrap><a class=a3 href='/newgame/gameguessplbh2.asp?c=1&playid="& Rs("pid") &"' title='点此查看赔率变化和评论' target=_blank><span id=rangqiu" & Rs("pid") & ">" & Rs("rangqiu") & "</span></a></td>"
		thetr=thetr+"<td nowrap id=pl2" & Rs("pid") & ">" & Rs("pl1") & "</td>"
		thetr=thetr+"<td nowrap id=tz2" & Rs("pid") & "><a target=_blank href='gameguess2.asp?tz=1&playid=" & Rs("pid") & "&plid=" & Rs("plid") & "'><font color='brown'>下盘</a></td>"
		thetr=thetr+"<td id=tm2" & Rs("pid") & "><font color=red>☆</font>" & Rs("mtm") & "</td>"
	Else
		thetr=thetr+"<td id=tm1" & Rs("pid") & "><font color=red>☆</font>" & Rs("mtm") & "</td>"
		If Rs("rangqiu")="暂无赔率" Then
			thetr=thetr+"<td nowrap id=tz1" & Rs("pid") & "> </td>"
		Else
			thetr=thetr+"<td nowrap id=tz1" & Rs("pid") & "><a target=_blank href='gameguess2.asp?tz=1&playid=" & Rs("pid") & "&plid=" & Rs("plid") & "'><font color='brown'>上盘</a></td>"
		End If
		thetr=thetr+"<td nowrap id=pl1" & Rs("pid") & ">" & Rs("pl1") & "</td>"
		thetr=thetr+"<td nowrap><a class=a3 href='/newgame/gameguessplbh2.asp?c=1&playid="& Rs("pid") &"' title='点此查看赔率变化和评论' target=_blank><span id=rangqiu" & Rs("pid") & ">" & Rs("rangqiu") & "</span></a></td>"
		thetr=thetr+"<td nowrap id=pl2" & Rs("pid") & ">" & Rs("pl2") & "</td>"
		If Rs("rangqiu")="暂无赔率" Then
			thetr=thetr+"<td nowrap id=tz2" & Rs("pid") & "> </td>"
		Else
			thetr=thetr+"<td nowrap id=tz2" & Rs("pid") & "><a target=_blank href='gameguess2.asp?tz=2&playid=" & Rs("pid") & "&plid=" & Rs("plid") & "'><font color='brown'>下盘</a></td>"
		End If
		thetr=thetr+"<td id=tm2" & Rs("pid") & ">" & Rs("stm") & "</td>"
	End If
	thetr=thetr+"<td nowrap><a class=a3 href=http://info.betrich.com" & Rs("xmlpath") & "/play_simp_" & Rs("pid") & ".shtm title='点击查看预测资料' target=_blank><img src=image/yuce.gif height=18 border=0></a></td>"
	thetr=thetr+"<td nowrap><a class=a3 href=http://odds.betrich.com/europl.asp?playid="&Rs("pid")&" target=_blank><font color=#000000>欧赔</font></a></td>"
	thetr=thetr+"<td nowrap>" & formatdatetime(Rs("pt"),4) & "</td></tr>"
	showtr=thetr
End Function

Sub Start'显示主体数据区XML
	On Error Resume Next
	divLoading.Style.Visibility="show"
	Set Rs=xmls.RecordSet
	Rs.MoveFirst
	dim HTML
	HTML="加载中……"
	If NOT Rs.EOF Then
		dim remwday,trbgColor,Flag
		remwday=""
		Flag=True
		HTML="<table border=0 align=center cellpadding=0 cellspacing=1 bgcolor=#ffffff width='100%'>"
		HTML=HTML+"<tr align=center height=20 bgcolor=#006699>"
		HTML=HTML+"<td><font color=#ffffff>类别</font></td>"
		HTML=HTML+"<td><font color=#ffffff>对阵号</font></td>"
		HTML=HTML+"<td><font color=#ffffff>上盘球队</font></td>"
		HTML=HTML+"<td><font color=#ffffff><span title=上盘>竞猜</span></font></td>"
		HTML=HTML+"<td><font color=#ffffff><span title=上盘>赔率</span></font></td>"
		HTML=HTML+"<td><font color=#ffffff>让球</font></td>"
		HTML=HTML+"<td><font color=#ffffff><span title=下盘>赔率</span></font></td>"
		HTML=HTML+"<td><font color=#ffffff><span title=下盘>竞猜</span></font></td>"
		HTML=HTML+"<td><font color=#ffffff>下盘球队</font></td>"
		HTML=HTML+"<td><font color=#ffffff>预测</font></td>"
		HTML=HTML+"<td><font color=#ffffff>欧赔</font></td>"
		HTML=HTML+"<td><font color=#ffffff>开赛</font></td>"
		HTML=HTML+"</tr>"
		While Not Rs.EOF
			If Not Rs("wday")=remwday Then
				remwday=Rs("wday")
				remDate=formatdatetime(Rs("pt"),1) & "("
				HTML=HTML+"<tr><td colspan=12 align=center bgcolor='#66CCFF'>" & remDate & remwday & ")</td></tr>"
			End If
			HTML=HTML+showtr(Rs,Flag)
			Flag=Not Flag
			Rs.MoveNext
		Wend
		HTML=HTML+"</table>"
	End If
	content.innerHTML=HTML
End Sub
Sub addNode()'新节点
	On Error Resume Next
	Dim pid,node,id,isr
	If Not xmldoc.documentElement is Nothing Then
		If Not xmldoc.documentElement.childNodes is Nothing Then
			For Each Node In xmldoc.documentElement.childNodes
				pid = Node.childNodes.item(1).text
				nRangQiu = Node.childNodes.item(2).text
				npl1 = Node.childNodes.item(3).text
				npl2 = Node.childNodes.item(4).text
				nsr = Node.childNodes.item(5).text
				id = Node.childNodes.item(0).text
				If clng(id&"")>clng(lid&"") Then lid = clng(id&"")
				Set node = Node.childNodes.item(1).parentNode
				Set chkNode = xmls.documentElement.selectSingleNode("play/log/id[.='" + id + "']")
				If chkNode Is Nothing Then
					Set srchNode = xmls.documentElement.selectSingleNode("play/pid[.='" + pid + "']")
					If Not srchNode is Nothing Then
						isr=srchNode.parentNode.childNodes.item(9).text
						srchNode.parentNode.childNodes.item(9).text=nsr
						resetPan pid,id
						srchNode.parentNode.appendChild(node)
						setRQ pid,nRangQiu,fstRun
						setPL pid,npl1,npl2,nsr,fstRun
						If Not fstRun Then setsound pid
					End If
				End If
			Next
		End If
	End If
	fstRun=False
	fstLoad=False
End Sub
Sub resetPan(pid,plid)
	On Error Resume Next
	Set panNode=xmls.documentElement.selectSingleNode("play/pid[.='" + pid + "']")
	If Not panNode is Nothing Then
		isr=panNode.parentNode.childNodes.item(9).text
		Set tz1 = document.getElementById("tz1"&pid)
		Set tz2 = document.getElementById("tz2"&pid)
		Set tm1 = document.getElementById("tm1"&pid)
		Set tm2 = document.getElementById("tm2"&pid)
		If isr="0" Then
			tz1.innerHTML = "<a target=_blank href='gameguess2.asp?tz=1&playid=" & pid & "&plid=" & plid & "'><font color='brown'>上盘</a>"
			tz2.innerHTML = "<a target=_blank href='gameguess2.asp?tz=2&playid=" & pid & "&plid=" & plid & "'><font color='brown'>下盘</a>"
			If tvs Then
				tm1.innerHTML = "<font color=red>☆</font>" & panNode.parentNode.childNodes.item(6).text
				tm2.innerHTML = panNode.parentNode.childNodes.item(7).text
			Else
				tm1.innerHTML = "<font color=red>☆</font>" & panNode.parentNode.childNodes.item(4).text
				tm2.innerHTML = panNode.parentNode.childNodes.item(5).text
			End If
		Else
			tz1.innerHTML = "<a target=_blank href='gameguess2.asp?tz=2&playid=" & pid & "&plid=" & plid & "'><font color='brown'>上盘</a>"
			tz2.innerHTML = "<a target=_blank href='gameguess2.asp?tz=1&playid=" & pid & "&plid=" & plid & "'><font color='brown'>下盘</a>"
			If tvs Then
				tm1.innerHTML = panNode.parentNode.childNodes.item(7).text
				tm2.innerHTML = "<font color=red>☆</font>" & panNode.parentNode.childNodes.item(6).text
			Else
				tm1.innerHTML = panNode.parentNode.childNodes.item(5).text
				tm2.innerHTML = "<font color=red>☆</font>" & panNode.parentNode.childNodes.item(4).text
			End If
		End If
	End If
End Sub
Sub reSetFlags()
	On Error Resume Next
	For Each img In document.images
		If inStr(img.id,"img")>0 Then
			img.src="http://www.betrich.com/images/ball.gif"
		Else
			If not isnull(img) Then img.src=getFlag(img.src)
		End If
	Next
	If(Len(Timer))>0 Then clearInterval Timer
End Sub
Sub getFlags()'加载所有纪录的图像
	For Each img In document.images
		If not isnull(img) Then img.src=getFlag(img.src)
	Next
	If(Len(Timer))>0 Then clearInterval Timer
End Sub
Sub ChangeVersion()'繁体简体球队切换
	If tversion.value="粤语球队" Then
		tvs=true
		tversion.value="国语球队"
	Else
		tvs=false
		tversion.value="粤语球队"
	End If
	For Each Node In xmls.documentElement.childNodes
		sr = Node.childNodes.item(9).text
		pid = Node.childNodes.item(0).text
		Set tm1 = document.getElementById("tm1"&pid)
		Set tm2 = document.getElementById("tm2"&pid)
		If tvs Then
			If sr="0" Then
				tm1.innerHTML = "<font color=red>☆</font>" & Node.childNodes.item(6).text
				tm2.innerHTML = Node.childNodes.item(7).text
			Else
				tm1.innerHTML = Node.childNodes.item(7).text
				tm2.innerHTML = "<font color=red>☆</font>" & Node.childNodes.item(6).text
			End If
		Else
			If sr="0" Then
				tm1.innerHTML = "<font color=red>☆</font>" & Node.childNodes.item(4).text
				tm2.innerHTML = Node.childNodes.item(5).text
			Else
				tm1.innerHTML = Node.childNodes.item(5).text
				tm2.innerHTML = "<font color=red>☆</font>" & Node.childNodes.item(4).text
			End If
		End If
	Next
End Sub