- <!--#include file="config.asp" -->
- <!--#include file="Fun.asp" -->
- <%
- '数据库管理类
- class Datas
- '备份
- public sub Bk()
- Set fso=server.createobject("scripting.filesystemobject")
- fso.CopyFile Server.MapPath(SiteDataPath),Server.MapPath(SiteDataBakPath)
- set fso=nothing
- response.Write("<script language=javascript><!--
- alert('备份成功!');window.location.href='DataManage.asp'
- // --></script>")
- end sub
- '还原
- public sub Rt()
- SDPath = server.mappath(SiteDataPath)
- SDBPath = server.mappath(SiteDataBakPath)
- set Fso=Server.CreateObject("Scripting.FileSystemObject")
- if Fso.FileExists(SDBPath) then
- Fso.CopyFile SDBPath,SDPath
- Set Fso=nothing
- response.Write("<script language=javascript><!--
- alert('成功:你已经成功恢复数据库!');window.location.href='DataManage.asp?action=rt'
- // --></script>")
- else
- response.Write("<script language=javascript><!--
- alert('失败:请检查路径和数据库名是否存在');window.location.href='DataManage.asp?action=rt'
- // --></script>")
- end if
- end sub
- '压缩
- public sub Dc()
- SDBPath = server.mappath(SiteDataBakPath)
- set Fso=Server.CreateObject("Scripting.FileSystemObject")
- if Fso.FileExists(SDBPath) then
- Set Engine =Server.CreateObject("JRO.JetEngine")
- if request("boolIs") = "97" then
- Engine.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & SDBPath, _
- "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & SDBPath & "_temp.mdb;" _
- & "Jet OLEDB:Engine Type=" & JET_3X
- else
- Engine.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & SDBPath, _
- "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & SDBPath & "_temp.mdb"
- end if
- Fso.CopyFile SDBPath & "_temp.mdb",SDBPath
- Fso.DeleteFile(SDBPath & "_temp.mdb")
- set Fso = nothing
- set Engine = nothing
- response.Write("<script language=javascript><!--
- alert('成功:数据库已经压缩成功!');window.location.href='DataManage.asp?action=dc'
- // --></script>")
- else
- response.Write("<script language=javascript><!--
- alert('失败:数据库压缩失败,请检查路径和数据库名是否存在!');window.location.href='DataManage.asp?action=dc'
- // --></script>")
- end if
- end sub
- end class
- %>
asp Access数据备份,还原,压缩类代码
2019-09-07 15:13脚本之家 ASP教程
asp Access数据备份,还原,压缩类实现代码,大家可以参考下。
延伸 · 阅读
- 2022-02-23Excel2003表格中如何导入ACCESS数据库实现数据快速
- 2022-02-22C# 操作 access 数据库的实例代码
- 2022-02-10c# 使用Entity Framework操作Access数据库的示例
- 2022-01-17C#如何将Access中以时间段条件查询的数据添加到
- 2021-12-27C#实现Access通用访问类OleDbHelper完整实例
- 2021-12-26如何让Windows 64位系统支持Access数据库?
精彩推荐
- ASP教程
ASP常用函数:getpy()
ASP常用函数:getpy()...
- ASP教程
ASP.NET 数据源
数据源 一个 data sourse 控件与数据绑定的控件相互作用,并隐藏了复杂的数据的联编过程。这些是提供数据给 data bound 控件的工具,并且支持如插入,删除...
- ASP教程
JScript中遍历Request表单参数集合的方法
这篇文章主要介绍了JScript中遍历Request表单参数集合的方法,本文以遍历Request.QueryString集合为例给出了实现代码,需要的朋友可以参考下...
- ASP教程
asp 标记字符串中指定字符变色不区分大小写
今天遇到这种问题,单纯的使用replace函数不行,他会改变原有的字符串的大小写,在网上找到相关的代码,自己备份下...
- ASP教程
asp+javascript实现404页的处理转换
asp+javascript实现404页的处理转换...
- ASP教程
asp之基于adodb.stream的文件操作类
asp之基于adodb.stream的文件操作类...
- ASP教程
asp 采集实战代码
最近实在是太流行采集了,本人是不喜欢采集的,但对采集的原理我却很有兴趣进行研究,拿到了网上采集常用函数,对其进行了一番研究,并实战,结果...
- ASP教程
asp Access数据备份,还原,压缩类代码
asp Access数据备份,还原,压缩类实现代码,大家可以参考下。...