<% '################################################ ' 名称 :ポータルサイト(商品棚商品更新) ' 作成日 :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 %>