<%
'
main()
Sub main()
Dim Query, Content, rsts, RouteType
Dim GyosyuCD
GyosyuCD = Request("GyosyuCD")
Dim EnshuCD
EnshuCD = Request("EnshuCD")
Dim Jissenbi
Jissenbi = Request("Jissenbi")
If Jissenbi <> "" Then
Jissenbi = "'" & Jissenbi & "'"
Else
Jissenbi = "null"
End If
Dim NinshoID
NinshoID = UCase(Request("NinshoID"))
Dim NinshoPassword
NinshoPassword = UCase(Request("NinshoPassword"))
Dim Ninsho
Ninsho = 0
If NinshoID = "" & UCase("sj4admin") And NinshoPassword = "" & UCase("sj4master") Then
Ninsho = 1
End If
Query = "exec SPMシステム情報取得 '" & GB_SystemCD & "'"
Set Content = OpenQuery(Query)
If Not(Content.BOF Or Content.EOF) Then
If "" & UCase(Content.Fields("管理者コード")) = NinshoID And "" & UCase(Content.Fields("パスワード")) = NinshoPassword Then
Ninsho = 1
End If
End If
' Response.Write(Content.Fields("管理者コード") & vbCrLf)
' Response.Write(Content.Fields("パスワード") & vbCrLf)
Query = "exec SPM演習取得 '" & GB_SystemCD & "', '" & EnshuCD & "'"
Set Content = OpenQuery(Query)
If Not(Content.BOF Or Content.EOF) Then
If "" & UCase(Content.Fields("演習管理者ID")) = NinshoID And "" & UCase(Content.Fields("演習管理者パスワード")) = NinshoPassword Then
Ninsho = 1
End If
End If
' Response.Write(Content.Fields("演習管理者ID") & vbCrLf)
' Response.Write(Content.Fields("演習管理者パスワード") & vbCrLf)
If NinshoID = "" Then
Ninsho = 0
End If
If Ninsho = 1 Or GB_Admin >= 1 Then
Query = "exec SPM演習更新_実践日 '" & GB_SystemCD & "', '" & EnshuCD & "'"
Query = Query & ", " & Jissenbi
Set Content = OpenQuery(Query)
If Content.Fields.Count > 0 Then
rsts = Content.Fields(0)
End If
If GB_Admin >= 1 Then
Response.Redirect("/" & HomeAlias & "/admin/enshu/fm_jissenbi.asp?EnshuCD=" & EnshuCD & "&Message=更新しました")
ElseIf PackageMode = 1 Then
Response.Redirect("/" & HomeAlias & "/user/bk/menu_cyac.asp")
Else
Response.Redirect("/" & HomeAlias & "/user/bk/menu_" & LCase(GB_Gyosyu) & ".asp")
End If
End If
' Response.Write(GB_SystemCD & vbCrLf)
' Response.Write(GB_EnshuCD & vbCrLf)
' Response.Write(NinshoID & vbCrLf)
' Response.Write(NinshoPassword & vbCrLf)
' Response.Write(Jissenbi & vbCrLf)
' Response.Write(Ninsho & vbCrLf)
%>
<% = AppTitle %>
管理者認証出来ませんでした 戻る
<%
End Sub
%>