<!--#include file="../inc.asp"-->
<!--#include file="../ydzq.asp"-->
<!--#include file="conn.asp"-->
<%'=============================
call head()
'该说明不会影响您的网站浏览速度和在您的网站中出现!
'谢谢!!!!!!!
'文件来源:龙门网WAP建站交友
'文件技术支持:WAP龙门网
'更多海量免费程序请访问
'wap.8ggg.net(龙门网WAP建站欢迎您!~~~
'==============================
call saycardd("苹果机管理")

if myid <> 1 then
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 "<a href='appleget.asp?sid="&sid&"&amp;saytk="&saytk&"'>苹果机基本设置</a><br/>"

Response.Write "<a href='appleset.asp?info=a&amp;sid="&sid&"&amp;saytk="&saytk&"'>清空苹果机记录</a><br/>"

Response.Write "<a href='appleset.asp?info=b&amp;sid="&sid&"&amp;saytk="&saytk&"'>清空网友压注记录</a><br/>"
Response.Write "<a href='appleset.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='appleset.asp?Action=ok&amp;info=a&amp;sid="&sid&"&amp;saytk="&saytk&"'>确定</a><br/>"
Response.Write "<a href='appleset.asp?sid="&sid&"&amp;saytk="&saytk&"'>取消</a><br/>"
call headsay()
Response.end 
end if
ydzqconn.Execute("delete from apple")
ydzqconn.Execute("delete from applelist")
'初始化
dim appletimes
  set rs=Server.CreateObject("ADODB.Recordset")
  rs.open"select appletimes from appleadmin where id=1",ydzqconn,1,1
if not rs.eof then
appletimes=rs(0)
end if
rs.close
set rs=nothing
dim newTimee
newTimee = DateAdd("n", appletimes, Now())
ydzqconn.execute("insert into apple(appletime)  values('"&newTimee&"')")
Response.Write "清空苹果机记录成功！"
Response.Write "<br/><a href='appleset.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='appleset.asp?Action=ok&amp;info=b&amp;sid="&sid&"&amp;saytk="&saytk&"'>确定</a><br/>"
Response.Write "<a href='appleset.asp?sid="&sid&"'>取消</a><br/>"
call headsay()
Response.end 
end if
ydzqconn.Execute("delete from applelist")
ydzqconn.Execute("delete from myapple")
Response.Write "清空网友苹果机记录成功！"
Response.Write "<br/><a href='appleset.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='appleset.asp?Action=ok&amp;info=c&amp;sid="&sid&"&amp;saytk="&saytk&"'>确定</a><br/>"
Response.Write "<a href='appleset.asp?sid="&sid&"'>取消</a><br/>"
call headsay()
Response.end 
end if
ydzqconn.execute("delete from winbbs")
Response.Write "清空评论记录成功！"
Response.Write "<br/><a href='index.asp?sid="&sid&"&amp;saytk="&saytk&"'>返回上级</a>"
end Sub
ydzqconn.close
set ydzqconn=nothing
conn.close
set conn=nothing
Response.Write "<br/><a href='index.asp?sid="&sid&"&amp;saytk="&saytk&"'>返回上级</a>"

%><br/>-------------

<!--#include file="../fanhui.asp"-->
<%call headsay()%>