<%Call Head()%>
<%
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_jd")
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 talk")
Response.Write "清空历史投注记录成功！"
end Sub
ydzqconn.close
set ydzqconn=nothing
conn.close
set conn=nothing
%>
-------------