<% ' main() Sub main() If Not(SessionCheck()) Then Exit Sub End If Dim Query Dim Content Dim EnshuCD Dim KaisyaCD Dim GazoFile Dim ErrMsg Dim a, b, obj, name DIm f1, newf1, l1 Dim fso a=Request.TotalBytes On Error Resume Next Err.Clear() b=Request.BinaryRead(a) If Err.Description <> "" Then Response.Write("エラーが発生しました。
ファイルサイズが大きすぎる可能性があります。

") Response.Write("エラーコード:") Response.Write(Err.Description) Response.Write("

") Response.Write("戻る") Exit Sub End If On Error Goto 0 Set obj = server.createobject("basp21") EnshuCD = obj.Form(b, "EnshuCD") KaisyaCD = obj.Form(b, "KaisyaCD") GazoFile = obj.FormFileName(b, "GazoFile") '新規ファイル名 If obj.Form(b, "delImg") <> "" Then GazoFile = "" '削除指定ならNULL Else '保存ファイル名を生成 GazoFile = Mid(GazoFile, InstrRev(GazoFile, ".")) '拡張子のみを取得(ピリオド付き) GazoFile = KaisyaCD & GazoFile If GB_Admin = "1" Then GazoFile = "MST-" & GazoFile End If '保存 Set fso = CreateObject("Scripting.FileSystemObject") If Not(fso.FolderExists(Server.MapPath(FTopimage))) Then fso.CreateFolder(Server.MapPath(FTopimage)) End If If Not(fso.FolderExists(Server.MapPath(FTopimage) & "/" & EnshuCD)) Then fso.CreateFolder(Server.MapPath(FTopimage) & "/" & EnshuCD) End If l1 = obj.FormSaveAs(b, "GazoFile", Server.MapPath(FTopimage) & "/" & EnshuCD & "/" & GazoFile) 'パス名260文字以上でエラー(-3)になる If l1 < 0 Then Response.Write("エラーが発生しました。
ファイル名が長すぎる可能性があります。

") Response.Write("戻る") Exit Sub End If End If Dim EnshuKubun Query = "exec SPM演習取得 '" & GB_SystemCD & "','" & EnshuCD & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then EnshuKubun = "" & Content.Fields("演習区分") 'Response.Write(EnshuKubun) 'Exit Sub End If Query = " " Query = Query & " UPDATE TDA会社M" If GB_Admin = "1" Then Query = Query & " SET トップ画像マスタ = '" & GazoFile & "' " Else Query = Query & " SET トップ画像 = '" & GazoFile & "' " End If Query = Query & " WHERE システムCD = '" & GB_SystemCD & "' " Query = Query & " AND 演習CD = '" & EnshuCD & "' " If GB_Admin = "1" And EnshuKubun = "P" Then Query = Query & " AND (会社CD = '" & KaisyaCD & "' OR 会社CD LIKE '" & KaisyaCD & "-%') " '同時同業の場合は生徒コピー会社のトップ画像マスタも更新 Else Query = Query & " AND 会社CD = '" & KaisyaCD & "' " End If Query = Query & " " 'Response.Write(Query) 'Exit Sub Set Content = OpenQuery(Query) If GazoFile <> "" Then ErrMsg = "1" Else ErrMsg = "2" End If Response.Redirect("fm_topimage.asp?EnshuCD=" & EnshuCD & "&KaisyaCD=" & KaisyaCD & "&ErrMsg=" & ErrMsg) End Sub %>