<% Dim WK_Zandaka_KanjyoCD() Dim WK_Zandaka_KanjyoName() Dim WK_Zandaka_KariKingaku() Dim WK_Zandaka_KashiKingaku() Dim WK_Zandaka_KanjyoKubun() Dim WK_Zandaka_TaisyakuKubun() Dim WK_Zandaka_SyukeiCD() Dim ShowCount, MaxCount Dim CSVOutput ' ' %> <% main() Sub main() If Not(SessionCheck()) Then Exit Sub End If Dim EnshuName, HyojiJyoken Dim Query Dim Content Dim ErrMsg Dim EnshuCD 'クエリから演習CDを取得する EnshuCD = Request("EnshuCD") 'クエリがNULLならセッションから演習CDを取得する If EnshuCD = "" Then EnshuCD = Session(HomeAlias & "EnshuCD") End If 'セッションに演習CDを代入する Session(HomeAlias & "EnshuCD") = EnshuCD Dim Joken Joken = Request("Joken") Dim Addr, AutoFlg Dim tmp Dim KaisyaCD, GakuseiNo, BunsyoSyuruiCD, BunsyoNaiyoCD Dim Param1, Param2 Dim KaisyaSelect KaisyaCD = Request("KaisyaCD") GakuseiNo = Request("GakuseiNo") BunsyoSyuruiCD = Request("BunsyoSyuruiCD") BunsyoNaiyoCD = Request("BunsyoNaiyoCD") Dim SakuseiKaisyaCD Dim EnshuKubun Dim RiyoDenpyoSu Query = "exec SPM演習取得 '" & GB_SystemCD & "', '" & EnshuCD & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then EnshuKubun = Content.Fields("演習区分") RiyoDenpyoSu = Content.Fields("利用伝票数区分") EnshuMeisyo = Content.Fields("演習名称") End If '演習参加ユーザー配列作成 Dim UserCnt Dim UserAry ReDim UserAry(0) Query = "exec SPM演習_参加ユーザー一覧2 '" & GB_SystemCD & "','" & EnshuCD & "'" Set Content = OpenQuery(Query) Do While Not(Content.BOF Or Content.EOF) ReDim PreServe UserAry(UBound(UserAry) + 1) UserAry(UBound(UserAry)) = "" & Content.Fields("学生番号") Content.MoveNext Loop %> <% = HtmlHeader("") %>
<% Response.Write(HtmlDesign(10)) Response.Write(HttpL1(4)) If GB_Admin = 2 Then Response.Write(HttpL2("運用管理メニュー" ,"tblbtn( '/" & HomeAlias & "/admin/admenu_w.asp')", "書類一覧", "", "", "", "", "", "", "", "", "")) Else Response.Write(HttpL2("運用管理メニュー" ,"tblbtn( '/" & HomeAlias & "/admin/admenu_w.asp')", "書類一覧", "", "" , "", "", "", "", "", "", "")) End If Response.Write(HttpL3("","" ,"", "", "", "", "", "", "", "", "", "", "", "", "", "")) ' Response.Write(HttpL3_1("印刷", "PrintoutReal()", "", "", "", "", "", "", "", "")) Response.Write(HttpL3_1(" 書類一覧に戻る ", "tblbtn('fm_tyohyo.asp')", "照会", "syokaibtn()", "印刷", "PrintoutRealInline('" & Replace(Request.ServerVariables("URL"), ".asp", "_print.asp") & "?EnshuCD=" & EnshuCD & "&Joken=" & Joken & "');", "", "", "", "")) Response.Write(HttpL3_2("", "", "", "", "", "", "", "", "", "")) Response.Write(HttpL4("作成書類集計一覧", "")) Response.Write(HttpL5(ErrMsg)) %>
<% = HtmlFooter %> <% End Sub %>