<% ' %> <% main() Sub main() Dim ErrMSG If Not(SessionCheck()) Then Exit Sub End If '会社セッション初期化（演習状況記帳チェック後の対処） KaisyaCD = "" GB_KaisyaCD = "" KaisyaMeisyo = "" GB_KaisyaMeisyo = "" KaisyaRyakuMeisyo = "" GB_KaisyaRyakuMeisyo = "" Session(HomeAlias & "KaisyaCD") = "" Session(HomeAlias & "Gyosyu") = "" Session(HomeAlias & "GyosyuMeisyo") = "" Session(HomeAlias & "KaisyaMeisyo") = "" Session(HomeAlias & "KaisyaRyakuMeisyo") = "" Session(HomeAlias & "JisyaFlag") = "" Session(HomeAlias & "ShijyoCD") = "" '演習管理者IDを再取得(書類一覧後の対処)（221201小野美） If GB_Admin = "2" And EnshuCD <> "" Then Query = "exec SPM演習取得 '" & GB_SystemCD & "','" & EnshuCD & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then Session(HomeAlias & "GakuseiNo") = "" & Content.Fields("演習管理者ID") GB_GakuseiNo = Session(HomeAlias & "GakuseiNo") GakuseiNo = GB_GakuseiNo End If End If Dim Target Target = Request("Target") Dim ShowDel ShowDel = Request("ShowDel") If GB_Admin = 2 Then Target = EnshuCD End If ErrMSG = Request("ErrMSG") Dim RouteType RouteType = Request("RouteType") Dim fso, f, f1, s, sf Dim BackUpPath, EnshuFolder, FilePath Dim Query Dim Content Dim ii, jj Dim bExistBackUpPath bExistBackUpPath = 1 Set fso = CreateObject("Scripting.FileSystemObject") BackUpPath = GetBackupPath() EnshuFolder = Target FilePath = BackUpPath If Not(fso.FolderExists(FilePath)) Then bExistBackUpPath = 0 End If %> <% = HtmlHeader("") %>

<% Response.Write(HtmlDesign(1)) Response.Write(HttpL1(4)) If GB_Admin >= 1 Then Response.Write(HttpL2("運用管理メニュー" ,"tblbtn( '/" & HomeAlias & "/admin/admenu_w.asp')", "データ復元", "", "", "", "", "", "", "", "", "")) Else Response.Write(HttpL2("運用管理メニュー" ,"tblbtn( '/" & HomeAlias & "/admin/admenu_w.asp')", "データ復元", "", "", "", "", "", "", "", "", "")) End If Response.Write(HttpL3("","" ,"", "", "", "", "", "", "", "", "", "", "", "", "", "")) If bExistBackUpPath = 1 Then If ErrMSG = "" Then If Target = "" Then Response.Write(HttpL3_1("", "", "", "", "", "", "", "", "", "")) If Request("ShowDel") = "1" Then Response.Write(HttpL3_2("演習削除済みを非表示", "tblbtn('fm_enshu_load.asp')", "", "", "", "", "", "", "", "")) Else Response.Write(HttpL3_2("演習削除済みを表示", "tblbtn('fm_enshu_load.asp?ShowDel=1')", "", "", "", "", "", "", "", "")) End If Else Response.Write(HttpL3_1("データ復元を実行する", "SubmitCheck('kaisya')", "", "", "", "", "", "", "", "")) If GB_Admin = 1 Then Response.Write(HttpL3_2("演習選択に戻る", "tblbtn('fm_enshu_load.asp?ShowDel=" & ShowDel & "')", "", "", "", "", "", "", "", "")) End If End If Else Response.Write(HttpL3_1("終了確認", "tblbtn( 'fm_enshu_load.asp?RouteType=" & RouteType & "&Target=" & Target & "')", "", "", "", "", "", "", "", "")) End If If GB_Admin = 1 And Target <> "" Then Response.Write(HttpL3_2("演習選択", "tblbtn('fm_enshu_load.asp')", "", "", "", "", "", "", "", "")) End If End If Response.Write(HttpL4("データ復元", "")) Response.Write(HttpL5(ErrMSG)) %>

　

【データ復元】

　

　

<% Set fso = CreateObject("Scripting.FileSystemObject") BackUpPath = GetBackupPath() EnshuFolder = Target FilePath = BackUpPath & "\" & EnshuFolder If bExistBackUpPath = 0 Then %>

システム情報に設定されたバックアップフォルダ
<% = FilePath %> がサーバー上に存在しません。
サーバー内にフォルダを作成するか、
もしくは「システム情報」にてフォルダ設定を変更してください。

<% Else %>

<% If Target <> "" Then %>

対象演習	<% If Target = "all" Then Response.Write("全演習") Else Response.Write("演習コード：" & Target & " ") Response.Write(ConvEnshuMeisyo(Target)) End If %>
バックアップ履歴
オプション	システム情報を復元する ※通常はチェックしないでくださいユーザー情報を復元する ※通常はチェックしないでください

<% Else %>

対象演習

<% End If %>

<% If ErrMSG <> "" Then Response.Write(ErrMSG) Else %>

指定された演習データの復元を行います。

該当演習中のユーザーがいないことを確認の上で処理を実行して下さい。

<% End If %>

<% End IF %>

　

　

　

　

<% = HtmlFooter %> <% End Sub %>