<!--#include file="inc.asp"-->
<!--#include file="conn.asp"-->
<card title="投注管理">
<p>
<%

dim id
id=request("id")
if id="" or Isnumeric(id)=false then
call error("ID无效！")
end if
set rs=Server.CreateObject("ADODB.Recordset")
  rs.open"select * from YD_vote where id=" & id & "  order by id desc",ydzqconn,1,1
if rs.eof then 
response.write "不存在的记录！"
Else
response.write ""&rs("balltime1")&" "
response.write ""&rs("balltitle")&"<br/>"

response.write ""&rs("ballvote1")&"("&rs("ballvotelu1")&")"
response.write ""&rs("ballvote")&""

response.write ""&rs("ballvote2")&"("&rs("ballvotelu2")&")<br/>"

response.write "小("&rs("balldxlu1")&")"
response.write ""&rs("balldx")&""

response.write "大("&rs("balldxlu2")&")<br/>"

response.write "单("&rs("balldslu1")&")"
response.write ""&rs("ballds")&""

response.write "双("&rs("balldslu2")&")<br/>"

dim voteCount,voteCount1
voteCount=ydzqconn.execute("Select count(ID) from YD_voteid where ballid="&rs("id"))(0)

response.write "当前共有"&voteCount&"注投入此投注<br/>"

if rs("ballresult1")<>"" and rs("ballresult2")<>"" then
response.write "开了结果：("&rs("ballresult1")&":"&rs("ballresult2")&")<br/>"
Response.Write "<a href='admin_ball_k.asp?id="&id&"&amp;saytk="&saytk&"&amp;sid="&sid&"'>编辑结果</a><br/>"
else
Response.Write "<a href='admin_ball_k.asp?id="&id&"&amp;saytk="&saytk&"&amp;sid="&sid&"'>开出结果</a><br/>"
end if
Response.Write "<a href='admin_ball_b.asp?id="&id&"&amp;saytk="&saytk&"&amp;sid="&sid&"'>编辑投注</a><br/>"
Response.Write "<a href='admin_ball_s.asp?id="&id&"&amp;saytk="&saytk&"&amp;sid="&sid&"'>删除投注</a><br/>"
end if
rs.close
set rs=nothing
ydzqconn.close
set ydzqconn=nothing
conn.close
set conn=nothing
%>-------------
<!--#include file="fanhui.asp"-->
</p></card>
</wml>