<body>
<form method = post name = myform>
<％action = restore then％> <入力型=非表示名=アクション値=復元>データベースを復元する準備をします。エッセンスエッセンス
<％elseif action = backup then％> <入力タイプ=非表示名=アクション値=バックアップ>バックアップデータベースを準備します。エッセンスエッセンス<％else％>
操作を選択します：
<入力タイプ=ラジオ名=アクションID = act_backup値= backup> <label for = act_backup> backup </label>
<入力タイプ=無線名=アクションID = ACT_RESTORE値= RESTORE> <ラベルfor = ACT_RESTORE> Recovery </label> <％end if>
<br>データベース名：<入力タイプ=テキスト名=データベイセナル値= 50Forum>
<br>ファイルパス：<入力タイプ=テキスト名= bak_file値= 50forum.bak>（バックアップまたは回復のファイルパス）<br>
<入力タイプ=送信値= OK>
</form>
<％
'SQL Serverデータベースバックアップとリカバリ！
'http://www.tfxy.com
Dim SQLServer、SQLName、SQLPassWord、SQLOGINTIMEOUT、DATABASENAME、BAK_FILE、ACT、ACT
sqlserver = localhost 'sql server
sqlname = sa 'ユーザー名
sqlpassword = sa 'パスワード
SQLLOGINTIMEOUT = 15 'の一時停止タイムアウト
databasename = trim（request（databasename））
bak_file = trim（request（bak_file））
bak_file = server.mappath（backup/＆bak_file）
act = lcase（request（action））
databasename = thenの場合
Response.write入力データベース名
それ以外
アクション=バックアップの場合
srv = server.createobject（sqldmo.sqlserver）を設定します
srv.logintimeout = sqlogintimeout
srv.connect sqlserver、sqlname、sqlpassword
bak = server.createobject（sqldmo.backup）を設定します
bak.database = databasename
bak.devices = files
bak.files = bak_file
bak.action = 0
bak.initialize = 1
'bak.replacedatabase = true
bak.sqlbackup srv
err.Number> 0の場合
Response.write err.number＆<font color = red> <br>
respons.write ericr.descripting＆</font>
ifを終了します
response.write <font color = green>バックアップは成功しました！
srv.disconnect
srv =何も設定しません
bak =何も設定しません
elseif act =復元
'回復時には、データベースを使用しないでください！
srv = server.createobject（sqldmo.sqlserver）を設定します
srv.logintimeout = sqlogintimeout
srv.connect sqlserver、sqlname、sqlpassword
set rest = server.createobject（sqldmo.restore）
REST.ACTION = 0 'フルDB復元
REST.DATABASE = DATABASENAME
REST.DEVICES =ファイル
rest.files = bak_file
REST.REPLACEDATABASE = True 'Force restore既存のデータベースに復元します
err.Number> 0の場合
Response.write err.number＆<font color = red> <br>
respons.write ericr.descripting＆</font>
ifを終了します
REST.SQLRESTORE SRV
Response.write <font color = green> restore！
srv.disconnect
srv =何も設定しません
SET REST = Nothing
それ以外
Response.Write <font color = red>選択操作なし</font>
ifを終了します
ifを終了します
％>
</body>
</html>