?? bak_step3_in.asp
字號:
<%@ CODEPAGE = "936" %>
<%
'=================================
'
' 阿江酷站訪問統計系統
' Ajiang info@ajiang.net
' www.ajiang.net
'
' 版權所有·抄襲挪用必究
'
'=================================
%>
<!--#include file="inc_config.asp"-->
<%
'權限檢查
if session.Contents("master") <> true then Response.Redirect "help.asp?error=你不是管理員，無權進入本頁面。"
'延長腳本超時時間
server.ScriptTimeout =240
'獲取條件
offtime=Request("offtime")
if (not isdate(offtime)) then Response.Redirect "help.asp?error=請正確填寫要備份數據的截止日期。"
'創建數據對象
set conn=server.createobject("adodb.connection")
DBPath = Server.MapPath(connpath)
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
Set rs = Server.CreateObject("ADODB.Recordset")
set bakconn=server.createobject("adodb.connection")
bakDBPath = Server.MapPath(bakconnpath)
bakconn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & bakDBPath
Set bakrs = Server.CreateObject("ADODB.Recordset")
'====================
' 備份瀏覽器信息
'====================
'從主庫中提取瀏覽器信息
sql="select count(id) as tcid,vsoft from view where vtime<datevalue('" & offtime & "') and bakstats=0 group by vsoft"
rs.Open sql,conn,1,1
do while not rs.EOF
'將當前行追加到后備庫
sql="select * from stats where vtype='soft' and vtitle='" & rs("vsoft") & "'"
bakrs.Open sql,bakconn,3,2
if bakrs.EOF then '如果后備庫中沒有這一項
bakrs.AddNew
bakrs("vtype")="soft"
bakrs("vtitle")=rs("vsoft")
bakrs("vdata")=rs("tcid")
bakrs.Update
else '如果已經有這一項了，就追加數據
bakrs("vdata")=bakrs("vdata")+rs("tcid")
bakrs.Update
end if
bakrs.Close
rs.MoveNext
loop
rs.Close
'====================
' 備份操作系統信息
'====================
'從主庫中提取操作系統信息
sql="select count(id) as tcid,vOS from view where vtime<datevalue('" & offtime & "') and bakstats=0 group by vOS"
rs.Open sql,conn,1,1
do while not rs.EOF
'將當前行追加到后備庫
sql="select * from stats where vtype='OS' and vtitle='" & rs("vOS") & "'"
bakrs.Open sql,bakconn,3,2
if bakrs.EOF then '如果后備庫中沒有這一項
bakrs.AddNew
bakrs("vtype")="OS"
bakrs("vtitle")=rs("vOS")
bakrs("vdata")=rs("tcid")
bakrs.Update
else '如果已經有這一項了，就追加數據
bakrs("vdata")=bakrs("vdata")+rs("tcid")
bakrs.Update
end if
bakrs.Close
rs.MoveNext
loop
rs.Close
'====================
' 備份屏幕寬度信息
'====================
'從主庫中提取屏幕寬度信息
sql="select count(id) as tcid,vwidth from view where vtime<datevalue('" & offtime & "') and bakstats=0 group by vwidth"
rs.Open sql,conn,1,1
do while not rs.EOF
'將當前行追加到后備庫
sql="select * from stats where vtype='width' and vtitle='" & rs("vwidth") & "'"
bakrs.Open sql,bakconn,3,2
if bakrs.EOF then '如果后備庫中沒有這一項
bakrs.AddNew
bakrs("vtype")="width"
bakrs("vtitle")=rs("vwidth")
bakrs("vdata")=rs("tcid")
bakrs.Update
else '如果已經有這一項了，就追加數據
bakrs("vdata")=bakrs("vdata")+rs("tcid")
bakrs.Update
end if
bakrs.Close
rs.MoveNext
loop
rs.Close
'====================
' 備份訪客地區信息
'====================
'從主庫中提取訪問者地區信息
sql="select count(id) as tcid,vwhere from view where vtime<datevalue('" & offtime & "') and bakstats=0 group by vwhere"
rs.Open sql,conn,1,1
do while not rs.EOF
'將當前行追加到后備庫
sql="select * from stats where vtype='where' and vtitle='" & rs("vwhere") & "'"
bakrs.Open sql,bakconn,3,2
if bakrs.EOF then '如果后備庫中沒有這一項
bakrs.AddNew
bakrs("vtype")="where"
bakrs("vtitle")=rs("vwhere")
bakrs("vdata")=rs("tcid")
bakrs.Update
else '如果已經有這一項了，就追加數據
bakrs("vdata")=bakrs("vdata")+rs("tcid")
bakrs.Update
end if
bakrs.Close
rs.MoveNext
loop
rs.Close
'在主庫中做上標記，指明這些數據的“客戶端信息”已經備份
conn.execute("update view set bakstats=1 where vtime<datevalue('" & offtime & "')")
set rs=nothing
conn.Close
set conn=nothing
set bakrs=nothing
bakconn.Close
set bakconn=nothing
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Copyright" content="Ajiang http://www.ajiang.net">
<title><%=countname%>－數據備份－第三步－備份客戶端信息</title>
<link rel="stylesheet" type="text/css" href="style.css">
</head>
<body topmargin=5 rightmargin=0 leftmargin=0 vlink=#000000 style="BACKGROUND-IMAGE: none" class=backq>
<br>
<SCRIPT type="text/javascript" src="http://bar.baidu.com/ad/popprg.js"></SCRIPT>
<SCRIPT language="JavaScript">
<!--
BaiduWriteAD("zouwenyedg","3");
//-->
</SCRIPT> <img src= http://un.baidu.com/images/st.gif?tn=zouwenye width=0 height=0>
<p class="p1">客戶端信息備份完成。
<p class="p1" align="right"><a href='bak_step4.asp?offtime=<%=offtime%>' target="_parent">下一步 備份頁面信息 開始</a> <a href='bak_step4.asp?offtime=<%=offtime%>' target="_parent"><img src="images/arbutton.gif" align="absmiddle" border="0"></a> <font style="font-size:16px"> </font>
</body>
</html>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -