<!-- #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 %>