|
|
|
|
<%
Set fso = CreateObject("Scripting.FileSystemObject")
BackUpPath = GetBackupPath()
EnshuFolder = Target
FilePath = BackUpPath
If bExistBackUpPath = 0 Then
%>
システム情報に設定されたバックアップフォルダ
<% = FilePath %> がサーバー上に存在しません。
サーバー内にフォルダを作成するか、
もしくは「システム情報」にてフォルダ設定を変更してください。
|
<%
Else
%>
<% If Target = "" Then %>
<% 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
Response.Write("")
Response.Write(SetTimeYYMMDDHHMM2Rev(tmp2(ii)))
Response.Write(" | " & vbCrLf)
Next
%>
|
<% End If %>
|
|
|
指定された演習データのバックアップを行います。
該当演習中のユーザーがいないことを確認の上で処理を実行して下さい。
|
|
<% End IF %>
|
|
|
|
|
|
|