<%@ LANGUAGE=VBScript codepage ="936" %>
<%Response.Expires=0
Response.ExpiresAbsolute = Now() - 1
Response.AddHeader "Pragma","No-Cache"
Response.AddHeader "Cache-Control","Private"
Response.CacheControl = "No-Cache"
cwjh_name=Session("cwjh_name")
cwjh_grade=Session("cwjh_grade")
if cwjh_name="" then Response.Redirect "../error.asp?id=440"
chatbgcolor=Application("cwjh_chatbgcolor")
chatimage=Application("cwjh_chatimage")
if chatbgcolor="" then chatbgcolor="008888"
Set conn=Server.CreateObject("ADODB.CONNECTION")
Set rs=Server.CreateObject("ADODB.RecordSet")
conn.open Application("cwjh_usermdb")
rs.open "select * FROM 赌博 WHERE c='马' and f=true",conn
xzmd=""
do while not rs.bof and not rs.eof
 xzmd=xzmd&"<option >"&rs("a")&" "& rs("b") &"号"& rs("d")/10000 &"万</option>"
rs.movenext
loop
tmprs=conn.execute("Select count(*) As 数量 from 赌博 where c='马' and f=true")
dars=tmprs("数量")
rs.close
set rs=nothing
conn.close
set conn=nothing

%>
<link rel="stylesheet" href="READONLY/STYLE.CSS" type="text/css">
<title>世纪在线跑马</title><body bgcolor="<%=chatbgcolor%>">
<form method="post" action="horseok.asp" target="d">
  <table width="102%" border="0" cellspacing="2" cellpadding="2" align="center" bgcolor="#FFCC00">
    <tr align="center" bgcolor="#FFCC66"> 
      <td><font face="隶书" size="4">世纪在线跑马</font></td>
</tr>

<tr align="center"> 
      <td height="3">
        <select name="1111111">
          <option selected>&nbsp;&nbsp;&nbsp;&nbsp;下&nbsp;注&nbsp;名&nbsp;单&nbsp;&nbsp;</option>
         <%=xzmd%>
        </select>
        <br>
        现在还有<%=(10-dars)%>个开马!</td>
</tr>
<tr align="center"> 
<td> 
<select name="money">
<option value="500000" selected>50万</option>
<option value="1000000">100万</option>
<option value="2000000">200万</option>
<option value="3000000">300万</option>
<option value="4000000">400万</option>
<option value="5000000">500万</option>
</select>
</td>
</tr>
<tr align="center"> 
<td>选择号码</td>
</tr>
<tr align="center"> 
<td> 
<input type="radio" name="radiobutton" value="1" checked>
<img src="horse/1.GIF" width="36" height="35"> <br>
<input type="radio" name="radiobutton" value="2">
<img src="horse/2.GIF" width="36" height="35"><br>
<input type="radio" name="radiobutton" value="3">
<img src="horse/3.GIF" width="36" height="35"><br>
<input type="radio" name="radiobutton" value="4">
<img src="horse/4.GIF" width="36" height="35"><br>
<input type="radio" name="radiobutton" value="5">
<img src="horse/5.GIF" width="36" height="35"><br>
      </td>
</tr>
<tr align="center"> 
<td> 
<input type="submit" name="Submit" value="确定">
<input type="button" name="Submit2" value="返回" onClick=this.document.location.href='f3.asp'>
</td>
</tr>
<tr align="center"> 
<td>最小投注额为<font color="red">50</font>万<br>
        最大投注额为<font color="red">500</font>万<br>
        下注够10人自动开奖</td>
</tr>
</table>
</form>