<%
if Instr(","&voteAdmin&",",","&myid&",") > 0 then
else
call error("权限不足！")
end if
dim info
info=request("info")
Select Case info
Case "a"
Call a()
Case "b"
Call b()
Case "c"
Call c()
Case else
Call l()
end select
sub l()
Response.Write "清空排行榜记录
"
Response.Write "清空网友投注记录
"
Response.Write "清空开奖投注记录"
end sub
sub a()
dim action
action=request("action")
if action<>"ok" then
response.write"真的要清空排行榜？清空将无法恢复！"
Response.Write "
决定清空
"
Response.Write "取消清空
"
Response.Write "
"
Response.end
end if
ydzqconn.Execute("delete from YD_plist")
Response.Write "清空排行榜成功！"
end Sub
sub b()
dim action
action=request("action")
if action<>"ok" then
response.write"真的要清空网友投注记录？清空将无法恢复！"
Response.Write "
决定清空
"
Response.Write "取消清空
"
Response.Write ""
Response.end
end if
ydzqconn.Execute("delete from YD_vote")
Response.Write "清空网友投注记录成功！"
end Sub
sub c()
dim action
action=request("action")
if action<>"ok" then
response.write"真的要清空开奖投注记录？清空将无法恢复！"
Response.Write "
决定清空
"
Response.Write "取消清空
"
Response.Write ""
Response.end
end if
ydzqconn.Execute("delete from YD_info where id<>1")
Response.Write "清空开奖投注记录成功！"
end Sub
ydzqconn.close
set ydzqconn=nothing
conn.close
set conn=nothing
%>
---------------
[投注管理]