改良された ASP バックアップ SQL Server データベース、インターネット上の原理はあまり良くありませんが、困っている友人はそれを参照できます。次のようにコードをコピーします。
<form method=post name=myform action=?action=backupdatabase>
アクションを選択します: <INPUT TYPE=radio NAME=act id=act_backupvalue=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=databasename value=<%=request(databasename)%>>
<br>ファイル パス: <INPUT TYPE=text NAME=bak_file value=c:/$1.bak> (バックアップまたはリカバリ ファイル パス)<br>
<入力タイプ=送信値=OK id=送信1 名前=送信1>
</form>
<%
「SQL Serverデータベースのバックアップとリカバリ!」
if request(action)=backupdatabase then
dim sqlserver、sqlname、sqlpassword、sqlLoginTimeout、データベース名、bak_file、act
sqlserver=ローカルホスト
sqlname=sa
sqlpassword=パスワード
SQLログインタイムアウト = 15
データベース名 = トリム(リクエスト(データベース名))
bak_file = トリム(リクエスト(bak_file))
bak_file = replace(bak_file,$1,データベース名)
act = lcase(リクエスト(act))
if データベース名 = then
response.write 入力データベース名
それ以外
動作 = バックアップの場合
srv=Server.CreateObject(SQLDMO.SQLServer) を設定します。
srv.LoginTimeout = sqlLoginTimeout
srv.Connect sqlserver、sqlname、sqlpassword
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 の場合
応答.書き込みエラー.番号&<font color=red><br>
応答.書き込みエラー.説明&</font>
終了する場合
Response.write <font color=green>バックアップ成功!</font>
elseif act=restore then
' 復元はデータベースが使用されていないときに実行する必要があります。
srv=Server.CreateObject(SQLDMO.SQLServer) を設定します。
srv.LoginTimeout = sqlLoginTimeout
srv.Connect sqlserver、sqlname、sqlpassword
setrest=Server.CreateObject(SQLDMO.Restore)
rest.Action=0 ' 完全なデータベースの復元
rest.Database=データベース名
rest.Devices=ファイル
rest.Files=bak_file
rest.ReplaceDatabase=True '既存のデータベースを強制的に復元します
err.number>0 の場合
応答.書き込みエラー.番号&<font color=red><br>
応答.書き込みエラー.説明&</font>
終了する場合
rest.SQLRestore srv
Response.write <font color=green>正常に復元されました!</font>
それ以外
Response.write <font color=red>操作が選択されていません</font>
終了する場合
終了する場合
終了する場合
%>