SQL サーバー データベースの ASP オンライン バックアップとリカバリは、リモート SQL サーバー リモート接続やパッケージ ダウンロードを提供していない友人のための一時的な解決策です。ビッグ データには効果的ではない可能性があります。 ASPオンラインバックアップSQLサーバーデータベース：
1.SQLサーバーをバックアップする
次のようにコードをコピーします。
<%
SQL=ディスクへのデータベースのデータベース名='&Server.MapPath(backup)&/&backuptext.dat&'
set cnn=Server.createobject(adodb.connection)
cnn.open driver={SQL Server};Server=サーバー名;uid=sa;pwd=
cnn.SQL を実行する
エラー時は次から再開
err<>0 の場合
response.wrITe エラー:&err.説明中
それ以外
response.wrITe データのバックアップが成功しました!
終了する場合
%>
2. SQLサーバーを復元する
次のようにコードをコピーします。
<%
SQL=ディスクからデータベースのデータベース名を復元='&Server.MapPath(backup)&/&backuptext.dat&'
set cnn=Server.createobject(adodb.connection)
cnn.open driver={SQL Server};Server=サーバー名;uid=sa;pwd=
cnn.SQL を実行する
エラー時は次から再開
err<>0 の場合
response.wrITe エラー:&err.説明中
それ以外
response.wrITe データ回復に成功しました!
終了する場合
%>
ACCESSの原理は同じ
次のようにコードをコピーします。
<%
「****************************************
関数 CopyTo(ByVal cFile,ByVal toFile)
cFile=Server.MapPath(cFile) 'バックアップするファイル
toFile=Server.MapPath(toFile) 'バックアップファイル
薄暗い cFso,cf
set cFso=Server.CreateObject(Scripting.FileSystemObject)
cFso.fileexists(cFile)
cFso.Copyfile cFile,toFile
終了関数
「************************************************
'ASP は ACCESS データベース操作のバックアップと復元を実装します
'このページはdatabackup.aspです
dim dbpath、bkfolder、bkdbname、fso、fso1
main()を呼び出す
main2()を呼び出す
接続閉じる
conn=何も設定しない
サブメイン()
リクエスト(アクション)=バックアップの場合
バックアップデータ()を呼び出す
それ以外
%>
<テーブルのセルスペース=1 セルパディング=1 整列=中央の幅=90%>
<tr>
<th height=25 >
<B>データベースのバックアップ</B>
</th>
</tr>
<form method=post action=databackup.asp?action=Backup>
<tr>
<td height=100 style=line-height:150%>
現在のデータベース パス (相対パス):
<input type=text size=15 name=DBpath value=../mdb/database.mdb><BR>
バックアップ データベース ディレクトリ (相対パス):
<input type=text size=15 name=bkfolder value=../Databackup> ディレクトリが存在しない場合は、プログラムが自動的に作成します<BR>
バックアップ データベース名 (名前を入力):
<input type=text size=15 name=bkDBname value=database.mdb> バックアップディレクトリにこれがある場合
ファイルが存在しない場合は自動的に作成されます<BR>。
<input type=submIT value=バックアップデータ><hr align=center width=90% color=#999999></td>
</tr>
</form>
</テーブル>
<%
終了する場合
エンドサブ
サブメイン2()
if request(action)=Restore then
Dbpath=request.form(Dbpath)
バックパス=リクエスト.フォーム(バックパス)
dbpath= の場合
response.wrITe 復元先のデータベースの完全な名前を入力してください
それ以外
Dbpath=サーバー.マップパス(Dbpath)
終了する場合
バックパス=サーバー.マップパス(バックパス)
Response.wrITe バックパス
Set Fso=server.createobject(scripting.filesystemobject)
fso.fileexists(dbpath) の場合
fso.copyfile Dbpath、バックパス
response.wrITe <font color=red>データは正常に回復しました。 </font>
それ以外
response.wrITe <font color=red>バックアップ ディレクトリにバックアップ ファイルがありません。 </font>
終了する場合
それ以外
%>
<テーブル align=center cellpacing=1 cellpadding=1 width=90%>
<tr>
<th height=25 >
<B>データベースを復元</B>
</th>
</tr>
<form method=post action=databackup.asp?action=Restore>
<tr>
<td 高さ=100>
バックアップ データベース パス (相対):
<input type=text size=30 name=DBpath value=../Databackup/database.mdb> <BR>
現在のデータベース パス (相対):
<input type=text size=30 name=backpath value=../mdb/database.mdb><BR>
<input type=submIT value=データのリカバリ> <hr width=90% align=center color=#999999>
<font color=#666666>·注: すべてのパスは相対パスです</font></td>
</tr>
</form>
</テーブル>
<%
終了する場合
エンドサブ
サブバックアップデータ()
Dbpath=request.form(Dbpath)
Dbpath=サーバー.マップパス(Dbpath)
bkfolder=リクエスト.フォーム(bkfolder)
bkdbname=リクエスト.フォーム(bkdbname)
Set Fso=server.createobject(scripting.filesystemobject)
fso.fileexists(dbpath) の場合
CheckDir(bkfolder) = True の場合
fso.copyfile dbpath,bkfolder& //& bkdbname
それ以外
MakeNewsDir bkfolder
fso.copyfile dbpath,bkfolder& //& bkdbname
終了する場合
response.wrITe <font color=red>データベースのバックアップは成功しました。バックアップしたデータベースのパスは &bkfolder& //& bkdbname+</font> です。
それ以外
response.wrITe <font color=red>バックアップする必要のあるファイルが見つかりません。 </font>
次の場合に終了
エンドサブ
' ------------------特定のディレクトリが存在するかどうかを確認します ------------------
関数 CheckDir(フォルダーパス)
フォルダーパス=Server.MapPath(.)&//&フォルダーパス
fso1 = CreateObject(Scripting.FileSystemObject) を設定します。
fso1.FolderExists(FolderPath) の場合
'存在する
CheckDir = True
それ以外
「存在しない」
CheckDir = False
次の場合に終了
fso1 = 何も設定しない
終了機能
'---------------指定された名前に基づいてディレクトリを生成します----------
関数 MakeNewsDir(フォルダー名)
薄暗い
fso1 = CreateObject(Scripting.FileSystemObject) を設定します。
Set f = fso1.CreateFolder(フォルダ名)
MakeNewsDir = True
fso1 = 何も設定しない
終了機能
%>