ACCESS数据库的压缩,备份,还原,下载,删除的实现

代码如下:

<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>数据库管理</title>
</head>

<body>
<div align=center>数据库管理系统</div>
<br>
<br>
<p align="center">

<%
Dim ZC_DATABASE_PATH
'数据库的路径
ZC_DATABASE_PATH="database/data.mdb"

data_array= Split(ZC_DATABASE_PATH,"/")

Dim action
action=trim(request("action"))
Dim dbpath,bkfolder,bkdbname,fso,fso1

Select Case action
Case ""
Call chushihua()
Case "CompressData" '压缩数据
Dim tmprs
dim allarticle
dim Maxid
dim topic,username,dateandtime,body
call CompressData()
case "BackupData" '备份数据
if request("act")="Backup" Then
call updata()
else
call BackupData()
end If
case "RestoreData" '恢复数据
dim backpath
if request("act")="Restore" Then
Dbpath=request.form("Dbpath")
backpath=request.form("backpath")
if dbpath="" Then
response.write "Please input your database whole Name" 
else
Dbpath=server.mappath(Dbpath)
end If
backpath=server.mappath(backpath)

Set Fso=server.CreateObject("scripting.filesystemobject")
if fso.fileexists(dbpath) Then 
fso.copyfile Dbpath,Backpath
response.write "数据库被成功还原!<br>"
else
response.write "没找到您所需要的数据库!" 
end If
else
call RestoreData()
end If
Case "SpaceSize" '系统空间占用
call SpaceSize()
Case "deletebackup"
Dim dbname
dbpath=Request.QueryString("dbpath")
dbname=Request.QueryString("dbname")
dbpath=Server.MapPath(dbpath)
dbpath=dbpath &"\"&dbname
set fso = CreateObject("Scripting.FileSystemObject")
If fso.FileExists(dbPath) Then
fso.DeleteFile(DBPath)
Set fso = nothing
response.write "<br>您备份的数据库已经" & dbpath &"被成功删除!<br><br><a href=""data_s.asp"">返回..</a>"
Else
response.write dbpath 
response.write "<br>输入的路径错误,请确认后重新输入!<br><br><a href=""data_s.asp"">返回..</a>"
End If
Case Else
End Select

%>
</div>
<%
response.write"</body></html>"

Sub chushihua()
%>
<div align=center>
<form id="edit">
<br/>
<a href="?action=CompressData">[压缩数据库]</a>
<br/><br/><a href="?action=BackupData">[备份数据库]</a>
<br/><br/><a href="?action=RestoreData">[还原数据库]</a>
<br/><br/><a href="?action=SpaceSize">[系统空间占用]</a>
<br/><br/>
</form>
</div>
<%end sub%>

<%
'====================系统空间占用=======================
Sub SpaceSize()
On Error Resume Next
%>
<div align=center>
<div align=center>
系统空间查看
<br/><br/>
<form id="edit">
<br>
数据库:<%showSpaceinfo("../"&data_array(1)&"")%><br><br>
备份数据库:<%showSpaceinfo("databackup")%><br><br>
系统总共:<%showSpaceinfo("/")%>
<br><br>
</form>
</div>
<br >
<br >
<br >
<a href="data_s.asp">返回...</a>
</div> 
<%
End Sub
%>
<% Sub ShowSpaceInfo(drvpath)
dim fso,d,size,showsize
set fso=server.CreateObject("scripting.filesystemobject") 
drvpath=server.mappath(drvpath) 
set d=fso.getfolder(drvpath) 
size=d.size
showsize=size & " Byte" 
if size>1024 Then
size=(Size/1024)
showsize=size & " KB"
end If
if size>1024 Then
size=(size/1024)
showsize=formatnumber(size,2) & " MB" 
end If
if size>1024 Then
size=(size/1024)
showsize=formatnumber(size,2) & " GB" 
end If 
response.write "<font face=verdana>" & showsize & "</font>"
End Sub 
%>
<%
Sub RestoreData()
%>
<div align=center>
<div align=center>
<br/><...

赞 (0)

相关推荐

  • ACCESS数据库的压缩,备份,还原,下载,删除的实现

    复制代码 代码如下: <html> <head> <meta http-equiv="Content-Language" content="zh-cn"> <meta http-equiv="Content-Type" content="text/html; charset=gb2312"> <title>数据库管理</title> </head&g

  • sqlserver数据库高版本备份还原为低版本的方法

    sqlserver数据库高版本备份还原为低版本的方法

    问题描述:高版本sql备份在低版本sql还原问题(出现媒体簇的结构不正确) 分析原因:sql版本兼容问题,sql server兼容级别是用作向下兼容用,高版本的sql备份在低版本中不兼容 解决方法 : 1.通过管理器的脚本生成向导,把其他数据库 ,表,存储过程等对象的脚本生成,然后在低版本的sql server下执行建立这些对象.. 2.通过dts/ssis,将表中的数据导过去. 此处我们把第1种开发方法 做下详细介绍(以sql2008的其他数据库 还原到sql2005为例). 1.首先我们在s

  • 读取Access数据库的vbscript代码打包下载

    读取Access数据库的vbscript代码打包下载

    效果如图所示:核心代码: 复制代码 代码如下: Option Explicit Dim arrTables( ), i, idxTables, intValidArgs Dim blnContent, blnFieldNames Dim objConn, objFSO, objRS, objSchema Dim strConnect, strHeader, strOutput Dim strFile, strResult, strSQL, strTable Const adSchemaTable

  • asp.net 数据库备份还原(sqlserver+access)

    /********************************************************************************** * * 功能说明:备份和恢复SQL Server数据库 * 作者: 刘功勋; * 版本:V0.1(C#2.0);时间:2007-1-1 * 当使用SQL Server时,请引用 COM组件中的,SQLDMO.dll组件 * 当使用Access中,请浏览添加引用以下两个dll * 引用C:\Program Files\Common

  • Asp.net在线备份、压缩和修复Access数据库示例代码

    1.问题的提出 在设计中小型Web应用程序时,可以选择Microsoft Accesss为数据库.在数据库的使用过程中经常性进行增加和删除操作.事实上,Microsoft Access并不能有效地释放已分配的但被删除的对象空间,这将意味着即使你删除了一个对象,而这个对象仍然占据着数据库的空间,使得数据库越来越大.不但占用不必要的空间,而且降低了数据库的效率.特别在虚拟站点上的问题尤为突出.因此对Access数据库进行压缩瘦身很有实际意义. 虽然Access数据库自身具有"压缩和修复数据库&quo

  • MYSQL日志与备份还原问题详解

    MYSQL日志与备份还原问题详解

    本文为大家分享了MYSQL的日志与备份还原,供大家参考,具体内容如下 一.错误日志 当数据库出现任何故障导致无法使用时,第一时间先去查看该日志 1.服务器启动关闭过程中的信息 2.服务器运行过程中的错误信息 日志存放路径,可以通过命令查看: 日志文件命名格式:host_name.err 二.二进制日志 又称BINLOG,记录所有的DDL语句和DML语句,不包括查询语句.这个日志不仅非常重要,而且作为开发人员也非常喜欢这个日志.从它的定义可以看出,这个日志记录了所有会改变表结构和表数据的事件,所以

  • asp Access数据备份,还原,压缩类代码

    <!--#include file="config.asp" --> <!--#include file="Fun.asp" --> <% '数据库管理类 class Datas '备份 public sub Bk() Set fso=server.createobject("scripting.filesystemobject") fso.CopyFile Server.MapPath(SiteDataPath),

  • ACCESS数据库文件的压缩和修复方法[图文]

    ACCESS数据库文件的压缩和修复方法[图文]

    先谈谈DllHotst进程消耗cpu 100%的问题: 服务器正常CPU消耗应该在75%以下,而且CPU消耗应该是上下起伏的,出现这种问题的服务器,CPU会突然一直处100%的水平,而且不会下降.查看任务管理器,可以发现是DLLHOST.EXE消耗了所有的CPU空闲时间,管理员在这种情况下,只好重新启动IIS服务,奇怪的是,重新启动IIS服务后一切正常,但可能过了一段时间后,问题又再次出现了. 直接原因: 有一个或多个ACCESS数据库在多次读写过程中损坏, MDAC系统在写入这个损坏的ACCE

  • php数据库备份还原类分享

    复制代码 代码如下: <?php/** * 数据库备份还原类 * @author xialeistudio<admin@xialeistudio.net> * Class DatabaseTool */class DatabaseTool{ private $handler; private $config = array(  'host' => 'localhost',  'port' => 3306,  'user' => 'root',  'password' =

  • MySQL数据库如何导入导出（备份还原）

    MySQL数据库如何导入导出（备份还原）

    本文适用范围:全面阐述MySQL数据库的各种操作,分虚拟主机和服务器两种情况. 虚拟主机 1.通过PHPMyAdmin的导入导出功能,这个软件一般只支持几兆数据的导出,太大的数据可能会超时. 2.通过程序自带的数据库备份还原功能来操作,一些常见的PHP程序如DZ论坛等,后台都有数据库还原和备份的功能,方便我们转移空间数据. 3.如果您的数据库在朝暮数据购买,我们的管理面板支持一键备份和还原.点击备份按钮后,您可以到数据库对应的空间上通过FTP方式下载. 服务器或VPS 首先我们远程到服务器上(W

随机推荐