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

dim action,ID
ID=request("ID")
if id="" or IsNumeric(id)=False then
call error("ID无效！")
end if
action=request("action")
if action<>"ok" then
response.write"真的要清空排行榜？清空将无法恢复！"
Response.Write "<br/><a href='dellist.asp?Action=ok&amp;ID="&ID&"&amp;info=a&amp;saytk="&saytk&"&amp;sid="&sid&"'>决定清空</a><br/>"
Response.Write "<a href='tmedit.asp?ID="&id&"&amp;saytk="&saytk&"&amp;sid="&sid&"'>取消清空</a><br/>"
Response.Write "</p></card></wml>"
Response.end 
end if
if id=1 then
call error("系统禁止删除ID1记录！")
end if

set rs=Server.CreateObject("ADODB.Recordset")
rs.Open "select ID from YD_info where id="&id,ydzqconn,1,3
if rs.eof then
rs.close
set rs=nothing
call error("不存在的记录！")
end if
rs.delete
rs.update()
rs.close
set rs=nothing
Response.Write "清空排行榜成功！"
ydzqconn.close
set ydzqconn=nothing
conn.close
set conn=nothing
%><br/>---------------<br/>
<a href="tmlist.asp?saytk=<%=saytk%>&amp;sid=<%=sid%>">[开奖记录]</a><br/>
<a href="adminvote.asp?saytk=<%=saytk%>&amp;sid=<%=sid%>">[投注管理]</a>
<!--#include file="fanhui.asp"-->
</p></card>
</wml>