ASP Accessデータのバックアップ、リストア、圧縮クラスの実装コードを参照できます。 <!--#include file=config.asp -->
<!--#include file=Fun.asp -->
<%
'データベース管理クラス
クラスデータ
'バックアップ
パブリックサブBk()
fso=server.createobject(scripting.filesystemobject) を設定します。
fso.CopyFile Server.MapPath(SiteDataPath),Server.MapPath(SiteDataBakPath)
fso=何も設定しない
response.Write(<script language=javascript><!--
alert('バックアップ成功!');window.location.href='DataManage.asp'
// --></script>)
エンドサブ
'削減
パブリックサブRt()
SDPath = サーバー.マップパス(SiteDataPath)
SDBPath = サーバー.マップパス(SiteDataBakPath)
set Fso=Server.CreateObject(Scripting.FileSystemObject)
Fso.FileExists(SDBPath) の場合
Fso.CopyFile SDBPath,SDPath
Fso=nothing を設定します
response.Write(<script language=javascript><!--
alert('成功: データベースは正常に復元されました!');window.location.href='DataManage.asp?action=rt'
// --></script>)
それ以外
response.Write(<script language=javascript><!--
alert('失敗: パスとデータベース名が存在するかどうかを確認してください');window.location.href='DataManage.asp?action=rt'
// --></script>)
終了する場合
エンドサブ
'圧縮
パブリックサブDc()
SDBPath = サーバー.マップパス(SiteDataBakPath)
set Fso=Server.CreateObject(Scripting.FileSystemObject)
Fso.FileExists(SDBPath) の場合
エンジンを設定 =Server.CreateObject(JRO.JetEngine)
request(boolIs) = 97 の場合
Engine.CompactDatabase Provider=Microsoft.Jet.OLEDB.4.0;データ ソース= & SDBPath, _
プロバイダー = Microsoft.Jet.OLEDB.4.0; データ ソース = & SDBPath & _temp.mdb _
& Jet OLEDB:エンジン タイプ= & JET_3X
それ以外
Engine.CompactDatabase Provider=Microsoft.Jet.OLEDB.4.0;データ ソース= & SDBPath, _
プロバイダー = Microsoft.Jet.OLEDB.4.0;データ ソース = & SDBPath & _temp.mdb
終了する場合
Fso.CopyFile SDBPath & _temp.mdb,SDBPath
Fso.DeleteFile(SDBPath & _temp.mdb)
Fso = 何も設定しない
エンジン = 何も設定しない
response.Write(<script language=javascript><!--
alert('成功: データベースは正常に圧縮されました!');window.location.href='DataManage.asp?action=dc'
// --></script>)
それ以外
response.Write(<script language=javascript><!--
alert('失敗: データベースの圧縮に失敗しました。パスとデータベース名が存在するかどうかを確認してください!'); window.location.href='DataManage.asp?action=dc'
// --></script>)
終了する場合
エンドサブ
終了クラス
%>