<%
'################################################
' 名称 ：ポータルサイト（会社サイト更新）
' 作成日 ：2008/08/25
' 作成者 ：小野
' 目的 ：会社サイトの更新処理
' 概要 ：
' 修正変更：
'################################################
'-->
main()
Sub main()
Dim Query
Dim Content
Dim Midashi
Dim Banner
Dim OldBanner
Dim Shokai
Dim ShelfHyoji
Dim ShelfZaiko
Dim ContentsHyoji
Dim ContentsTitle
Dim ContentsValue
Dim OldContentsValue
Dim LinkHyoji
Dim LinkTitle
Dim LinkValue
Dim BannerHenkoFlg
Dim ShijoCD
Dim BinData
Dim ObjBASP
Dim ObjFS
On Error Resume Next
Err.Clear()
BinData = Request.BinaryRead(Request.TotalBytes)
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 ObjBASP = Server.CreateObject("basp21")
'ファイルフォームのファイル名を取得（この時点ではフルパス名）
Banner = ObjBASP.FormFileName(BinData, "Banner")
ContentsValue = ObjBASP.FormFileName(BinData, "ContentsValue")
'テキストフォームを取得
Midashi = ObjBASP.Form(BinData, "Midashi")
OldBanner = ObjBASP.Form(BinData, "OldBanner")
Shokai = ObjBASP.Form(BinData, "Shokai")
ShelfHyoji = ObjBASP.Form(BinData, "ShelfHyoji")
ShelfZaiko = ObjBASP.Form(BinData, "ShelfZaiko")
ContentsHyoji = ObjBASP.Form(BinData, "ContentsHyoji")
ContentsTitle = ObjBASP.Form(BinData, "ContentsTitle")
OldContentsValue = ObjBASP.Form(BinData, "OldContentsValue")
LinkHyoji = ObjBASP.Form(BinData, "LinkHyoji")
LinkTitle = ObjBASP.Form(BinData, "LinkTitle")
LinkValue = ObjBASP.Form(BinData, "LinkValue")
BannerHenkoFlg = ObjBASP.Form(BinData, "BannerHenkoFlg")
ShijoCD = ObjBASP.Form(BinData, "ShijoCD")
'Response.Write(Banner)
'Exit Sub
Shokai = Replace(Shokai, vbCrLf, "
")
If Banner <> "" And BannerHenkoFlg = "1" Then
'フルパス名からファイル名を取り出す
Banner = Mid(Banner, InstrRev(Banner, "\") + 1)
Set ObjFS = CreateObject("Scripting.FileSystemObject")
'演習フォルダ作成
If Not(ObjFS.FolderExists(Server.MapPath(FPortal) & "/" & EnshuCD)) Then
ObjFS.CreateFolder(Server.MapPath(FPortal) & "/" & EnshuCD)
End If
'会社フォルダ作成
If Not(ObjFS.FolderExists(Server.MapPath(FPortal) & "/" & EnshuCD & "/" & KaisyaCD)) Then
ObjFS.CreateFolder(Server.MapPath(FPortal) & "/" & EnshuCD & "/" & KaisyaCD)
End If
'バナー保存
ObjBASP.FormSaveAs BinData, "Banner", Server.MapPath(FPortal) & "/" & EnshuCD & "/" & KaisyaCD & "/" & Banner
Else
Banner = OldBanner
End If
If ContentsValue <> "" Then
'フルパス名からファイル名を取り出す
ContentsValue = Mid(ContentsValue, InstrRev(ContentsValue, "\") + 1)
Set ObjFS = CreateObject("Scripting.FileSystemObject")
'演習フォルダ作成
If Not(ObjFS.FolderExists(Server.MapPath(FPortal) & "/" & EnshuCD)) Then
ObjFS.CreateFolder(Server.MapPath(FPortal) & "/" & EnshuCD)
End If
'会社フォルダ作成
If Not(ObjFS.FolderExists(Server.MapPath(FPortal) & "/" & EnshuCD & "/" & KaisyaCD)) Then
ObjFS.CreateFolder(Server.MapPath(FPortal) & "/" & EnshuCD & "/" & KaisyaCD)
End If
'バナー保存
ObjBASP.FormSaveAs BinData, "ContentsValue", Server.MapPath(FPortal) & "/" & EnshuCD & "/" & KaisyaCD & "/" & ContentsValue
Else
ContentsValue = OldContentsValue
End If
Query = "exec SPPポータル会社更新 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & KaisyaCD & "'"
Query = Query & ",'" & Midashi & "'"
Query = Query & ",'" & Banner & "'"
Query = Query & ",'" & Shokai & "'"
Query = Query & ",'" & ShelfHyoji & "'"
Query = Query & ",'" & ShelfZaiko & "'"
Query = Query & ",'" & ContentsHyoji & "'"
Query = Query & ",'" & ContentsTitle & "'"
Query = Query & ",'" & ContentsValue & "'"
Query = Query & ",'" & LinkHyoji & "'"
Query = Query & ",'" & LinkTitle & "'"
Query = Query & ",'" & LinkValue & "'"
'Response.Write(Query)
'Exit Sub
Set Content = OpenQuery(Query)
Response.Redirect("portal_kaisha_result.asp?ShijoCD=" & ShijoCD)
End Sub
%>