<!-- #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

'=================================================
'过程名：errormsg
'作  用：显示错误信息
'参  数：msg
'=================================================
sub Errormsg()
%>
<table width="<%=DEF_BBS_ScreenWidth%>" cellpadding=3 cellspacing="1" align=center class=tbone>
    <tr class=tbhead2> 
      <td width="100%" height=20 colspan="2" align=center><b><font class=HeadFont>错误信息</font></b></td>
    </tr>
    <tr class=tbbg1>
      <td colspan=2><b>产生错误的可能原因是：</b><br><br>
                      <%=msg%></td>
    </tr>
</table>
<%
end sub

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,nowmeili,my,mymoney
dim msg
  msg=""
if GBL_CHK_User="" then
  msg="<li>您没有在本社区赛 马 场的权限，请<a href=login.asp>登陆</a>或者同管理员联系。</li>"
  call Errormsg()
else
  response.write "<table width="&DEF_BBS_ScreenWidth&" cellpadding=3 cellspacing=1 align=center class=tbone><tr class=tbhead2><td valign=middle colspan=2 align=center height=20><b><font class=HeadFont>赛 马 场</font></b></td></tr><tr><td valign=middle class=tbbg1 height=100><CENTER>"
%>
  
<%
dim sql,rs,charmpoint,onlinetime
sql="Select * from [LeadBBS_User] where UserName='" & GBL_CHK_User&"'" 
set rs=con.Execute(sql)

nowmeili=rs("points")
if nowmeili-minjinqian<0 then
%>
<script language=vbscript>
  MsgBox "你现在只有不到<%=minjinqian%>块钱，太少了点嘛，以后再来吧！"
   location.href = "play.ASP"
</script>
<% 
rs.close
set rs=nothing
else
%>
<%
	sql="SELECT * FROM [LeadBBS_User] where UserName='"&GBL_CHK_User&"'" 
	Set Rs=con.Execute(sql)
	mymoney=rs("points")
        charmpoint=rs("charmpoint")
        onlinetime=clng(rs("onlinetime")/60)
	my=rs("UserName")
%>
<bgsound src=music\horse.mid loop=-1>

<table border="0" cellspacing="0" cellpadding="0" align="center">
  <tr>
    <td width="150" valign="top" align="center">
      <table width="100%" border="0" cellspacing="1" cellpadding="3" class=tbone>
        <tr class=tbhead2>
          <td><b>欢迎<%=my%>进入赛马场</b></td>
        </tr>
        <tr class=tbbg1> 
          <td><b>资产：</b></td>
        </tr>
        <tr class=tbbg9>
          <td > 
            <p>纹银 <%=mymoney%><font color="#CC0000"><b> 两</b></font><br>
               魅力 <%=charmpoint%><font color="#CC0000"><b> 点</b></font><br>
               经验 <%=onlinetime%><font color="#CC0000"><b> 点</b></font>
            </p>
          </td>
        </tr>
        <tr class=tbbg1> 
          <td><b>备注：</b></td>
        </tr>
        <tr class=tbbg9>
          <td >
            <p>赔率:</b> <font color=CC0000><b>1：<%=py4%></b></font><br>
              最小赌注 <b><%=minjinqian%></b> <font color="#CC0000"><b>两</b></font><br>
              最大赌注 <b><%=maxjinqian%></b> <font color="#CC0000"><b>两</b></font> 
          </td>
        </tr>
        <tr class=tbbg1>
          <td align="center" >
             <br>
             <a href="play.asp">返回</a> 
          </td>
        </tr>
      </table>
    </td>
    <td width="10"></td>
    <td valign="top">
      <form method="post" action="match.asp" id=form1 name=form1>
        <table border=0 cellspacing="1" cellpadding="2" width="100%" class=tbone>
          <tr class=tbhead2> 
            <td  align="center" width="29">闸位</td>
            <td height="20"  align="center" width="45">马图</td>
            <td height="20"  align="center" width="54">马名</td>
            <td height="20"  align="center" width="44">产地</td>
            <td height="20"  align="center">简 介</td>
          </tr>
          <tr class=tbbg1>
            <td width=29  align="center" ><b>1</b></td>
            <td width=45  align="center" ><img src="pic/h1.gif" width="36" height="35"></td>
            <td width=54  align="center" ><%=h1%></td>
            <td width=44  align="center" >新加坡</td>
            <td ><%=h1%>有着惊人的坚强和冷静它的最大优势在于稳定的发挥和短长跑的多方面能力.</td>
          </tr>
          <tr class=tbbg1>
            <td width=29  align="center" ><b>2</b></td>
            <td width=45  align="center" ><img src="pic/h2.gif" width="36" height="35"></td>
            <td width=54  align="center" ><%=h2%></td>
            <td width=44  align="center" >中国</td>
            <td > <%=h2%>以其澎湃的速度和它的无处发泄的激情.在国外经受无数次大型赛事的磨练，经验丰富....<br>
            </td>
          </tr>
          <tr class=tbbg1>
            <td width=29  align="center" ><b>3</b></td>
            <td width=45  align="center" ><img src="pic/h3.gif" width="36" height="35"></td>
            <td width=54  align="center" ><%=h3%></td>
            <td width=44  align="center" >台湾</td>
            <td >这匹马的外观很奇特,白色的尾巴似乎在傲然宣告着自己不一般的血统.自出道以来就有着骄人的战绩...</td>
          </tr>
          <tr class=tbbg1>
            <td width=29  align="center" ><b>4</b></td>
            <td width=45  align="center" ><img src="pic/h4.gif" width="36" height="35"></td>
            <td width=54  align="center" ><%=h4%></td>
            <td width=44  align="center" >香港</td>
            <td >体魄+斗志+意志+高贵.这一切它全部都拥有!均横的数值加上疯狂的耐力足以让它征服任何同类</td>
          </tr>
          <tr class=tbbg1>
            <td width=29  align="center" ><b>5</b></td>
            <td width=45  align="center" ><img src="pic/h5.gif" width="36" height="35"></td>
            <td width=54  align="center" ><%=h5%></td>
            <td width=44  align="center" >英国</td>
            <td >它神乎其神的身法和缥缈的步伐实在是让人叹为观止.速度神快，跑起来身上会闪出异常的光芒....</td>
          </tr>
          <tr class=tbbg1>
            <td width=29  align="center" ><b>6</b></td>
            <td width=45  align="center" ><img src="pic/h6.gif" width="36" height="35"></td>
            <td width=54  align="center" ><%=h6%></td>
            <td width=44  align="center" >印度</td>
            <td >
              <p>这匹马来历不明，暂时无资料...正在查...</p>
            </td>
          </tr>
          <tr class=tbbg1>
            <td  align="center" width="29" ><b>7</b></td>
            <td  align="center" width="45" ><img src="pic/h7.gif" width="36" height="35"></td>
            <td  align="center" width="54" ><font face="Arial, Helvetica, sans-serif"><%=h7%></font></td>
            <td  align="center" width="44" >澳大利亚</td>
            <td >来自澳大利亚打比大赛冠军，速度奇快,跑起来身上会像闪电一样,永往直前是它的本性.不受任何影响,直冲终点.</td>
          </tr>
          <tr class=tbbg1>
            <td width=29  align="center"><b>8</b></td>
            <td width=45  align="center"><img src="pic/h8.gif" width="36" height="35"></td>
            <td width=54  align="center"><%=h8%></td>
            <td width=44  align="center">南非</td>
            <td>人不可貌相,马也一样.<%=h8%>虽然其貌不扬，但是有一颗好斗的心.不服输的性格决定了它是不可限量的.</td>
          </tr>
        </table>
        <div align="center">
          <table width="100%" border="0" cellspacing="0" cellpadding="4">
            <tr>
              <td align="center">
                <p>
                  <select name="win" size="1">
                    <option value=>□ 请选择马匹</option>
                    <option value=1>1道：<%=h1%></option>
                    <option value=2>2道：<%=h2%></option>
                    <option value=3>3道：<%=h3%></option>
                    <option value=4>4道：<%=h4%></option>
                    <option value=5>5道：<%=h5%></option>
                    <option value=6>6道：<%=h6%></option>
                    <option value=7>7道：<%=h7%></option>
                    <option value=8>8道：<%=h8%></option>
                  </select>
                  <input type="text" name="pledge" value="10" size="6" >
                  <input type=submit value=开始比赛>
              </td>
            </tr>
          </table>
          
        </div>
      </form>
    </td>
  </tr>
</table>
<%end if

response.write "</CENTER></td></tr></table>"
end if
'尾部信息
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
%>