<!-- #include virtual="/sj4web/include.asp" -->
<%
'<!--
'################################################
' 名称 ：演習データ待避
' 作成日：2002/12/10
' 作成者：徳田
' 目的 ：演習データ待避処理を実行する。
' 概要 ：
' <<表示>>
' ・なし
'
'################################################
'-->
%>
<%
main()
Sub main()
Dim Query, Content
Dim BackUpPath, EnshuFolder, DateFolder
Dim Target
Target = Request("Target")
BackUpPath = GetBackupPath()
EnshuFolder = Target
DateFolder = Request("DateFolder")
Dim bobj, command, stdout, rc
Set bobj = Server.CreateObject("basp21")
Dim Gakomei, FileName
Query = "exec SPMシステム情報取得 '" & GB_SystemCD & "'"
Set Content = OpenQuery(Query)
If Not(Content.EOF Or Content.EOF) Then
Gakomei = Content.Fields("ユーザー名")
End If
FileName = Gakomei & "-" & EnshuFolder & "-" & DateFolder & ".lzh"
Response.Write("<script language=""JScript"" src=""/sj4web/include.js""></script>" & vbCrLf)
Response.Write("<script language=""JScript"" src=""/sj4web/includesj.js""></script>" & vbCrLf)
Response.Write("<script language=""JScript.Encode"" src=""/sj4web/include_enc.js""></script>" & vbCrLf)
Response.Write("<script language=""JScript.Encode"" src=""/sj4web/includesj_enc.js""></script>" & vbCrLf)
Response.Write("<body onLoad=""tblbtn('" & FBackupTemp & "/" & FileName & "');"">" & vbCrLf)
Response.Write("ダウンロード後このウィンドウを閉じてください<br><br><br><br><br>" & vbCrLf)
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
'''DeleteFile はファイルが存在しないとエラーになるので、Resume Next をしています。
On Error Resume Next
fso.DeleteFile(BackUpPath & "\" & FileName)
On Error GoTo 0
Response.Write("del " & BackUpPath & "\" & FileName & "<br>" & vbCrLf)
' ExecCmd("cmd.exe /c del """ & BackUpPath & "\" & FileName & """")
command = Server.MapPath("/sj4web/binx/unlha.exe") & " a -r1 -a1 -jp1 -w""" & BackUpPath & """ """ & BackUpPath & "\" & FileName & """ """ & BackUpPath & "\" & EnshuFolder & "\" & DateFolder & "\*.csv"""
rc = ExecCmd(command)
command = Server.MapPath("/sj4web/binx/unlha.exe") & " a -r1 -a1 -jp1 -w""" & BackUpPath & """ """ & Server.MapPath(FBackupTemp) & "\" & FileName & """ """ & BackUpPath & "\" & EnshuFolder & "\" & DateFolder & "\*.csv"""
rc = ExecCmd(command)
' tmp = fso.CopyFile(BackUpPath & "\" & FileName, Server.MapPath(FBackupTemp) & "\" & FileName)
' Response.Write("copy """ & BackUpPath & "\" & FileName & """ """ & Server.MapPath(FBackupTemp) & "\" & FileName & """")
' command = "cmd.exe /c copy """ & BackUpPath & "\" & FileName & """ """ & Server.MapPath(FBackupTemp) & "\" & FileName & """"
' rc = ExecCmd(command)
Response.Write(FBackupTemp & "/" & FileName)
Response.Write("</body>")
' Response.Redirect(FBackupTemp & "/" & FileName)
End Sub
%>