<%
'
'
%>
<%
main()
Sub main()
'Exit Sub
Session("MES_AppCD") = Request("MES_AppCD")
Session("MES_SystemCD") = Request("MES_SystemCD")
Session("MES_DBName") = Request("MES_DBName")
Session("MES_DBUser") = Request("MES_DBUser")
Session("MES_DBPass") = Request("MES_DBPass")
Session("MES_Admin") = Request("MES_Admin")
Session("MES_ForceEnshu") = Request("MES_ForceEnshu")
Session("MES_Enshu") = Request("MES_Enshu")
Session("MES_Group") = Request("MES_Group")
Session("MES_User") = Request("MES_User")
If Session("MES_Admin") = "1" Then
Session("MES_KanriID") = Session("MES_User")
Session("MES_User") = ""
ElseIf Session("MES_Admin") = "2" Then
Session("MES_KanriID") = Session("MES_User")
Session("MES_User") = Session("MES_Enshu")
ElseIf Session("MES_Admin") = "3" Then
Session("MES_KanriID") = Session("MES_User")
Session("MES_User") = Session("MES_Group")
End If
'アプリでボタンが押された場合は送信モード
If Request("Seq") = "0" Then
Response.Redirect("./message_form.asp")
'未読チェックでの自動表示時は閲覧モード
Else
Response.Redirect("./message_view.asp?Mode=Recv&Seq=" & Request("Seq"))
End If
%>
ホワイトボード
<% = "システムCD：" & Session("MES_SystemCD") & "
" & vbCrLf %>
<% = "アプリケーションCD：" & Session("MES_AppCD") & "
" & vbCrLf %>
<% = "データベース名：" & Session("MES_DBName") & "
" & vbCrLf %>
<% = "データベースユーザー：" & Session("MES_DBUser") & "
" & vbCrLf %>
<% = "データベースパスワード：" & Session("MES_DBPass") & "
" & vbCrLf %>
<% = "管理者識別：" & Session("MES_Admin") & "
" & vbCrLf %>
<% = "演習コード：" & Session("MES_Enshu") & "
" & vbCrLf %>
<% = "グループコード：" & Session("MES_Group") & "
" & vbCrLf %>
<% = "ユーザーID：" & Session("MES_User") & "
" & vbCrLf %>
<%
End Sub
%>