%
'
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
%>