<% ' ' %> <% main() Sub main() Dim Url Dim RouteType Dim DbSyainNo Dim SyainNo Dim Action Dim HyojiFlg RouteType = Request("RouteType") Action = Request("Action") DbSyainNo = Request("DbSyainNo") SyainNo = Request("SyainNo") HyojiFlg = Request("HyojiFlg") Dim Label If RouteType <> "Kyuyo" Then Label = "社員" Else Label = "給与" End If %> <% = HtmlHeader("") %>
<% Response.Write(HtmlDesign(1)) Response.Write(HttpL1(2)) If RouteType <> "Kyuyo" Then Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", GB_GyosyuMeisyo, "tblbtn( '/" & HomeAlias & "/user/bk/menu_" & GB_Gyosyu & ".asp')", "社長室・総務部", "tblbtn('/" & HomeAlias & "/user/bk/menu_s4.asp')", "社員台帳", "", "", "", "", "")) Else If GB_Gyosyu <> "B" Then Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", GB_GyosyuMeisyo, "tblbtn( '/" & HomeAlias & "/user/bk/menu_" & GB_Gyosyu & ".asp')", "経理部", "tblbtn( '/" & HomeAlias & "/user/bk/menu_s1.asp')", "給与台帳", "", "", "", "", "")) Else Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", GB_GyosyuMeisyo, "tblbtn( '/" & HomeAlias & "/user/bk/menu_" & GB_Gyosyu & ".asp')", "経理業務", "tblbtn( '/" & HomeAlias & "/user/bk/menu_" & GB_Gyosyu & "1.asp')", "給与台帳", "", "", "", "", "")) End If End If Response.Write(HttpL3("", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "")) If RouteType <> "Kyuyo" Then Response.Write(HttpL3_1("照会", "syokaibtn()", "", "", "", "", "", "", "", "")) Else Response.Write(HttpL3_1("照会", "syokaibtn2()", " 全て照会 ", "tblbtn('../kyuyo/fk_kyuyo_ichiran.asp')", "", "", "", "", "", "")) End If If RouteType <> "Kyuyo" Then If HyojiFlg <> "1" Then Response.Write(HttpL3_2("追加", "tblbtn('fk_syain.asp?Action=1')", "離職者を表示", "tblbtn('fk_syain_ichiran.asp?HyojiFlg=1&DbSyainNo=" & DbSyainNo & "')", "", "", "", "", "", "")) Else Response.Write(HttpL3_2("追加", "tblbtn('fk_syain.asp?Action=1')", "離職者を表示しない", "tblbtn('fk_syain_ichiran.asp?DbSyainNo=" & DbSyainNo & "')", "", "", "", "", "", "")) End If Else If HyojiFlg <> "1" Then Response.Write(HttpL3_2(" 給与明細追加 ", "syokaibtn()", "離職者を表示", "tblbtn('fk_syain_ichiran.asp?HyojiFlg=1&DbSyainNo=" & DbSyainNo & "&RouteType=Kyuyo')", "", "", "", "", "", "")) Else Response.Write(HttpL3_2(" 給与明細追加 ", "syokaibtn()", "離職者を表示しない", "tblbtn('fk_syain_ichiran.asp?DbSyainNo=" & DbSyainNo & "&RouteType=Kyuyo')", "", "", "", "", "", "")) End If End If If RouteType <> "Kyuyo" Then Response.Write(HttpL4("社員台帳", "一覧表示")) Else Response.Write(HttpL4("給与台帳", "社員一覧")) End If %>
<% = HtmlFooter %> <% End Sub %>