<% ' main() Sub main() If Not(SessionCheck()) Then Exit Sub End If Dim EnshuCD, EnshuName, FromYmd, ToYmd, EnshuKubun, TaxRate Dim DenpyoKubun, GinkoKozaToza, GinkoKozaFutu, GinkoKozaBetsudan, GinkoKozaTsumitate, GinkoKozaTeiki Dim SeiriKinyuKeisiki, MotoEnshuCD Dim MasterEnshu Dim ErrMsg Dim CopyMotoName Dim Query, Content EnshuCD = Request("EnshuCD") If EnshuCD <> "" Then Query = "exec SPM演習取得 '" & GB_SystemCD & "','" & EnshuCD & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then Dim YobiB EnshuName = Content.Fields("演習名称") EnshuKubun = Content.Fields("演習区分") FromYmd = Content.Fields("会計開始日") ToYmd = Content.Fields("会計終了日") TaxRate = Content.Fields("消費税") DenpyoKubun = Content.Fields("利用伝票数区分") YobiB = Content.Fields("利用銀行口座種類") GinkoKozaToza = Mid(YobiB , 1, 1) GinkoKozaFutu = Mid(YobiB , 2, 1) GinkoKozaBetsudan = Mid(YobiB , 3, 1) GinkoKozaTsumitate = Mid(YobiB , 4, 1) GinkoKozaTeiki = Mid(YobiB , 5, 1) SeiriKinyuKeisiki = Content.Fields("整理記入精算表利用") MasterEnshu = Content.Fields("マスター演習") CopyMotoName = "" & Content.Fields("コピー元演習名称") End If Else FromYmd = DateSerial(Year(Date()), 4, 1) ToYmd = DateSerial(Year(DateAdd("yyyy", 1, Date())), 3, 31) End If '演習管理者IDを再取得(書類一覧後の対処)(221201小野美) If GB_Admin = "2" And EnshuCD <> "" Then Query = "exec SPM演習取得 '" & GB_SystemCD & "','" & EnshuCD & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then Session(HomeAlias & "GakuseiNo") = "" & Content.Fields("演習管理者ID") GB_GakuseiNo = Session(HomeAlias & "GakuseiNo") GakuseiNo = GB_GakuseiNo End If End If Dim RouteType RouteType = Request("RouteType") Dim SankaCheck SankaCheck = 0 Query = "exec SPM演習_参加グループ一覧 '" & GB_SystemCD & "','" & EnshuCD & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then SankaCheck = 1 Else Query = "exec SPM演習_参加ユーザー一覧2 '" & GB_SystemCD & "','" & EnshuCD & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then SankaCheck = 1 End If End If 'バックアップフォルダの確認 Dim KyotsuPath Query = "exec SPMシステム情報取得 '" & GB_SystemCD & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then KyotsuPath = Content.Fields("共通データパス") End If Dim fso Set fso = CreateObject("Scripting.FileSystemObject") If Not(fso.FolderExists(KyotsuPath)) Then KyotsuPath = "" End If Dim NextPage NextPage = "2" If PackageMode = 1 Then NextPage = "22" End If %> <% = HtmlHeader("") %> <% Response.Write(HtmlDesign(1)) Response.Write(HttpL1(4)) If Request("RouteType") = "Kantan" Then Response.Write(HttpL2("運用管理メニュー" ,"tblbtn( '/" & HomeAlias & "/admin/admenu1.asp')", "演習管理", "", "", "", "", "", "", "", "", "")) Else Response.Write(HttpL2("運用管理メニュー" ,"tblbtn( '/" & HomeAlias & "/admin/admenu_w.asp')", "演習管理", "", "", "", "", "", "", "", "", "")) End If Response.Write(HttpL3("", "" ,"", "", "", "", "", "", "", "", "", "", "", "", "", "")) If GB_Admin = 1 Then 'Response.Write(HttpL3_1("削除", "DeleteCheck()", "演習会社ログイン", "tblbtn('fm_enshu_ichiran_main_bin.asp?EnshuCD=" & EnshuCD & "&AutoLogin=AutoLogin');", "", "", "", "", "", "")) 'Response.Write(HttpL3_1("削除", "DeleteCheck()", "演習操作", "tblbtn('fm_enshu_ichiran_main_bin.asp?EnshuCD=" & EnshuCD & "&AutoLogin=Control');", "演習会社ログイン", "tblbtn('fm_enshu_ichiran_main_bin.asp?EnshuCD=" & EnshuCD & "&AutoLogin=AutoLogin');", "", "", "", "")) Response.Write(HttpL3_1("削除", "DeleteCheck()", "演習操作", "tblbtn('fm_enshu_ichiran_main_bin.asp?EnshuCD=" & EnshuCD & "&AutoLogin=Control');", "演習会社ログイン", "tblbtn('fm_enshu_ichiran_main_bin.asp?EnshuCD=" & EnshuCD & "&AutoLogin=AutoLogin');", "", "", "", "")) Else 'Response.Write(HttpL3_1("", "", "", "", "", "", "", "", "", "")) Response.Write(HttpL3_1(" 演習操作 ", "tblbtn('fm_enshu_ichiran_main_bin.asp?EnshuCD=" & EnshuCD & "&AutoLogin=Control')", "演習会社ログイン", "tblbtn('fm_enshu_ichiran_main_bin.asp?EnshuCD=" & EnshuCD & "&AutoLogin=AutoLogin')", "", "", "", "", "", "")) End If Dim SeitoKaishaBtnT Dim SeitoKaishaBtnV SeitoKaishaBtnT = "" SeitoKaishaBtnV = "" 'If PackageMode <> 1 Then SeitoKaishaBtnT = "生徒選択会社解除" SeitoKaishaBtnV = "tblbtn('fm_enshu_view_user.asp?EnshuCD=" & EnshuCD & "')" 'End If If EnshuKubun = "G" Then If GB_Admin = 1 Then Response.Write(HttpL3_2("一覧表示", "tblbtn( '/" & HomeAlias & "/admin/enshu/fm_enshu_ichiran.asp?RouteType=" & RouteType & "&EnshuCD=" & EnshuCD & "')", "高度な設定", "if(confirm('メンテナンス時以外では高度な設定は利用しません\r\n高度な設定のページに移動しますか?'))tblbtn('fm_enshu1.asp?EnshuCD=" & EnshuCD & "&Kodo=1')", "" & SeitoKaishaBtnT & "", "" & SeitoKaishaBtnV & "", "次のページ", "tblbtn('fm_enshu" & NextPage & "_view.asp?EnshuCD=" & EnshuCD & "')", "", "")) ' Response.Write(HttpL3_2("一覧表示", "tblbtn( '/" & HomeAlias & "/admin/enshu/fm_enshu_ichiran.asp?RouteType=" & RouteType & "&EnshuCD=" & EnshuCD & "')", "高度な設定", "if(confirm('メンテナンス時以外では高度な設定は利用しません\r\n高度な設定のページに移動しますか?'))tblbtn('fm_enshu1.asp?EnshuCD=" & EnshuCD & "&Kodo=1')", "生徒会社再選択", "tblbtn('fm_enshu_view_user.asp?EnshuCD=" & EnshuCD & "')", "次のページ", "tblbtn('fm_enshu2_view.asp?EnshuCD=" & EnshuCD & "')", "", "")) ' Response.Write(HttpL3_2("一覧表示", "tblbtn( '/" & HomeAlias & "/admin/enshu/fm_enshu_ichiran.asp?RouteType=" & RouteType & "&EnshuCD=" & EnshuCD & "')", "高度な設定", "if(confirm('メンテナンス時以外では高度な設定は利用しません\r\n高度な設定のページに移動しますか?'))tblbtn('fm_enshu1.asp?EnshuCD=" & EnshuCD & "&Kodo=1')", "生徒会社選択", "tblbtn('fm_enshu_user.asp?EnshuCD=" & EnshuCD & "')", "次のページ", "tblbtn('fm_enshu" & NextPage & "_view.asp?EnshuCD=" & EnshuCD & "')", "", "")) Else Response.Write(HttpL3_2("高度な設定", "if(confirm('メンテナンス時以外では高度な設定は利用しません\r\n高度な設定のページに移動しますか?'))tblbtn('fm_enshu1.asp?EnshuCD=" & EnshuCD & "&Kodo=1')", "生徒会社再選択", "tblbtn('fm_enshu_view_user.asp')", "次のページ", "tblbtn('fm_enshu" & NextPage & "_view.asp?EnshuCD=" & EnshuCD & "')", "", "", "", "")) End If Else If GB_Admin = 1 Then Response.Write(HttpL3_2("一覧表示", "tblbtn( '/" & HomeAlias & "/admin/enshu/fm_enshu_ichiran.asp?RouteType=" & RouteType & "&EnshuCD=" & EnshuCD & "')", "高度な設定", "if(confirm('メンテナンス時以外では高度な設定は利用しません\r\n高度な設定のページに移動しますか?'))tblbtn('fm_enshu1.asp?EnshuCD=" & EnshuCD & "&Kodo=1')", "次のページ", "tblbtn('fm_enshu" & NextPage & "_view.asp?EnshuCD=" & EnshuCD & "')", "", "", "", "")) Else Response.Write(HttpL3_2("高度な設定", "if(confirm('メンテナンス時以外では高度な設定は利用しません\r\n高度な設定のページに移動しますか?'))tblbtn('fm_enshu1.asp?EnshuCD=" & EnshuCD & "&Kodo=1')", "次のページ", "tblbtn('fm_enshu" & NextPage & "_view.asp?EnshuCD=" & EnshuCD & "')", "", "", "", "", "", "")) End If End If Response.Write(HttpL4("演習管理", "基本")) Response.Write(HttpL5("" & ErrMsg & "")) %> <% 'PackageMode = 1 %> <% 'TaxRateSelection = 0 %> <% = HtmlFooter %> <% End Sub %>