<% ' ' ' %> <% main() Sub main() If Not(SessionCheck()) Then Exit Sub End If Dim PageType PageType = "" Dim TyohyoKubun TyohyoKubun = Request("TyohyoKubun") Dim KanriKubun KanriKubun = Request("KanriKubun") Dim RouteType RouteType = Request("RouteType") %> <% = HtmlHeader("") %> <% If InStr(RouteType, "HojyoboOnly") > 0 Or InStr(RouteType, "ViewOnly") > 0 Then Response.Write(HtmlDesign(2)) Else Response.Write(HtmlDesign(1)) End If If GB_Admin >= 1 Then Response.Write(HttpL1(4)) Else Response.Write(HttpL1(3)) End If 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_2("修正", "tblbtn( 'fm_stockholder_equity.asp')", "", "", "", "", "", "", "", "")) 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_2("修正", "tblbtn( 'fm_stockholder_equity_view.asp')", "", "", "", "", "", "", "", "")) 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_2("", "", "", "", "", "", "", "", "", "")) End If Response.Write(HttpL3_1("印刷", "PrintoutReal()", "", "", "", "", "", "", "", "")) Response.Write(HttpL4("株主資本等変動計算書集計マスター", "")) %> <% = HtmlFooter %>  <% End Sub %>