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


<%


call head()
Call cardgame("清空纪录",yanse6)
if myid=1 then
else
call error("权限不足！")
end if
dim info
info=request("info")

Select Case info
	Case "a"   
		Call a()
	Case "b"  
		Call b()
	Case else
		Call l()
end select 

sub l()
Response.Write "<a href='adminwords.asp?info=a&amp;saytk="&saytk&"&amp;sid="&sid&"'>清空排行榜记录</a><br/>"

Response.Write "<a href='adminwords.asp?info=b&amp;saytk="&saytk&"&amp;sid="&sid&"'>清空网友吹牛记录</a>"

end sub

sub a()
dim action
action=request("action")
if action<>"ok" then
response.write"真的要清空排行榜？清空将无法恢复！"
Response.Write "<br/><a href='adminwords.asp?Action=ok&amp;info=a&amp;saytk="&saytk&"&amp;sid="&sid&"'>决定清空</a><br/>"
Response.Write "<a href='adminwords.asp?saytk="&saytk&"&amp;sid="&sid&"'>取消清空</a><br/>"
Response.Write "</p></card></wml>"
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 "<br/><a href='adminwords.asp?Action=ok&amp;info=b&amp;saytk="&saytk&"&amp;sid="&sid&"'>决定清空</a><br/>"
Response.Write "<a href='adminwords.asp?saytk="&saytk&"&amp;sid="&sid&"'>取消清空</a><br/>"
Response.Write "</p></card></wml>"
Response.end 
end if
ydzqconn.Execute("delete from YD_jd")
Response.Write "清空网友吹牛记录成功！"
end Sub


ydzqconn.close
set ydzqconn=nothing
conn.close
set conn=nothing
%><br/>---------------
<!--#include file="fanhui.asp"-->


<%
call headsay()
%>
