asp的access数据库备份 压缩 恢复及清理数据库函数
作者:cloudgamer 来源:cloudgamer博客 发布时间:2008-10-31 12:36:00
标签:备份,压缩,恢复,access,数据库
本文介绍了4个asp数据库管理中常用到的access数据库操作程序,一般的网站管理后台都提供了这个功能,方便管理员对数据库数据的管理维护。
1.备份access数据库
sub ad_backupdata()
on error resume next
bkfolder = server.MapPath("../mdbackup/")
bkpath = bkfolder&"\"&year(now)&"-"&month(now)&"-"&day(now)&".asp"
dbpath = Server.MapPath("../mdbdate/company.mdb")
Set Fso=server.createobject("scripting.filesystemobject")
if Err <> 0 Then
response.write "该空间不支持FSO组件,操作失败"
else
if fso.FileExists(dbpath) then
If fso.FolderExists(bkfolder)=false Then fso.CreateFolder(bkfolder)
fso.copyfile dbpath,bkpath
response.write "备份数据库成功"
Else
response.write "找不到数据库文件"
End if
end if
end sub
2、access数据库压缩
sub ad_compactdata()
on error resume next
dbpath = Server.MapPath("../mdbdate/company.mdb")
cdpath = server.MapPath("../mdbdate/")&"\temp.mdb"
Set fso = Server.CreateObject("Scripting.FileSystemObject")
if Err <> 0 Then
response.write "该空间不支持FSO组件,操作失败"
else
If fso.FileExists(dbPath) Then
Set Engine = CreateObject("JRO.JetEngine")
set conn=nothing
Engine.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbpath," Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & cdpath
fso.CopyFile cdpath,dbpath
fso.DeleteFile(cdpath)
Set fso = nothing
Set Engine = nothing
response.write "数据库压缩成功"
Else
response.write "找不到数据库文件"
End If
end if
end sub
3、恢复access数据库
sub ad_restore()
on error resume next
backname=request.form("backname")
if backname="" then
response.write "请指定的备份文件名"
else
backpath=server.MapPath("../mdbackup/")&"\"&backname
Set Fso=server.createobject("scripting.filesystemobject")
if Err <> 0 Then
response.write "该空间不支持FSO组件,操作失败"
else
if fso.fileexists(backpath) then
fso.copyfile backpath,Server.MapPath("../mdbdate/company.mdb")
response.write "成功恢复数据库"
else
response.write "找不到指定的备份文件"
end if
end if
end if
end sub
4、清理备份数据库
sub ad_deldata()
on error resume next
delpath=server.MapPath("../mdbackup/")
Set Fso=server.createobject("scripting.filesystemobject")
if Err <> 0 Then
response.write "该空间不支持FSO组件,操作失败"
else
fso.deletefolder(delpath)
if Err <> 0 Then
response.write "清理失败或没找到文件"
else
response.write "成功清理备份数据库"
end if
end if
end sub
0
投稿
猜你喜欢
- 去空格及特殊符号s.strip().lstrip().rstrip(',')Python strip() 方法用于移除字符串
- 单个表的删除:DELETE FROM tableName WHERE columnName = value;删除表内的所有行:即:保留表的结
- 前言 本篇文章介绍一下 Pycharm 如何配置远程连接信息,使其能够在本地使用服务器上的GPU等硬件资源,并在本地完成代码的运行与调试。
- 1 什么是服务端渲染 SSRserver side render就是通过后端吐模板,而不是通过前端ajax获取数据,拼接字符串。2 为什么需
- 本文实例讲述了JavaScript导出Excel的方法。分享给大家供大家参考。具体实现方法如下:<html xmlns="h
- 在程序的开发过程中,处理分页是大家接触比较频繁的事件,因为现在软件基本上都是与数据库进行挂钩的。但效率又是我们所追求的,如果是像原来那样把所
- 怎样编制留言簿程序呢?留言簿程序并不难,有很多选择可以实现,如CGI程序等等。本文介绍怎样用JavaScript编制留言簿程序,下面是一个完
- 本文实例为大家分享了python实现自动下载sftp文件的具体代码,供大家参考,具体内容如下实现功能:利用python自动连接sftp,并下
- 线程Threading用于提供线程相关的操作。线程是应用程序中工作的最小单元,它被包含在进程之中,是进程中的实际运作单位。一条线程指的是进程
- Vue动态创建组件实例并挂载到body方式一import Vue from 'vue'/** * @param Compon
- 前言有些时候我们在父类中使用了 self.tr('XXX'),使用 Qt Linguist 完成翻译并导出 qm 文件后,发
- 今儿继续做项目,学习了Django的forms生成前端的代码。forms.pyclass SignupForm(forms.Form): &
- 一、os模块os.getcwd() 获取当前的工作目录os.chdir(‘绝对路径/相对于当前工作目录的路径&r
- 1、重装后启动mysql服务,提示 本地计算机无法启动 mysql 服务 错误 1067:进程意外终止。2、查看mysql根目录下有一 计算
- 在flask中可以像go和angular那样使用页面模版(template),可以将HTML页面显示进行模版化,通过参数传递与页面进行数据交
- 摘要在Nginx和uWSGI还没配置时,单独在url.py使用apscheduler设置定时任务,使用python manage.py ru
- 1、设置更改root密码查看mysql 启动与否,若没启动就运行:/usr/local/mysql56/bin/mysqlps aux |g
- 判断汉字if (System.Text.Encoding.GetEncoding("gb2312").GetBytes(
- 本文实例讲述了Python在字典中将键映射到多个值上的方法。分享给大家供大家参考,具体如下:问题:一个能将键(key)映射到多个值的字典(即
- 为了让某个数据结构能够在网络上传输或能够保存至文件,它必须被编码然后再解码。当然已经有许多可用的编码方式了,比如 JSON、XML、Goog