<!--#include file="../inc.asp"-->
<!--#include file="../ydzq.asp"-->
<!--#include file="conn.asp"-->

<%'=============================
call head()
Call cardgame("删除投注",yanse12)

if Instr(","&ballAdmin&",",","&myid&",") > 0 Or keys=1 Or keys=2 then
else
call error("权限不足！")
end if
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;sid="&sid&"&amp;saytk="&saytk&"'>决定删除</a><br/>"
Response.Write "<a href='admin_ball.asp?sid="&sid&"&amp;saytk="&saytk&"'>取消删除</a><br/>"
call headsay()
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="fanhui2.asp"-->
<%call headsay()%>