<!-- #include file="../../../include.asp" --> <% '<!-- '################################################ ' 名称 :市場情報設定設定 ' 作成日:2002/8/18 ' 作成者:徳田 ' 目的 :市場情報入力画面を表示する。 ' 概要 : ' <<表示>> ' <<入力チェック>> ' ・NULLチェック ' ' 修正: '################################################ '--> main() Sub main() If Not(SessionCheck()) Then Exit Sub End If Dim ShijyoMeisyo Dim ShijyoCD Dim EnshuName Dim Query, Content Dim Action Dim ErrMsg Dim NRflg Action = Request("Action") ShijyoCD = Request("ShijyoCD") ErrMsg = Request("ErrMsg") NRflg = Request("nr") '演習名称GET EnshuName = ConvEnshuMeisyo(EnshuCD) If NRflg = "r" then ShijyoCD = Request("ShijyoCD") ShijyoMeisyo = Request("ShijyoMeisyo") Else Query = "exec SPM市場取得 '" & GB_SystemCD & "','" & EnshuCD & "','" & ShijyoCD & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then ShijyoCD = Content.Fields("市場CD") ShijyoMeisyo = Content.Fields("市場名称") End If 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"> <!-- HomeAlias = "<% = HomeAlias %>"; HomeAliasSL = "<% = HomeAliasSL %>"; ExitFlg = 2; --> </SCRIPT> <body onkeydown="if(ExitFlg==2)ExitFlg=3;" onBeforeUnload="window.event.returnValue = ExitMsg(ExitFlg)" bgcolor="#5C70B6" text="#000000" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0"> <form OnKeyDown="FormKeyDown(this)" method="POST" name="form1" action="fm_Shijyo_bin.asp" autocomplete="off"> <input type="hidden" name="Action" value="<% = Action %>"> <% Response.Write(HtmlDesign(1)) Response.Write(HttpL1(4)) If GB_Admin >= 1 Then Response.Write(HttpL2("運用管理メニュー" ,"tblbtn( '/" & HomeAlias & "/admin/admenu_w.asp')", "マスター管理", "tblbtn( '/" & HomeAlias & "/admin/master/fm_master_select.asp')", "市場マスター", "", "", "", "", "", "", "")) Else Response.Write(HttpL2("運用管理メニュー" ,"tblbtn( '/" & HomeAlias & "/admin/admenu_w.asp')", "マスター管理", "tblbtn( '/" & HomeAlias & "/admin/master/fm_master_select.asp')", "市場マスター", "", "", "", "", "", "", "")) End If Response.Write(HttpL3("", "" ,"", "", "", "", "", "", "", "", "", "", "", "", "", "")) Response.Write(HttpL3_1("保存", "SubmitCheck()", "", "", "", "", "", "", "", "")) Response.Write(HttpL3_2("一覧表示", "tblbtn( 'fm_Shijyo_ichiran.asp')", "", "", "", "", "", "", "", "")) If Action = 1 Then Response.Write(HttpL4("市場マスター", "追加")) Else Response.Write(HttpL4("市場マスター", "修正")) End If Response.Write(HttpL5(ErrMsg)) %> <div id="L0" style="position: absolute; visibility: hidden; left: 0px; top: -2000px;"> <table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0"> <tr> <td align="center"> <table width="420" height="280" border="0" cellspacing="5" cellpadding="0" bgcolor="#ffffff" style="border:1px solid #000000"> <tr> <td align="center" background="/<% = HomeAlias %>/images/window_bk.gif?<% = GB_STU %>"><!--薄青のチェックの背景--> <table border="0" cellspacing="0" cellpadding="5"> <tr> <td> <TABLE WIDTH="700" BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="100%"> <TR> <TD HEIGHT="30" VALIGN="BOTTOM" WIDTH="600"> <TABLE WIDTH="700" HEIGHT="30" BORDER="1" CELLPADDING="0" CELLSPACING="0" BORDERCOLOR="#000000" BGCOLOR="#FFFFCC" CLASS="tx1416" STYLE="border-collapse: collapse"> <TR ALIGN="CENTER"> <TD WIDTH="220" HEIGHT="30">対象演習名</TD> <TD HEIGHT="30"><%= EnshuName %></TD> </TR> </TABLE> </TD> </TR> <TR> <td height="10"> </td> </TR> <TR> <TD VALIGN="TOP" WIDTH="700"> <TABLE WIDTH="700" HEIGHT="100" BORDER="1" CELLPADDING="2" CELLSPACING="0" BORDERCOLOR="#000000" BGCOLOR="#FFFFCC" CLASS="tx1416" STYLE="border-collapse: collapse"> <tr> <td width="200">市場コード</td> <td> <% If Action = 1 Then %> <input type="text" name="ShijyoCD" size="8" value="<% = ShijyoCD %>" class="tbox4" onBlur="SetString(this, 6, false);" >(6) <% Else %> <input type="text" name="ShijyoCD" size="8" value="<% = ShijyoCD %>" class="tbox4_ro" readonly tabindex="-1"> <% End If %> </td> </tr> <tr> <td width="200">市場名称</td> <td> <input type="text" name="ShijyoMeisyo" size="14" value="<% = ShijyoMeisyo %>" onBlur="SetString(this, 12, true);" class="tbox4_ime">(6) </td> </tr> </TABLE> </TD> </TR> </TABLE> </td> </tr> </table> </td> </tr> </table> </td> </tr> </table> </div> </form> </body> <% = HtmlFooter %> </html> <% End Sub %> <SCRIPT LANGUAGE="JavaScript"> function SubmitCheck() { if (form1.ShijyoCD.value == "") { alert("市場コードを入力して下さい"); form1.ShijyoCD.focus(); return false; } if (form1.ShijyoMeisyo.value == "") { alert("市場名称を入力して下さい"); form1.ShijyoMeisyo.focus(); return false; } SubmitReal(form1); return true; } </script>