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

dim id,action
id=request("id")
action=request("action")
if id="" or Isnumeric(id)=false then
call error("ID无效！")
end if
if action<>"ok" then
response.write"真的要删除此投注记录？如果删除已开奖的记录将会删除此历史比赛记录！"
Response.Write "<br/><a href='admin_ball_s.asp?Action=ok&amp;id="&id&"&amp;saytk="&saytk&"&amp;sid="&sid&"'>决定删除</a><br/>"
Response.Write "<a href='admin_ball.asp?saytk="&saytk&"&amp;sid="&sid&"'>取消删除</a><br/>"
Response.Write "</p></card></wml>"
Response.end 
end if
set rs=Server.CreateObject("ADODB.Recordset")
  rs.open"select * from YD_vote where id=" & id & "  order by id desc",ydzqconn,1,3
if rs.eof then 
response.write "不存在的记录！"
Else
rs.delete
rs.update
response.write "成功将该投注删除！"
end if
rs.close
set rs=nothing
ydzqconn.close
set ydzqconn=nothing
conn.close
set conn=nothing
%><br/>-------------
<!--#include file="fanhui.asp"-->
</p></card>
</wml>