<!-- #include file="conn.asp" -->
<!-- #include file="admin.asp" -->
<%call ling()
Call Head()
Call saycardd("统计清零")

IF KEY<>0 then
  Call Error("你的权限不足！")
  end if
dim p
p=trim(request.QueryString("p"))
if p<>"" then
  conn.Execute"delete from YD_Iprr where id<>1"
 

  conn.Execute"delete from YD_Counter"
 	            set rs=server.CreateObject("adodb.recordset")
				sql="select * from YD_Counter"
				rs.open sql,conn,1,2
				rs.addnew()
				rs("YD_Today")=1
				rs("YD_Counter")=1
				rs.update()
				Rs.close
				set rs=Nothing
				
conn.Execute"update YD_Counter set YD_Counter=0,YD_Yesterday=0,YD_Today=0,YD_Date='"&date()&"',YD_Yays=1,YD_Browser=0,YD_Tod=0,YD_Browsers=0"

    Response.Write "记录清空成功!<br/>"& chr(13) 
else
    Response.Write "注意:本操作将清空所有统计记录,确定要清空吗？<br/>"& chr(13) 
    Response.Write "<a href=""ipzero.asp?sid="&sid&"&amp;p=1&amp;saytk="&saytk&""">是,确定清空</a><br/>"& chr(13) 
    Response.Write "<a href=""YD_iprr.asp?sid="&sid&"&amp;saytk="&saytk&""">不,取消操作</a><br/>"& chr(13) 
end if
conn.close
set conn=nothing
%>
<a href="YD_iprr.asp?sid=<%=sid%>&amp;saytk=<%=saytk%>">[流量统计]</a><br/>
<a href="index.asp?sid=<%=sid%>&amp;saytk=<%=saytk%>">[后台管理]</a>
<%call headsay()%>
