BET007的程序JS文件，我看了好长时间才明白的。哈哈，和大家分享下~~~~

Bet007.net后台文件JS程序

   1<script Language="JavaScript">
   2            function CheckSearch()
   3            {
   4                if (document.forms["Form1"].elements["tbxUserName"].value =="")
   5                {
   6                    alert("请填写要搜索波友的用户名！");
   7                    document.forms["Form1"].elements["tbxUserName"].focus();
   8                    return false;
   9                }
  10            }
  11</script>
  12<script language="javascript">
  13function MM_swapImgRestore() { //v3.0
  14  var i,x,a=document.MM_sr; for(i=0;a&&i<a.length&&(x=a[i])&&x.oSrc;i++) x.src=x.oSrc;
  15}
  16
  17function MM_preloadImages() { //v3.0
  18  var d=document; if(d.images){ if(!d.MM_p) d.MM_p=new Array();
  19    var i,j=d.MM_p.length,a=MM_preloadImages.arguments; for(i=0; i<a.length; i++)
  20    if (a[i].indexOf("#")!=0){ d.MM_p[j]=new Image; d.MM_p[j++].src=a[i];}}
  21}
  22
  23function MM_findObj(n, d) { //v4.01
  24  var p,i,x;  if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {
  25    d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
  26  if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];
  27  for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers[i].document);
  28  if(!x && d.getElementById) x=d.getElementById(n); return x;
  29}
  30
  31function MM_swapImage() { //v3.0
  32  var i,j=0,x,a=MM_swapImage.arguments; document.MM_sr=new Array; for(i=0;i<(a.length-2);i+=3)
  33   if ((x=MM_findObj(a[i]))!=null){document.MM_sr[j++]=x; if(!x.oSrc) x.oSrc=x.src; x.src=a[i+2];}
  34}
  35
  36function MM_showHideLayers() { //v6.0
  37  var i,p,v,obj,args=MM_showHideLayers.arguments;
  38  for (i=0; i<(args.length-2); i+=3) if ((obj=MM_findObj(args[i]))!=null) { v=args[i+2];
  39    if (obj.style) { obj=obj.style; v=(v=='show')?'visible':(v=='hide')?'hidden':v; }
  40    obj.visibility=v; }
  41}
  42
  43function EuropeOdds(ID) {
  44var theURL='http://1x2.bet007.com/oddslist/'+ID+'.htm';
  45window.open(theURL,'','width=650,height=520,top=40,left=40,resizable=yes,scrollbars=yes');}
  46
  47function AsianOdds(ID) {
  48var theURL='http://vip.bet007.com/AsianOdds_n.aspx?id='+ID;
  49window.open(theURL,'','width=620,height=560,top=20,left=90,resizable=yes,scrollbars=yes');}
  50
  51function analysis(ID){
  52var theURL='http://info.bet007.com/analysis/'+ID+'.htm';
  53window.open(theURL,'','');
  54}
  55
  56function panlu(ID){
  57    var theURL="http://bf.bet007.com/panlu/" + ID + ".htm";
  58    window.open(theURL,"","width=570,height=590,top=10,left=100,resizable=yes,scrollbars=no");
  59}
  60
  61function getCookie(name)
  62{
  63    var cname = name + "=";
  64    var dc = document.cookie;
  65    if (dc.length > 0) 
  66    {
  67        begin = dc.indexOf(cname);
  68        if (begin != -1) 
  69        {
  70            begin += cname.length;
  71            end = dc.indexOf(";", begin);
  72            if (end == -1) end = dc.length;
  73            return dc.substring(begin, end);
  74        }
  75    }
  76    return null;
  77}
  78function writeCookie(name, value) 
  79{ 
  80    var expire = ""; 
  81    var hours = 365;
  82    expire = new Date((new Date()).getTime() + hours * 3600000); 
  83    expire = ";path=/; expires=" + expire.toGMTString(); 
  84    document.cookie = name + "=" + escape(value) + expire; 
  85}
  86//-->
  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>^{["&match_homeorder&"]}</font>"
 227        if match_guestorder<>"" then match_guestorder="<font color=#444444>^{["&match_guestorder&"]}</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) = " &nbsp;<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> &nbsp;<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> &nbsp;<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> &nbsp; <a href=""javascript:panlu("&match_id&")"" style='color:#0000FF'>盘路</A>  &nbsp; <a href=""javascript:SingleAnaly("&i&",0)"" style='color:#0000FF'>数据</A>&nbsp; <A href=""javascript:Guess("&i&",0)"" target=_self style='color:#0000FF'>竞猜</A> &nbsp;</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) & "：&nbsp;"
 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="&nbsp;"
 762        if(matchdata(i,29)<>"")  then tv="<img alt='" & matchdata(i,29) & "' src=image/tv.gif width=12 height=14>" '直播
 763        html(2)="</span> &nbsp; <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> &nbsp; &nbsp; </td><td>下半场</td><td> &nbsp; &nbsp; </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> &nbsp; </td><td>下半場</td><td> &nbsp; </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> &nbsp; </td><td>Part 2</td><td> &nbsp; </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) & ">&nbsp;</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) & ">&nbsp;</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) & ">&nbsp;</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) & ">&nbsp;</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) & ">&nbsp;</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) & ">&nbsp;</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) & ">&nbsp;</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) & ">&nbsp;</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>