<!-- #include file="../../../include.asp" --> <% '<!-- '################################################ ' 名称 :ポータルサイト(商品棚編集) ' 作成日 :2008/08/26 ' 作成者 :小野 ' 目的 :商品棚の編集画面の表示 ' 概要 : ' 修正変更: '################################################ '--> ' %> <% main() Sub main() If Not(SessionCheck()) Then Exit Sub End If Dim ShijoCD ShijoCD = Request("ShijoCD") Dim Query Dim Content %> <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=shift_jis"> <meta http-equiv="Pragma" content="no-cache"> <meta http-equiv="Cache-Control" content="no-cache"> <meta http-equiv="Expires" content="-1"> <link href="../../../binx/sj3web.css?<% = TimeUniq() %>" rel="stylesheet" type="text/css"> <title><% = AppTitle %></title> <script language="JScript" src="../../../include.js?<% = TimeUniq() %>"></script> <script language="JScript" src="../../../includesj.js?<% = TimeUniq() %>"></script> <script language="JScript.Encode" src="../../../include_enc.js?<% = TimeUniq() %>"></script> <script language="JScript.Encode" src="../../../includesj_enc.js?<% = TimeUniq() %>"></script> <script type=""text/javascript"" src="../../../javascript.js?<% = TimeUniq() %>"></script> </head> <SCRIPT LANGUAGE="JavaScript"> <!-- ExitFlg = 1; HomeAlias = "<% = HomeAlias %>"; HomeAliasSL = "<% = HomeAliasSL %>"; --> </SCRIPT> <body onkeydown="if(ExitFlg==2)ExitFlg=3;" onBeforeUnload="window.event.returnValue = ExitMsg(ExitFlg)" bgcolor="#5C70B6" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0"> <% Response.Write(HtmlDesign(11)) Response.Write(HttpL3_1(" 商品の追加 ", "tblbtn('portal_shohin_edit.asp?ShijoCD=" & ShijoCD & "')", " サイトの編集 ", "tblbtn('portal_kaisha_edit.asp?ShijoCD=" & ShijoCD & "')", " 会社一覧に戻る ", "tblbtn('portal_kaisha_ichiran.asp?ShijoCD=" & ShijoCD & "')", "閉じる", "ExitFlg=0;top.window.close()", "", "")) Response.Write(HttpL4("商品棚の編集", "")) %> <div id="L0" style="position: absolute; visibility: hidden; left: 0px; top: -2000px;"> <TABLE BORDER="0" CELLSPACING="5" CELLPADDING="0" WIDTH="100%" HEIGHT="100%"> <TR> <TD ALIGN="CENTER"> <TABLE BORDER="0" CELLSPACING="5" CELLPADDING="15" BGCOLOR="#FFFFFF" STYLE="BORDER:1px solid #000000" WIDTH="680" HEIGHT="100%"> <TR> <TD ALIGN="CENTER" BACKGROUND="/<% = HomeAlias %>/images/window_bk.gif"> <TABLE WIDTH="640" BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="100%"> <TR> <TD VALIGN="TOP"> <DIV ID="Layer1" STYLE="position:relative; left:0px; top:0px; width:840px; height:100%; z-index:1; border:1px none #000000; overflow:auto;"> <TABLE ID="List" WIDTH="820" BORDER="0" CELLSPACING="0" CELLPADDING="0"> <TR> <TD CLASS="tx1416"> <% Dim PrevHyojijun PrevHyojijun = 0 Dim NextHyojijun ReDim NextHyojijun(0) Query = "exec SPPポータル商品取得 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & KaisyaCD & "', ''" Set Content = OpenQuery(Query) Dim ii ii = 0 Do While Not(Content.BOF Or Content.EOF) ii = ii + 1 ReDim PreServe NextHyojijun(ii) NextHyojijun(ii) = Content.Fields("表示順") Content.MoveNext Loop If UBound(NextHyojijun) > 0 Then Content.MoveFirst End If ii = 0 Do While Not(Content.BOF Or Content.EOF) ii = ii + 1 Dim ImageFile ImageFile = "" If "" & Content.Fields("商品画像区分") = "2" And "" & Content.Fields("商品広告画像") <> "" Then ImageFile = FPortal & "/" & GB_EnshuCD & "/" & KaisyaCD & "/" & Content.Fields("商品広告画像") ElseIf "" & Content.Fields("商品画像区分") = "1" And "" & Content.Fields("商品マスタ画像") <> "" Then ImageFile = Fgoods & "/" & EnshuCD & "/" & Content.Fields("商品マスタ画像") End If Response.Write("<TABLE BORDER=""0"" CELLSPACING=""0"" CELLPADDING=""0"">" & vbCrLf) Response.Write("<TR>" & vbCrLf) Response.Write("<TD>" & vbCrLf) Response.Write("<TABLE WIDTH=""745"" BORDER=""1"" CELLSPACING=""0"" CELLPADDING=""0"" BGCOLOR=""#FFFFFF"" STYLE=""border-collapse:collapse"" BORDERCOLOR=""#0000FF"" CLASS=""tx1416"">" & vbCrLf) Response.Write("<TR ALIGN=""CENTER"">" & vbCrLf) Response.Write("<TD rowspan=""2"" width=""120"" height=""90"">" & vbCrLf) If ImageFile <> "" Then Response.Write("<img src=""" & ImageFile & """ width=""120"" height=""90"">") Else Response.Write("<div style=""width:120px; height:90; border:none; text-align:center;"" class=""tx1618""><BR><BR>画像無し</div>") End If Response.Write("</TD>" & vbCrLf) Response.Write("<TD ALIGN=""LEFT"" height=""20"">" & vbCrLf) Response.Write(Content.Fields("商品見出し文") & vbCrLf) Response.Write("</TD>" & vbCrLf) Response.Write("</TR>" & vbCrLf) Response.Write("<TR ALIGN=""CENTER"">" & vbCrLf) Response.Write("<TD ALIGN=""LEFT"" height=""70"">" & vbCrLf) Response.Write(Content.Fields("商品広告文") & vbCrLf) Response.Write("</TD>" & vbCrLf) Response.Write("</TR>" & vbCrLf) Response.Write("</TABLE>" & vbCrLf) Response.Write("<TABLE WIDTH=""744"" BORDER=""0"" CELLSPACING=""0"" CELLPADDING=""0"" STYLE=""border-collapse:collapse"" CLASS=""tx1618"">" & vbCrLf) Response.Write("<TR ALIGN=""CENTER"">" & vbCrLf) Response.Write("<TD ALIGN=""left"">" & vbCrLf) Response.Write("" & Content.Fields("商品名称") & vbCrLf) Response.Write("</TD>" & vbCrLf) Response.Write("<TD ALIGN=""right"">" & vbCrLf) Response.Write("希望卸価格:" & ConvIntToMoney(Content.Fields("希望卸価格"),false,false) & vbCrLf) Response.Write("</TD>" & vbCrLf) Response.Write("</TR>" & vbCrLf) Response.Write("</TABLE>" & vbCrLf) Response.Write("</TD>" & vbCrLf) Response.Write("<TD align=""right"" valign=""top"">" & vbCrLf) Response.Write("<TABLE WIDTH=""60"" BORDER=""0"" CELLSPACING=""0"" CELLPADDING=""0"" CLASS=""tx1416"">" & vbCrLf) Response.Write("<TR>" & vbCrLf) Response.Write("<TD height=""28"" ALIGN=""right""> " & vbCrLf) If ii > 1 Then Response.Write("<input type=""button"" style=""width:60px;font-size:11pt;"" value=""上移動"" onClick=""HyojijunIrekae('" & PrevHyojijun & "', '" & Content.Fields("表示順") & "');"">" & vbCrLf) End If Response.Write("</TD>" & vbCrLf) Response.Write("</TR>" & vbCrLf) Response.Write("<TR>" & vbCrLf) Response.Write("<TD height=""28"" ALIGN=""right""> " & vbCrLf) Response.Write("<input type=""button"" style=""width:60px;font-size:11pt;"" value=""編 集"" onClick=""tblbtn('portal_shohin_edit.asp?ShelfCD=" & Content.Fields("商品棚CD") & "&ShijoCD=" & ShijoCD & "');"">" & vbCrLf) Response.Write("</TD>" & vbCrLf) Response.Write("</TR>" & vbCrLf) Response.Write("<TR>" & vbCrLf) Response.Write("<TD height=""28"" ALIGN=""right""> " & vbCrLf) Response.Write("<input type=""button"" style=""width:60px;font-size:11pt;"" value=""削 除"" onClick=""ShelfDelete('" & Content.Fields("商品棚CD") & "');"">" & vbCrLf) Response.Write("</TD>" & vbCrLf) Response.Write("</TR>" & vbCrLf) Response.Write("<TR>" & vbCrLf) Response.Write("<TD height=""28"" ALIGN=""right""> " & vbCrLf) If ii + 1 <= UBound(NextHyojijun) Then Response.Write("<input type=""button"" style=""width:60px;font-size:11pt;"" value=""下移動"" onClick=""HyojijunIrekae('" & NextHyojijun(ii + 1) & "', '" & Content.Fields("表示順") & "');"">" & vbCrLf) End If Response.Write("</TD>" & vbCrLf) Response.Write("</TR>" & vbCrLf) Response.Write("</TABLE>" & vbCrLf) Response.Write("</TD>" & vbCrLf) Response.Write("</TR>" & vbCrLf) Response.Write("</TABLE>" & vbCrLf) Response.Write("<BR>" & vbCrLf) PrevHyojijun = Content.Fields("表示順") Content.MoveNext Loop %> </TD> </TR> </TABLE> </DIV> </TD> </TR> </TABLE> </TD> </TR> </TABLE> </TD> </TR> </TABLE> </div> </body> <script language="JavaScript" type="text/JavaScript"> <!-- function HyojijunIrekae(obj1, obj2) { if (obj1 != '' && obj2 != '') { tblbtn('portal_shelf_bin.asp?ShijoCD=<% = ShijoCD %>&Irekae1=' + obj1 + '&Irekae2=' + obj2); return; } } function ShelfDelete(obj) { if (obj != '') { if (confirm("削除してよろしいですか? ")) { tblbtn('portal_shelf_bin.asp?ShijoCD=<% = ShijoCD %>&Delete=Delete&ShelfCD=' + obj); return; } } } --> </script> <% = HtmlFooter %> </html> <% End Sub %>