<% ' %> <% main() Sub main() Dim RowBreakNum, RowCount Dim Page RowCount = 0 RowBreakNum = 35 Dim EnshuName Dim TmpEnshuCD Dim TmpGroupCD Dim UserID , Shimei , GroupCD, GroupPassword Dim RouteType Dim DataCnt Dim SiteiYMD SiteiYMD = Request("SiteiYMD") If SiteiYMD = "" Then SiteiYMD = Date() End If Dim Query Dim Content If Not(SessionCheck()) Then Exit Sub End If UserID = Request("UserID") Shimei = Request("Shimei") TmpEnshuCD = Request("TmpEnshuCD") TmpGroupCD = Request("TmpGroupCD") GroupCD = Request("GroupCD") GroupPassword = Request("GroupPassword") RouteType = Request("RouteType") If GB_Admin = 1 Then EnshuCD = "" End If '演習名称ＧＥＴ Query = "exec SPM演習取得 '" & GB_SystemCD & "','" & EnshuCD & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then EnshuName = Content.Fields("演習名称") End If Dim bShow bShow = 1 If GB_Admin = 2 Then bShow = 0 Query = "exec SPMグループ取得 '" & GB_SystemCD & "','" & TmpGroupCD & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then If UCase(Content.Fields("グループキー")) = UCase(GroupPassword) Then bShow = 1 End If '演習管理者が作成したグループならグループキー無しでOK If UCase(Content.Fields("作成者ID")) = UCase(GB_EnshuID) Then bShow = 1 End If If Request("from") = "view" Then bShow = 1 GroupPassword = Content.Fields("グループキー") End If End If End If 'ページングのためここで取得 If TmpGroupCD = "" Then Query = "exec SPMユーザー一覧 '" & GB_SystemCD & "','" & TmpEnshuCD & "','%','" & UserID & "%','" & Shimei & "%', '" & SiteiYMD & "'" Else Query = "exec SPMユーザー一覧 '" & GB_SystemCD & "','" & TmpEnshuCD & "','" & TmpGroupCD & "','" & UserID & "%','" & Shimei & "%', '" & SiteiYMD & "'" End If Set Content = OpenQuery(Query) %> <% = HtmlHeader("") %> <% = PrintScriptX %> <% For Page = 1 To MaxPage If Page <> 1 Then Response.Write(PageBreakBefore) End If %>

<% Response.Write(PrintHeader(0, "ユーザー一覧")) %> ログインID 氏名 所属グループ名称 最新ログイン日 <% If GB_Admin = 1 Or bShow = 1 Then Do While Not(Content.BOF Or Content.EOF) RowCount = RowCount + 1 Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("") Content.MoveNext If (RowCount Mod RowBreakNum = 0) Then Exit Do End If Loop End If %> " & HardWrap(Content.Fields("学生番号")) & " " & HardWrap(Content.Fields("氏名")) & " " & HardWrap(Content.Fields("グループ名称")) & " " & SetTimeYYYYMMDD(Content.Fields("最新ログイン日")) & " <% Response.Write(PrintFooter()) %>

<% If (Content.BOF Or Content.EOF) Then Exit For End If Next %> <% End Sub %>