<%
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 "
决定清空
"
Response.Write "取消清空
"
Response.Write "
"
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
%>
---------------
[开奖记录]
[投注管理]