% ' main() Sub main() If Not(SessionCheck()) Then Exit Sub End If Dim TmpEnshuCD Dim TmpGroupCD Dim GroupPassword Dim SiteiYMD Dim NRflg, ErrMSG , Action Dim UserID, Shimei, ShimeiRyakuMeisyo, Password '学生番号 、ユーザー名、 パスワード Dim GroupCD, GroupName , LastLoginYMD 'グループCD、グループ名、最新ログイン日 Dim DataCnt Dim Query Dim Content Dim RouteType RouteType = Request("RouteType") Dim Page Page = Request("Page") UserID = Request("UserID") TmpEnshuCD = Request("TmpEnshuCD") GroupPassword = Request("GroupPassword") SiteiYMD = Request("SiteiYMD") NRflg = Request("nr") Action = Request("Action") UserID = Request("UserID") Shimei = Request("Shimei") Password = Request("Password") GroupCD = Request("GroupCD") TmpGroupCD = Request("TmpGroupCD") '絞り込み状態を保持 LastLoginYMD = Request("LastLoginYMD") ErrMSG = Request("ErrMSG") If NRflg = "r" then UserID = Request("UserID") Shimei = Request("Shimei") ShimeiRyakuMeisyo = Request("ShimeiRyakuMeisyo") Password = Request("Password") GroupCD = Request("GroupCD") LastLoginYMD = Request("LastLoginYMD") ErrMSG = Request("ErrMSG") Else Query = "exec SPMユーザー取得 '" & GB_SystemCD & "','" & UserID & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then Shimei = Content.Fields("氏名") ShimeiRyakuMeisyo = Content.Fields("氏名略名称") GroupCD = Content.Fields("学生グループCD") LastLoginYMD = Content.Fields("最新ログイン日") Password = Content.Fields("パスワード") End If End If %>