SQL Server データベースの ASP バックアップの改善
著者：Eve Cole
更新時間：2009-06-24 17:02:32
<form method="post" name="myform" action="?action=backupdatabase">
アクションの選択: <INPUT TYPE="radio" NAME="act" id="act_backup"value="backup"><label for=act_backup>バックアップ</label>
<INPUT TYPE="radio" NAME="act" id="act_restore" value="restore"><label for=act_restore>復元</label>
<br>データベース名: <INPUT TYPE="text" NAME="データベース名" 値="<%=request("データベース名")%>">
<br>ファイル パス: <INPUT TYPE="text" NAME="bak_file" value="c:$1.bak">(バックアップまたはリカバリ ファイル パス)<br>
<input type="submit" value="OK" id=submit1 name=submit1>
</form>
<%
「SQL Serverデータベースのバックアップとリカバリ！」
if request("action")="バックアップデータベース" then
dim sqlserver、sqlname、sqlpassword、sqlLoginTimeout、データベース名、bak_file、act
sqlserver = "ローカルホスト"
sqlname = "さ"
sqlpassword="パスワード"
sqlLoginTimeout = 15
データベース名 = トリム(リクエスト("データベース名"))
bak_file = トリム(リクエスト("bak_file"))
bak_file = replace(bak_file,"$1",データベース名)
act = lcase(request("act"))
データベース名 = "" の場合、
response.write "入力データベース名"
それ以外
act = "バックアップ" の場合
Set srv=Server.CreateObject("SQLDMO.SQLServer")
srv.LoginTimeout = sqlLoginTimeout
srv.Connect sqlserver、sqlname、sqlpassword
Set bak = Server.CreateObject("SQLDMO.Backup")
bak.Database=データベース名
bak.Devices=ファイル
bak.アクション = 0
bak.Initialize = 1
'bak.Replace = True
bak.Files=bak_file
bak.SQLBackup サーバー
err.number>0 の場合
response.write err.number&"<font color=red><br>"
応答.書き込みエラー.説明&"</font>"
終了する場合
Response.write "<font color=green>バックアップが成功しました!</font>"
elseif act="復元" then
'復元はデータベースが使用されていないときに実行する必要があります。
Set srv=Server.CreateObject("SQLDMO.SQLServer")
srv.LoginTimeout = sqlLoginTimeout
srv.Connect sqlserver、sqlname、sqlpassword
Setrest=Server.CreateObject("SQLDMO.Restore")
rest.Action=0 ' 完全な DB 復元
rest.Database=データベース名
rest.Devices=ファイル
rest.Files=bak_file
rest.ReplaceDatabase=True '既存のデータベースを強制的に復元します
err.number>0 の場合
response.write err.number&"<font color=red><br>"
応答.書き込みエラー.説明&"</font>"
終了する場合
rest.SQLRestore srv
Response.write "<font color=green>正常に復元されました!</font>"
それ以外
Response.write "<font color=red>操作が選択されていません</font>"
終了する場合
終了する場合
終了する場合
%>
