<% ' %> <% main() Sub main() 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 ErrMSG ErrMSG = Request("ErrMSG") Dim RouteType RouteType = Request("RouteType") Dim Target Target = Request("Target") Dim SelectTarget SelectTarget = Request("SelectTarget") If SelectTarget = "all" Then SelectTarget = "" End If 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 Dim DataCnt 'チャックボックスが単一か配列かで処理を変えるため DataCnt = 0 %> <% = 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 If bExistBackUpPath = 1 Then If Target = "" Then Response.Write(HttpL3_1("確認", "KakuninCheck()", "", "", "", "", "", "", "", "")) Else Response.Write(HttpL3_1("データバックアップ処理実行", "SubmitCheck('');", "履歴の削除", "SubmitCheck('Rireki');", "", "", "", "", "", "")) Response.Write(HttpL3_2("演習選択","tblbtn('fm_enshu_save.asp?SelectTarget=" & Target & "')", "", "", "", "", "", "", "", "")) End If End If Response.Write(HttpL4("データバックアップ", "")) Response.Write(HttpL5(ErrMSG)) %>

<% End IF %>

　

【データバックアップ】

　

　

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

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

<% Else %> <% If Target = "" Then %>

対象演習	<% If GB_Admin = 2 Then %> <% = EnshuMeisyo %> <% Else %> checked<% End If %> OnClick='EnshuKubun_Check(0)'> 全演習 "" Or SelectTarget <> "" Then %> checked<% End If %> OnClick='EnshuKubun_Check(1)'> 指定演習 <% End If %>

<% Else %>

対象演習

<% Dim EnshuName If Target = "all" Then EnshuName = "全演習" Else EnshuName = ConvEnshuMeisyo(Target) End If Response.Write(EnshuName) %>

バックアップ履歴

<% Dim BackUpPath, EnshuFolder, FilePath BackUpPath = GetBackupPath() EnshuFolder = Target FilePath = BackUpPath & "\" & EnshuFolder Dim fso, f, f1, s, sf Set fso = CreateObject("Scripting.FileSystemObject") If Not(fso.FolderExists(FilePath)) Then fso.CreateFolder(FilePath) End If Set f = fso.GetFolder(FilePath) Set sf = f.SubFolders Dim tmp1, tmp2 For Each f1 in sf tmp1 = tmp1 & f1.name & "-" Next tmp2 = split(tmp1, "-") For ii = UBound(tmp2) - 1 To 0 Step -1 If Not(fso.FileExists(BackUpPath & "\" & EnshuFolder & "\" & tmp2(ii) & "\DELETE.txt")) Then DataCnt = DataCnt + 1 Response.Write("" & vbCrLf) End If Next %>

") Response.Write(" ") Response.Write(SetTimeYYMMDDHHMM2Rev(tmp2(ii))) Response.Write("

<% End If %>

　

　

指定された演習データのバックアップを行います。

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

　

　

　

　

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