📄 ad_tjclear.asp

📁 凡人网络购物系统 v8.0 中文版
💻 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>

<%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 "数据清理成功"
    response.write "<br>"
    response.write "<a href=# onClick=history.go(-1)><font color=#ff0000>返回</font></a>"
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">
		&nbsp; <img src="img/tb_title.gif" align=absmiddle> &nbsp;∷∷∷ 总 体 数 据 ∷∷∷ 
	</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>
		返回&nbsp;&nbsp; <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>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -