%
'################################################
' 名称 :ポータルサイト(商品棚商品更新)
' 作成日 :2008/08/26
' 作成者 :小野
' 目的 :商品棚の商品の更新処理
' 概要 :
' 修正変更:
'################################################
'-->
main()
Sub main()
Dim Query
Dim Content
Dim ShelfCD
Dim ShohinCD
Dim KoukokuGazo
Dim OldKoukokuGazo
Dim ShohinGazoKubun
Dim Midashi
Dim Shokai
Dim KoukokuGazoHenkoFlg
Dim ShijoCD
Dim PurchasePrice
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")
'ファイルフォームのファイル名を取得(この時点ではフルパス名)
KoukokuGazo = ObjBASP.FormFileName(BinData, "KoukokuGazo")
'テキストフォームを取得
OldKoukokuGazo = ObjBASP.Form(BinData, "OldKoukokuGazo")
ShohinGazoKubun = ObjBASP.Form(BinData, "ShohinGazoKubun")
ShelfCD = ObjBASP.Form(BinData, "ShelfCD")
ShohinCD = ObjBASP.Form(BinData, "ShohinCD")
ShelfCD = ObjBASP.Form(BinData, "ShelfCD")
Midashi = ObjBASP.Form(BinData, "Midashi")
Shokai = ObjBASP.Form(BinData, "Shokai")
KoukokuGazoHenkoFlg = ObjBASP.Form(BinData, "KoukokuGazoHenkoFlg")
ShijoCD = ObjBASP.Form(BinData, "ShijoCD")
PurchasePrice = ConvMoneyToInt(ObjBASP.Form(BinData, "PurchasePrice"))
'Response.Write(Banner)
'Exit Sub
Shokai = Replace(Shokai, vbCrLf, "
")
If KoukokuGazo <> "" And KoukokuGazoHenkoFlg = "1" Then
'フルパス名からファイル名を取り出す
KoukokuGazo = Mid(KoukokuGazo, InstrRev(KoukokuGazo, "\") + 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, "KoukokuGazo", Server.MapPath(FPortal) & "/" & EnshuCD & "/" & KaisyaCD & "/" & KoukokuGazo
Else
KoukokuGazo = OldKoukokuGazo
End If
Query = "exec SPPポータル商品更新 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & KaisyaCD & "', '" & ShelfCD & "'"
Query = Query & ", '" & ShohinCD & "'"
Query = Query & ", '" & Midashi & "'"
Query = Query & ", '" & KoukokuGazo & "'"
Query = Query & ", '" & ShohinGazoKubun & "'"
Query = Query & ", '" & Shokai & "'"
If "" & PurchasePrice <> "" Then
Query = Query & ", " & PurchasePrice & ""
Else
Query = Query & ", null"
End If
'Response.Write(Query)
'Exit Sub
Set Content = OpenQuery(Query)
Response.Redirect("portal_shelf_edit.asp?ShijoCD=" & ShijoCD)
' Response.Redirect("portal_shohin_result.asp")
End Sub
%>