<%@ CODEPAGE = "936" %> <% '================================= ' ' 阿江酷站访问统计系统 ' Ajiang info@ajiang.net ' www.ajiang.net ' ' 版权所有·抄袭挪用必究 ' '================================= %> <% '权限检查 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,vcome from view where vtime <%=countname%>-数据备份-第四步-备份页面信息

页面信息备份完成。

下一步 完成