www.gusucode.com > 凡人网络购物系统 2008源码程序 > Admin/ad_tjclear.asp
<!--#include file="tj_config.asp"--><html><head><meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta http-equiv="Content-Language" content="zh-cn">
<link rel="stylesheet" type="text/css" href="inc/css.css"></head>
<body topmargin=5 rightmargin=0 leftmargin=0 vlink=#000000>
<%
if Request.Cookies("venshop")("admin_class")<>0 then
response.write "你没有这个权限!"
response.end
end if
%>
<%set conn=server.createobject("adodb.connection")
DBPath = Server.MapPath(connpath)
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
if request("action")="del" then
Response.Cookies(mNameEn)("lao")=0
conn.execute("delete * from view")
Set rs=Server.CreateObject("ADODB.Recordset")
rs.open "Select * from vjian",conn,1,3
rs("today")=1
rs("yesterday")=0
rs("vtop")=1
rs("starttime")=date()
rs("vdate")=date()
rs.update
rs.close
set rs=nothing
vyear=year(now())
vmonth=month(now())
vday=day(now())
vhour=hour(now())
vtime=now()
vweek=weekday(now())
vsoft="Other"
vOs="Other"
vip="127.0.0.1"
vwhere="other"
vwheref="凡人网络"
vcome="www.venshop.com"
vpage="www.venshop.com"
vwidth=Request("screenwidth")
Set rs=Server.CreateObject("ADODB.Recordset")
rs.open "Select * from view",conn,1,3
rs.addnew
rs("vyear")=vyear
rs("vmonth")=vmonth
rs("vday")=vday
rs("vhour")=vhour
rs("vtime")=vtime
rs("vweek")=vweek
rs("vip")=vip
rs("vwhere")=vwhere
rs("vwheref")=vwheref
rs("vcome")=vcome
rs("vpage")=vpage
rs("vsoft")=vsoft
rs("vos")=vos
rs("vwidth")=vwidth
rs.update
rs.close
set rs=nothing
conn.Close
set conn=nothing
Response.Write "<script language=javascript>alert('数据清理成功，点击确定返回');window.location.href='ad_tj.asp';</script>"
response.End
end if%><!--#include file="tj_top.asp"--><br><table width="500" cellspacing="0" align="center" cellpadding="0" border="0">
<tr><td colspan="4"><img src="img/photoup.gif"></td></tr>
<tr height="30">
<td width="1" class="backs"></td>
<td colspan="2" width="489"class="backq">
<img src="img/tb_title.gif" align=absmiddle> ∷∷∷ 总 体 数 据 ∷∷∷
</td>
<td width="1" class="backs"></td>
</tr>
<tr height="50">
<td width="1" class="backs"></td>
<td class="backq" valign=top>
<p style="line-height: 140%; margin-left: 25; margin-right: 0; margin-top: 10; margin-bottom: 5" align=left>
清除所有历史统计数据（不可恢复，建议先备份数据）<br>
返回 <a href="ad_tjclear.asp?action=del" onClick="return confirm('您确定清除统计数据吗，该操作无法恢复？')">确认清除</a></td>
<td width="1" class="backs"></td>
</tr>
<tr><td colspan="4"><img src="img/photodown.gif"></td></tr>
</table>
<br>
<!--#include file="tj_bottom.asp"-->
</body>
</html>