<!-- #include file=../../inc/BBSsetup.asp -->
<!-- #include file=../../inc/Board_Popfun.asp -->

<!--#include file=inc/const.asp-->
<!-- #include file="inc/race_const.asp" -->
<%
DEF_BBS_HomeUrl = "../../"
const npage = 2

GBL_CHK_TempStr=""
OpenDatabase
CheckUserOnline

dim headvar,stats
headvar="&nbsp>>&nbsp<a href=play.asp><font class=NavColor>社区赌场</font></a>"
   stats="&nbsp>>&nbsp赛马场"
BBS_SiteHead DEF_SiteNameString&" "&DEF_BBS_Name,GBL_board_ID,headvar&""&stats

Dim h1,h2,h3,h4,h5,h6,h7,h8,horsewin,TableWidth,tablebackcolor,tableTitleColor,TableFontColor,tablebodycolor


horsewin=Request.Form("horsewin")
 dim horsename(8)
 horsename(1)=h1
 horsename(2)=h2
 horsename(3)=h3
 horsename(4)=h4
 horsename(5)=h5
 horsename(6)=h6
 horsename(7)=h7
 horsename(8)=h8

 dim horse(7)
horse(0)=Request.Form("horse0")
horse(1)=Request.Form("horse1")
horse(2)=Request.Form("horse2")
horse(3)=Request.Form("horse3")
horse(4)=Request.Form("horse4")
horse(5)=Request.Form("horse5")
horse(6)=Request.Form("horse6")
horse(7)=Request.Form("horse7")

dim sqlstr
sqlstr="update [LeadBBS_User] set points=points+"&horse(horsewin)*py4&" where UserName='"&GBL_CHK_User&"'"
con.Execute sqlstr

%>
<br><br>
<table width="<%=DEF_BBS_ScreenWidth%>" cellpadding=3 cellspacing="1" align=center class=tbone>
  <tr class=tbbg1> 
    <td>
      <table cellpadding=3 cellspacing=1 border=0 width=100% class=tbone>
	 <tr class=tbbg1>
	    <td align=center colspan="2"><b>比赛结果公布：您赢了<%=horse(horsewin)*py4%>两银子</b></td>
	 </tr>
         <tr class=tbbg1> 
            <td  height="29" >
               <div align="center">第一名：</div>
            </td>
            <td width="60%" height="29" > 
              <div align="center">（<%=horsewin+1%>) <%=horsename(horsewin+1)%> </div>
            </td>
         </tr>
       </table>
     </td>
   </tr>
</table>
<script language=vbscript>  
 if confirm("抖擞精神，重新开始?") then  
  location.href = "race.asp"
 else
  location.href = "play.asp"
 end if
</script> 
<%

'尾部信息
If GBL_TableBottomString <> "" Then %>
 <table width=<%=DEF_BBS_ScreenWidth%> border=0 cellspacing=0 cellpadding=0 align=center>
   <tr><td><%=GBL_TableBottomString%></td></tr>
 </table>
<% End If 
  SiteBottom 
   If GBL_SiteBottomString <> "" Then Response.Write GBL_SiteBottomString
%>