date_back.asp

网站源码

<%@ codepage = 936 LCID = 2052 %>
<% if Session("exemple_status") <> "login" then response.redirect "login.asp" %>
<%
Response.expires = 0
Response.expiresabsolute = Now() - 1
Response.addHeader "pragma", "no-cache"
Response.addHeader "cache-control", "private"
Response.CacheControl = "no-cache"
%>
<!--#include file="db.asp"-->

<%
set conn = Server.CreateObject("ADODB.Connection")
conn.Open xDb_Conn_Str

path1=Server.MapPath("database.asa")
path2=Server.MapPath("backup/")&"/"
if len(Request.QueryString("id")) then
id= Request.QueryString("id")

else
id=0
end if
set myfile = Server.CreateObject("scripting.filesystemobject")
if id <> 0 then

myfile.copyfile path1,path2&"backup"&id&".mdb"
  
 conn.execute("update backupdate set backupdate=date() where id="&request("id"))
end if
if myfile.fileexists(path2&"/backup1.mdb") then
b1="已有备份"
set rs = Server.CreateObject("adodb.recordset")
rs.open "select *  from backupdate where id=1",conn,1,1
date1=rs("backupdate")
rs.close:set rs=nothing
else
b1="无备份"
end if
if myfile.fileexists(path2&"/backup2.mdb") then
b2="已有备份"
set rs = Server.CreateObject("adodb.recordset")
rs.open "select *  from backupdate where id=2",conn,1,1
date2=rs("backupdate")
rs.close:set rs=nothing
else
b2="无备份"
end if
if myfile.fileexists(path2&"/backup3.mdb") then
b3="已有备份"
set rs = Server.CreateObject("adodb.recordset")
rs.open "select *  from backupdate where id=3",conn,1,1
date3=rs("backupdate")
rs.close:set rs=nothing
else
b3="无备份"
end if



%>

<!--#include file="header.asp"-->

<table width="100%" border="0" cellspacing="0" cellpadding="0" bgcolor="#336699"><tr>
                <td>&nbsp; </td>
              </tr></table>
            <table width="625" height="426" border="0" cellpadding="0" cellspacing="0">
              <tr>
                <td valign="top"><br>
                  <table width="523" height="360" border="0" align="center" cellpadding="0" cellspacing="0">
                    <tr>
                      <td valign="top"><table width="100%" height="104" border="0" cellpadding="0" cellspacing="0">
                          <tr> 
                            <td height="31"><strong><img src="images/backup.gif" width="150" height="40"></strong></td>
                          </tr>
                          <tr>
                            <td height="32">
                              <p align="center"><strong>本功能正在开发中</strong></p>
                            </td>
                          </tr>
                        </table> 
                      </td>
                    </tr>
                  </table> </td>
  </tr>
</table>


<!--#include file="footer.asp"-->