威凡网全力打造:网页编程、软件开发编程、平面设计、服务器端开发、操作系统等在线学习平台!学编程,上威凡网!
ASP教程>> ASP基础 应用技巧 数据库相关 ASP类 存储过程 FSO专栏 ASP其他
当前位置:首页 > ASP教程 > 数据库相关
上一节 下一节
 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),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
%>
申明:本教程内容由威凡网编辑整理并提供IT程序员分享学习,如文中有侵权行为,请与站长联系(QQ:254677821)!
上一节 下一节
相关教程  
其他教程  
ASP基础
应用技巧
数据库相关
ASP类
存储过程
FSO专栏
ASP其他

违法和不良信息举报中心】邮箱:254677821@qq.com
Copyright©威凡网 版权所有 苏ICP备2023020142号
站长QQ:254677821