databak_admin.asp

使用Asp+Access+FSO+Jmail+Servu开发

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

<link href="../css/admin.css" rel="stylesheet" type="text/css">
<table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">
  <tr> 
    <td align="center" valign="top"> <br> <strong><br>
      </strong> <table width="550" border="0" cellspacing="0" cellpadding="0">
        <tr> 
          <td height="25"> <div align="center"><strong><img src="images/backup.gif" width="150" height="40"></strong></div>
            <%
if request("action")="down" then
chk_admin_login(3)
call downloadFile(Request("path"))
end if
if request("action")="Backup" then
call backupdata()
else
%></td>
        </tr>
        <tr> 
          <form method="post" action="?action=Backup">
            <td><br> 
              <table width="80%" border="0" align="center" cellpadding="3" cellspacing="1" bgcolor="cccccc">
                <tr> 
                  <td height="25" bgcolor="eeeeee"><strong><font color="#FF0000">建议：</font>定期对数据库进行备份，并且下载存盘，以保证网站数据的安全</strong></td>
                </tr>
                <tr> 
                  <td height="22" bgcolor="#FFFFFF"> 当前数据库路径</td>
                </tr>
                <tr> 
                  <td height="22" bgcolor="#FFFFFF">
<input type=text size=50 name=DBpath value="<%=db%>"></td>
                </tr>
                <tr> 
                  <td height="22" bgcolor="#FFFFFF"> 备份数据库目录[如目录不存在，程序将自动创建]</td>
                </tr>
                <tr> 
                  <td height="22" bgcolor="#FFFFFF">
<input type=text size=50 name=bkfolder value=databackup></td>
                </tr>
                <tr> 
                  <td height="22" bgcolor="#FFFFFF">备份数据库名称[如备份目录有该文件，将覆盖，如没有，将自动创建]</td>
                </tr>
                <tr> 
                  <td height="22" bgcolor="#FFFFFF">
<input type=text size=30 name=bkDBname value=databak.asp></td>
                </tr>
                <tr> 
                  <td height="22" bgcolor="#FFFFFF">
<div align="center"> 
                      <input type=submit value="确定">
                    </div></td>
                </tr>
                <tr> 
                  <td height="22" bgcolor="#FFFFFF">
                    本程序的默认数据库路径为<%=db%><br>
                    您可以用这个功能来备份您的数据，以保证您的数据安全！</td>
                </tr>
                <tr> 
                  <td height="22" bgcolor="#FFFFFF">&nbsp;</td>
                </tr>
              </table></td>
          </form>
        </tr>
      </table>
      <%end if%>
      <% 
sub backupdata() 
Dbpath=request.form("Dbpath") 
Dbpath=server.mappath(Dbpath) 
bkfolder=request.form("bkfolder") 
bkdbname=request.form("bkdbname") 
Set Fso=server.createobject("scripting.filesystemobject") 
if fso.fileexists(dbpath) then 
If CheckDir(bkfolder) = True Then 
fso.copyfile dbpath,bkfolder& "\"& bkdbname 
else 
MakeNewsDir bkfolder 
fso.copyfile dbpath,bkfolder& "\"& bkdbname 
end if 
response.write "备份数据库成功，您备份的数据库所在服务器路径为：<br>"&bkfolder&"\"&bkdbname&"<br><a href=?action=down&path="&bkfolder&"\"&bkdbname&">下载数据库</a>" 
Else 
response.write "找不到您所需要备份的文件。" 
End if 
end sub 
'------------------检查某一目录是否存在------------------- 
Function CheckDir(FolderPath) 
folderpath=Server.MapPath(".")&"\"&folderpath 
Set fso1 = CreateObject("Scripting.FileSystemObject") 
If fso1.FolderExists(FolderPath) then 
'存在 
CheckDir = True 
Else 
'不存在 
CheckDir = False 
End if 
Set fso1 = nothing 
End Function 
'-------------根据指定名称生成目录--------- 
Function MakeNewsDir(foldername) 
Set fso1 = CreateObject("Scripting.FileSystemObject") 
Set f = fso1.CreateFolder(foldername) 
MakeNewsDir = True 
Set fso1 = nothing 
End Function 
function downloadFile(strFile)
	strFilename = strFile

	Response.Buffer = True
	Response.Clear
	
	Set s = Server.CreateObject("ADODB.Stream")
	s.Open
	
	s.Type = 1
	
	on error resume next
	
	
	Set fso = Server.CreateObject("Scripting.FileSystemObject")
	if not fso.FileExists(strFilename) then
		Response.Write("<h1>Error:</h1>文件"&strFilename&"没有找到<p>")
		Response.End
	end if
	
	
	Set f = fso.GetFile(strFilename)
	intFilelength = f.size
	
	
	s.LoadFromFile(strFilename)
	if err then
		Response.Write("<h1>Error: </h1>" & err.Description & "<p>")
		Response.End
	end if
	
	Response.AddHeader "Content-Disposition", "attachment; filename=" & f.name
	Response.AddHeader "Content-Length", intFilelength
	Response.CharSet = "UTF-8"
	Response.ContentType = "application/octet-stream"
	
	Response.BinaryWrite s.Read
	Response.Flush
	
	
	s.Close
	Set s = Nothing
	
	
End Function
%></td>
  </tr>
</table>