% 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("") %>
<% = HtmlFooter %> <% End Sub %>