% ' %> <% main() Sub main() Dim EnshuName Dim TmpEnshuCD Dim TmpGroupCD Dim UserID, Shimei, GroupCD, GroupPassword Dim RouteType Dim DataCnt Dim RowCnt Dim SiteiYMD SiteiYMD = Request("SiteiYMD") If SiteiYMD = "" Then SiteiYMD = Date() End If Dim Page Page = Request("Page") If Page <> "" Then Page = ConvMoneyToInt(Page) Else Page = 0 End If Dim PageRow PageRow = 100 Dim TmpUserID TmpUserID = Request("TmpUserID") Dim Query Dim Content If Not(SessionCheck()) Then Exit Sub End If UserID = Request("UserID") Shimei = Request("Shimei") TmpEnshuCD = Request("TmpEnshuCD") TmpGroupCD = Request("TmpGroupCD") GroupPassword = Request("GroupPassword") RouteType = Request("RouteType") If GB_Admin = 1 Then EnshuCD = "" End If '演習名称GET 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 %> <% = HtmlHeader("") %>
<% = HtmlFooter %> <% End Sub %>