<%=countname%>－数据备份－第二步

<%@ CODEPAGE = "936" %> <% '================================= ' ' 阿江酷站访问统计系统 ' Ajiang info@ajiang.net ' www.ajiang.net ' ' 版权所有·抄袭挪用必究 ' '================================= %> <% '权限检查 if session.Contents("master") <> true then Response.Redirect "help.asp?error=你不是管理员，无权进入本页面。" '获取条件 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 'conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DBPath 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") '从主库中提取每日访问量 Set rs = Server.CreateObject("ADODB.Recordset") sql="select count(id) as tcid,datevalue(vtime) as tdate from view where vtime" '将当前行追加到后备库 sql="select * from days where datevalue(tdate)=datevalue('" & tdate & "')" bakrs.Open sql,bakconn,3,2 if bakrs.EOF then '如果后备库中没有这一天 bakrs.AddNew bakrs("tdate")=tdate bakrs("tview")=tcid bakrs("tip")=tcip bakrs.Update else '如果已经有这一天了，就追加数据 bakrs("tview")=bakrs("tview")+tcid bakrs("tip")=bakrs("tip")+tcip bakrs.Update end if bakrs.Close '将当前日期的记录标记为已备份 conn.execute("update view set bakdays=1 where datevalue(vtime)=datevalue('" & tdate & "')") rs.MoveNext next set tmprs=nothing rs.Close set rs=nothing conn.Close set conn=nothing set bakrs=nothing bakconn.Close set bakconn=nothing %> <%=countname%>－数据备份－第二步－备份每日数据 <%if bakok=false then%><%end if%>
<%if bakok then%>

每日数据备份完成。

下一步备份客户端信息开始 <%else%> 页面每自动刷新一次转换2天的数据，每次刷新的时间大约是2～30秒，根据数据量大小有所不同。如果超过这个时间还没有自动刷新，请点击这里。 <%end if%>