<% ' ' %> <% main() Sub main() If Not(SessionCheck()) Then Exit Sub End If Dim Cnt Dim RouteType RouteType = Request("RouteType") Dim TyohyoKubun Dim KanriKubun KanriKubun = Request("KanriKubun") TyohyoKubun = Request("TyohyoKubun") %> <% = HtmlHeader("") %>
<% 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')", "集計マスター", "", "", "", "", "", "", "")) Response.Write(HttpL3("", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "")) 'マスター編集のため一時許可 If EnshuCD <> "SYSORIGN" Then If GB_IEmode = "1" Then Response.Write(HttpL3_1("保存", "SubmitCheck()", "行の追加", "SpreadAddItem2(document.vaSpread1);", "行の挿入", "SpreadInsertItem(document.vaSpread1);", "行の削除", "SpreadDelItem(document.vaSpread1);", "", "")) Else '※HttpL3_1にボタンを追加する事前処理(210107小野) Call HttpL3_1_AddBtn( "", "", "", "", "", "", "", "", "", "") Response.Write(HttpL3_1("保存", "SubmitCheck()", "行挿入", "SpRowInsert();", "行削除", "SpRowDelete();", "行↑", "SpRowShift('Up');", "行↓", "SpRowShift('Dn');")) End If End If ' Response.Write(HttpL3_2("照会", "tblbtn('fm_syukei_view.asp?TyohyoKubun=" & TyohyoKubun & "')", "", "", "", "", "", "", "", "")) ElseIf InStr(KanriKubun, "kanri") > 0 Then Response.Write(HttpL2("運用管理メニュー" ,"tblbtn( '/" & HomeAlias & "/admin/admenu_w.asp')", "マスター管理", "tblbtn( '/" & HomeAlias & "/admin/master/fm_master_select.asp')", "集計マスター", "", "", "", "", "", "", "")) Response.Write(HttpL3("", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "")) 'マスター編集のため一時許可 If EnshuCD <> "SYSORIGN" Then If GB_IEmode = "1" Then Response.Write(HttpL3_1("保存", "SubmitCheck()", "行の追加", "SpreadAddItem2(document.vaSpread1);", "行の挿入", "SpreadInsertItem(document.vaSpread1);", "行の削除", "SpreadDelItem(document.vaSpread1);", "", "")) Else '※HttpL3_1にボタンを追加する事前処理(210107小野) Call HttpL3_1_AddBtn( "", "", "", "", "", "", "", "", "", "") Response.Write(HttpL3_1("保存", "SubmitCheck()", "行挿入", "SpRowInsert();", "行削除", "SpRowDelete();", "行↑", "SpRowShift('Up');", "行↓", "SpRowShift('Dn');")) End If End If ' Response.Write(HttpL3_2("照会", "tblbtn('fm_syukei_view.asp?TyohyoKubun=" & TyohyoKubun & "')", "", "", "", "", "", "", "", "")) Else Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", GB_GyosyuMeisyo, "tblbtn( '/" & HomeAlias & "/user/bk/menu_" & GB_Gyosyu & ".asp')", "社長室・総務部", "tblbtn( '/" & HomeAlias & "/user/bk/menu_s4.asp')", "マスター照会", "tblbtn( '/" & HomeAlias & "/user/bk/menu_s43.asp')", "集計マスター", "", "", "")) Response.Write(HttpL3("", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "")) Response.Write(HttpL3_1("", "", "", "", "", "", "", "", "", "")) Response.Write(HttpL3_2("", "", "", "", "", "", "", "", "", "")) End If Response.Write(HttpL4("株主資本等変動計算書集計マスタ", "")) If EnshuCD = "SYSORIGN" Then Response.Write(HttpL5("演習コード SYSORIGN の演習は修正出来ません")) End If %>
<% If GB_IEmode <> "1" Then %> <% Else 'IEモード %> <% End IF %> <% = HtmlFooter %> <% End Sub %>