<!-- #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
%>