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

<%call head()
Call saycarda("富翁工厂管理")
   set rs=Server.CreateObject("ADODB.Recordset")
  rs.open"select top 1 id from users order by id",conn,1,1
if myid<>rs("id") then
call error("权限不足！")
end if
 rs.close
 set rs=nothing
dim info
info=request("info")

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

sub l()

Response.Write "<a href='winerget.asp?sid="&sid&"&amp;saytk="&saytk&"'>富翁工厂设置</a><br/>"

Response.Write "<a href='winerset.asp?info=a&amp;sid="&sid&"&amp;saytk="&saytk&"'>重置富翁工厂</a><br/>"

Response.Write "<a href='winerset.asp?info=d&amp;sid="&sid&"&amp;saytk="&saytk&"'>清空网友评论</a><br/>"

Response.Write "<a href='winerset.asp?info=b&amp;sid="&sid&"&amp;saytk="&saytk&"'>清空压注记录</a><br/>"

Response.Write "<a href='winerset.asp?info=c&amp;sid="&sid&"&amp;saytk="&saytk&"'>清空排行榜记录</a>"

end sub

sub a()
dim action
action=request("action")
if action<>"ok" then
response.write"真的要重置富翁工厂？重置将无法恢复！"
Response.Write "<br/><a href='winerset.asp?Action=ok&amp;info=a&amp;sid="&sid&"&amp;saytk="&saytk&"'>确定</a><br/>"
Response.Write "<a href='winerset.asp?sid="&sid&"&amp;saytk="&saytk&"'>取消</a><br/>"
Response.Write "<a href=""index.asp?sid="&sid&"&amp;saytk="&saytk&""">返回富翁</a>"
call head1
Response.end 
end if
ydzqconn.Execute("delete from winer")
ydzqconn.execute("delete from winerlist")
ydzqconn.execute("delete from winbbs")
Dim sss
randomize timer
sss=left(Int((9999)*Rnd +1000),3)
  set rs=Server.CreateObject("ADODB.Recordset")
  rs.open"select  wincent from winerAdmin where id=1000",ydzqconn,1,1
if not rs.eof then
wincent=rs(0)
end if
rs.close
set rs=nothing
ydzqconn.execute("insert into winer(winnum,cent)  values("&sss&",'"&abs(int(wincent))&"')")
Response.Write "重置富翁工厂成功！"
Response.Write "<br/><a href='winerset.asp?sid="&sid&"&amp;saytk="&saytk&"'>返回上级</a>"
end Sub

sub b()
dim action
action=request("action")
if action<>"ok" then
response.write"真的要清空网友压注记录？清空将无法恢复！"
Response.Write "<br/><a href='winerset.asp?Action=ok&amp;info=b&amp;sid="&sid&"&amp;saytk="&saytk&"'>确定</a><br/>"
Response.Write "<a href='winerset.asp?sid="&sid&"&amp;saytk="&saytk&"'>取消</a><br/>"
Response.Write "<a href=""index.asp?sid="&sid&"&amp;saytk="&saytk&""">返回富翁</a>"
call head1
response.end
end if
ydzqconn.execute("delete from winerlist")
Response.Write "清空网友压注记录成功！"
Response.Write "<br/><a href='winerset.asp?sid="&sid&"&amp;saytk="&saytk&"'>返回上级</a>"
end Sub


sub c()
dim action
action=request("action")
if action<>"ok" then
response.write"真的要清空排行榜记录？清空将无法恢复！"
Response.Write "<br/><a href='winerset.asp?Action=ok&amp;info=c&amp;sid="&sid&"&amp;saytk="&saytk&"'>确定</a><br/>"
Response.Write "<a href='winerset.asp?sid="&sid&"&amp;saytk="&saytk&"'>取消</a><br/>"
Response.Write "<a href=""index.asp?sid="&sid&"&amp;saytk="&saytk&""">返回富翁</a>"
call head1
response.end
end if
ydzqconn.execute("delete from winuslist")
Response.Write "清空排行榜记录成功！"
Response.Write "<br/><a href='winerset.asp?sid="&sid&"&amp;saytk="&saytk&"'>返回上级</a>"
end Sub

sub d()
dim action
action=request("action")
if action<>"ok" then
response.write"真的要清空评论记录？清空将无法恢复！"
Response.Write "<br/><a href='winerset.asp?Action=ok&amp;info=d&amp;sid="&sid&"&amp;saytk="&saytk&"'>确定</a><br/>"
Response.Write "<a href='winerset.asp?sid="&sid&"&amp;saytk="&saytk&"'>取消</a><br/>"
Response.Write "<a href=""index.asp?sid="&sid&"&amp;saytk="&saytk&""">返回富翁</a>"
call head1
response.end
end if
ydzqconn.execute("delete from winbbs")
Response.Write "清空评论记录成功！"
Response.Write "<br/><a href='winerset.asp?sid="&sid&"&amp;saytk="&saytk&"'>返回上级</a>"
end Sub
ydzqconn.close
set ydzqconn=nothing
conn.close
set conn=nothing
%><br/>-------------
<!--#include file="fanhui.asp"-->
<%Call headsay()%>  