<% ' %> <% main() Sub main() Dim KanriKubun Dim EnshuName , SaimokuKubun ,GyoshuKubun Dim Query Dim Content Dim Content2 Dim HyojiFlg Dim MSG If Not(SessionCheck()) Then Exit Sub End If KanriKubun = Request("KanriKubun") MSG = Request("MSG") GyoshuKubun = Request("GyoshuKubun") SaimokuKubun = Request("SaimokuKubun") If SaimokuKubun = "" Then SaimokuKubun = "%" End If '演習名称GET EnshuName = ConvEnshuMeisyo(EnshuCD) Dim RouteType RouteType = Request("RouteType") HyojiFlg = Request("HyojiFlg") If HyojiFlg = "" Then HyojiFlg = "0" End If Dim KamokuCD KamokuCD = Request("KamokuCD") Dim FirstForm '初期表示用選択フォーム特定変数 %> <% = HtmlHeader("") %>
<% Response.Write(HtmlDesign(1)) Response.Write(HttpL1(4)) Response.Write(HttpL2("運用管理メニュー" ,"tblbtn( '/" & HomeAlias & "/admin/admenu_w.asp')", "マスター管理", "tblbtn( '/" & HomeAlias & "/admin/master/fm_master_select.asp')", "勘定科目マスター", "", "", "", "", "", "", "")) Response.Write(HttpL3("", "" ,"", "", "", "", "", "", "", "", "", "", "", "", "", "")) Response.Write(HttpL3_1("保存", "SubmitCheck()", "", "", "", "", "", "", "", "")) Response.Write(HttpL3_2("戻る", "tblbtn( 'fm_kamoku_ichiran.asp?KanriKubun=" & KanriKubun & "&EnshuCD=" & EnshuCD & "&GyoshuKubun=" & GyoshuKubun & "&KamokuCD=" & KamokuCD & "&RouteType=" & RouteType &"')", "", "", "", "", "", "", "", "")) Dim Title Title = "" If GyoshuKubun = "B" Then Title = "銀行" ElseIf GyoshuKubun = "G" Then Title = "製造原価" End If Response.Write(HttpL4(Title & "勘定科目", "特別勘定区分設定")) Response.Write(HttpL5(MSG)) %>
<% = HtmlFooter %> <% End Sub %>