"& chr(13) 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"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 "记录清空成功!
"& chr(13) else Response.Write "注意:本操作将清空所有统计记录,确定要清空吗？
"& chr(13) Response.Write "是,确定清空
"& chr(13) Response.Write "不,取消操作
"& chr(13) end if conn.close set conn=nothing %> [流量统计]
[后台管理]