<!-- #include file="../../../include.asp" --> <% '<!-- '################################################ ' 名称 :ポータルサイト(商品棚商品編集) ' 作成日 :2008/08/26 ' 作成者 :小野 ' 目的 :商品棚の商品編集画面の表示 ' 概要 : ' 修正変更: '################################################ '--> ' %> <% main() Sub main() If Not(SessionCheck()) Then Exit Sub End If Dim Query Dim Content Dim ShijoCD ShijoCD = Request("ShijoCD") Dim ShelfCD ShelfCD = Request("ShelfCD") Dim ShohinGazo Dim ShohinGazoKubun Dim ShohinGazoURL Dim OldKoukokuGazoURL Dim Midashi Dim Shokai Dim ShohinCD Dim ShohinMeisho Dim PurchasePrice If ShelfCD <> "" Then Query = "exec SPPポータル商品取得 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & KaisyaCD & "', '" & ShelfCD & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then If "" & Content.Fields("商品広告画像") <> "" Then ShohinGazoURL = FPortal & "/" & GB_EnshuCD & "/" & KaisyaCD & "/" & Content.Fields("商品広告画像") OldKoukokuGazoURL = ShohinGazoURL ShohinGazo = Content.Fields("商品広告画像") ElseIf "" & Content.Fields("商品マスタ画像") <> "" Then ShohinGazoURL = Fgoods & "/" & EnshuCD & "/" & Content.Fields("商品マスタ画像") End If ShohinGazoKubun = "" & Content.Fields("商品画像区分") Midashi = "" & Content.Fields("商品見出し文") Shokai = "" & Content.Fields("商品広告文") ShohinCD = "" & Content.Fields("商品CD") ShohinMeisho = "" & Content.Fields("商品名称") PurchasePrice = "" & Content.Fields("希望卸価格") If "" & PurchasePrice = "" Then PurchasePrice = "" & Content.Fields("標準卸価格") End If End If End If Shokai = Replace(Shokai, "<BR>", vbCrLf) If ShohinGazoKubun = "" Then ShohinGazoKubun = "1" End If %> <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 = 2; HomeAlias = "<% = HomeAlias %>"; HomeAliasSL = "<% = HomeAliasSL %>"; //商品CD及び商品名の配列を作成 Val = new Array(); Tex = new Array(); <% Dim Query2 Dim Content2 Dim ii Dim jj ii = 0 jj = 0 'TDA市場Mから市場(市場CD)を取得 Query = "exec SPM市場一覧 '" & GB_SystemCD & "', '" & EnshuCD & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then Do While Not(Content.BOF Or Content.EOF) Response.Write("Val[" & ii & "] = new Array();" & vbCrLf) Response.Write("Tex[" & ii & "] = new Array();" & vbCrLf) 'TDA商品Mから商品CDと商品名を取得し、JavaScript用の配列として書き出す If ii = 0 Then '最上列に全商品一覧 Query2 = "exec SPM商品一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & GB_GakuseiNo & "'" Else Query2 = "exec SPM商品市場一覧2 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & Content.Fields("市場CD") & "', '" & GB_GakuseiNo & "'" End If Set Content2 = OpenQuery(Query2) If Not(Content2.BOF Or Content2.EOF) Then jj = 0 Response.Write("Val[" & ii & "][" & jj & "] = '';" & vbCrLf ) Response.Write("Tex[" & ii & "][" & jj & "] = ' ';" & vbCrLf ) jj = jj + 1 Do While Not(Content2.BOF Or Content2.EOF) Response.Write("Val[" & ii & "][" & jj & "] = '" & Content2.Fields("商品CD") & "';" & vbCrLf ) Response.Write("Tex[" & ii & "][" & jj & "] = '" & Content2.Fields("商品名称") & "';" & vbCrLf ) Content2.MoveNext jj = jj + 1 Loop End If If ii <> 0 Then Content.MoveNext End If ii = ii + 1 Loop '最下列に市場非限定一覧 Response.Write("Val[" & ii & "] = new Array();" & vbCrLf) Response.Write("Tex[" & ii & "] = new Array();" & vbCrLf) Query2 = "exec SPM商品市場一覧 '" & GB_SystemCD & "', '" & EnshuCD & "', '', '" & GB_GakuseiNo & "'" Set Content2 = OpenQuery(Query2) If Not(Content2.BOF Or Content2.EOF) Then jj = 0 Response.Write("Val[" & ii & "][" & jj & "] = '';" & vbCrLf ) Response.Write("Tex[" & ii & "][" & jj & "] = ' ';" & vbCrLf ) jj = jj + 1 Do While Not(Content2.BOF Or Content2.EOF) Response.Write("Val[" & ii & "][" & jj & "] = '" & Content2.Fields("商品CD") & "';" & vbCrLf ) Response.Write("Tex[" & ii & "][" & jj & "] = '" & Content2.Fields("商品名称") & "';" & vbCrLf ) Content2.MoveNext jj = jj + 1 Loop End If End If %> function CngShohinList(obj) { form1.ShohinCD.options.length = Val[obj.selectedIndex].length; //配列長を変更 for (i = 0; i < Val[obj.selectedIndex].length; i++) { form1.ShohinCD.options[i].value = Val[obj.selectedIndex][i]; form1.ShohinCD.options[i].text = Tex[obj.selectedIndex][i]; } form1.ShohinCD.selectedIndex = 0; } //商品画像の表示 function GazoHenko(ShohinGazoURL) { if (ShohinGazoURL != '') { ShohinGazo.innerHTML = '<img src="' + ShohinGazoURL + '" WIDTH="120" HEIGHT="90">'; //商品画像URLがNULLの場合は代替表示 } else { ShohinGazo.innerHTML = '<div style="width:120px; height:90; border:1px #000000 solid; text-align:center;" class="tx1618"><BR><BR>画像無し</div>'; } } //商品画像区分を変更した際の表示画像変更処理 function GazoKubunHenko(mode) { if (mode == 1) { GazoHenko(ConvShohinGazo(form1.ShohinCD.value)); } else if (mode == 2) { //商品広告画像が指定されている場合 if (form1.KoukokuGazo.value != '') { GazoHenko(form1.KoukokuGazo.value); //商品広告画像が指定されていない場合はNULL若しくは元画像 } else { GazoHenko('<% = OldKoukokuGazoURL %>'); } } else { GazoHenko(''); } } //商品が変更された際に商品画像区分が1であれば表示商品画像を変更する function ShohinHenko() { if (form1.ShohinGazoKubun[1].checked == true) { GazoKubunHenko(1); } } //広告画像の変更 function KoukokuGazoHenko(mode) { var TmpURL = ''; //新規画像が指定された場合 if (mode == 'NewGazo') { //クライアントローカルパスをセット TmpURL = form1.KoukokuGazo.value; //商品画像変更フラグを立てる form1.KoukokuGazoHenkoFlg.value = '1'; //商品画像区分を2に変更する form1.ShohinGazoKubun[2].checked = true; //元に戻すボタンが表示された場合 } else { //フォームクリア document.form1.elements["KoukokuGazo"].parentNode.replaceChild(document.form1.elements["KoukokuGazo"].cloneNode(false), document.form1.elements["KoukokuGazo"]); //商品画像変更フラグを降ろす form1.KoukokuGazoHenkoFlg.value = '0'; //元の商品広告画像があればセットする TmpURL = '<% = ShohinGazoURL %>'; } //商品画像区分が2であれば表示商品画像を変更する if (form1.ShohinGazoKubun[2].checked == true) { GazoHenko(TmpURL); } } function ConvShohinGazo(SyohinCD) { <% Query = "exec SPM商品一覧 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & GB_GakuseiNo & "'" Set Content = OpenQuery(Query) Do While Not(Content.BOF Or Content.EOF) Dim ImageFile ImageFile = "" If Content.Fields("画像ファイル") <> "" Then ImageFile = Fgoods & "/" & EnshuCD & "/" & Content.Fields("画像ファイル") End If Response.Write(" if (SyohinCD == """ & Content.Fields("商品CD") & """)return """ & ImageFile & """;" & vbCrLf) Content.MoveNext Loop %> return ""; } --> </SCRIPT> <body onkeydown="if(ExitFlg==2)ExitFlg=3;" onBeforeUnload="window.event.returnValue = ExitMsg(ExitFlg)" bgcolor="#5C70B6" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0"> <form name="form1" method="POST" action="portal_Shohin_bin.asp" ENCTYPE="multipart/form-data"> <input type="hidden" name="ShelfCD" value="<% = ShelfCD %>"> <input type="hidden" name="KoukokuGazoHenkoFlg" value="0"> <input type="hidden" name="OldKoukokuGazo" value="<% = ShohinGazo %>"> <input type="hidden" name="ShijoCD" value="<% = ShijoCD %>"> <% Response.Write(HtmlDesign(11)) Response.Write(HttpL3_1("保存", "SubmitCheck()", " 商品棚に戻る ", "tblbtn('portal_shelf_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="1" HEIGHT="100%"> <TR> <TD ALIGN="CENTER" BACKGROUND="/<% = HomeAlias %>/images/window_bk.gif"> <TABLE WIDTH="615" BORDER="1" CELLSPACING="0" CELLPADDING="3" BORDERCOLOR="#000000" BGCOLOR="#FFFFCC" CLASS="tx1416" STYLE="border-collapse: collapse"> <TR> <td WIDTH="110" height="24" bgcolor="#FFEE88">商品</td> <td> <% If ShelfCD <> "" Then %> <% = ShohinMeisho %> <input type="hidden" name="ShohinCD" value="<% = ShohinCD %>"> <% Else %> 市場:<select name="ShijoCD" size="1" onChange="CngShohinList(this)" class="tbox4"> <option value="">全商品</option> <% Query = "exec SPM市場一覧 '" & GB_SystemCD & "','" & EnshuCD & "'" Set Content = OpenQuery(Query) Do While Not(Content.BOF Or Content.EOF) Response.Write("<option value=""" & Content.Fields("市場CD") & """>" & Content.Fields("市場名称") & "</option>" & vbCrLf) Content.MoveNext Loop '市場を限定しない商品 Response.Write("<option value="""">市場非限定</option>" & vbCrLf) %> </select> <select name="ShohinCD" size="1" onChange="ShohinHenko();" class="tbox4"> <option value=""> </option> <% Query = "exec SPM商品一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & GB_GakuseiNo & "'" Set Content = OpenQuery(Query) Do While Not(Content.BOF Or Content.EOF) Response.Write("<option value=""" & Content.Fields("商品CD") & """>" & Content.Fields("商品名称") & "</option>" & vbCrLf) Content.MoveNext Loop %> </select> <% End If %> </td> </TR> <TR> <td height="30" bgcolor="#FFEE88">商品広告画像<BR>(120×90)</td> <td> <TABLE BORDER="0" CELLSPACING="0" CELLPADDING="0" CLASS="tx1416"> <TR> <td WIDTH="130"> <div id="ShohinGazo"> <% If ShohinGazoURL <> "" Then %> <img src="<% = ShohinGazoURL %>" WIDTH="120" HEIGHT="90"> <% Else %> <div style="width:120px; height:90; border:1px #000000 solid; text-align:center;" class="tx1618"><BR><BR>画像無し</div> <% End If %> </div> </td> <td> <INPUT type='radio' name='ShohinGazoKubun' value="0" onClick="GazoKubunHenko(0);" <% If ShohinGazoKubun = "0" Then Response.Write(" checked") End If %>>画像を表示しない<BR><BR> <INPUT type='radio' name='ShohinGazoKubun' value="1" onClick="GazoKubunHenko(1);" <% If ShohinGazoKubun = "1" Then Response.Write(" checked") End If %>>商品画像をそのまま表示する<BR><BR> <INPUT type='radio' name='ShohinGazoKubun' value="2" onClick="GazoKubunHenko(2);" <% If ShohinGazoKubun = "2" Then Response.Write(" checked") End If %>>以下で指定された広告画像を表示する </td> </TR> </TABLE> 広告画像:<input type="file" name="KoukokuGazo" value="" size="46" UNSELECTABLE="On" onChange="KoukokuGazoHenko('NewGazo');" class="tbox4"> <input type="button" style="width:66;" value="元に戻す" onClick="KoukokuGazoHenko('');"> </td> </TR> <TR> <td height="24" bgcolor="#FFEE88">見出し</td> <td> <input type="text" name="Midashi" value="<% = Midashi %>" style="height:20;" size="80" onKeyDown="FormKeyDown(this);" onBlur="FormStrLeftIME(this, 80, true);" class="tbox4_ime"> </td> </TR> <TR> <td height="24" bgcolor="#FFEE88">商品紹介</td> <td> <textarea name="Shokai" rows="3" wrap="soft" cols="79" onBlur="FormStrLeftIME(this, 216, true);" class="tarea4_ime"><% = Shokai %></textarea> </td> </TR> <TR> <td height="24" bgcolor="#FFEE88">希望卸価格</td> <td> <input type="text" name="PurchasePrice" size="14" value="<% = ConvIntToMoney(PurchasePrice, false, false) %>" onKeyup="FormStrFloat(this,10,0);" onKeypress="FormStrFloat(this,10,0);" onBlur="FormStrFloatCutoff(this);" class="tbox5"> </td> </TR> </TABLE> </TD> </TR> </TABLE> </TD> </TR> </TABLE> </div> </form> </body> <script language="JavaScript" type="text/JavaScript"> <!-- function SubmitCheck() { if (form1.ShohinCD.value == "") { alert("商品を選択してください "); form1.ShohinCD.focus(); return false; } if (form1.Midashi.value == "") { alert("見出しを入力してください "); form1.Midashi.focus(); return false; } SubmitReal(form1); return true; } //初期画像表示 GazoKubunHenko(<% = ShohinGazoKubun %>); //修正モードは商品変更処理を行う <% If ShelfCD <> "" Then %> ShohinHenko(); <% End If %> --> </script> <% = HtmlFooter %> </html> <% End Sub %>