<% ' ' main() Sub main() If Not(SessionCheck()) Then Exit Sub End If Dim Query Dim Content Dim TmpEnshuCD TmpEnshuCD = Request("TmpEnshuCD") Dim TmpGroupCD TmpGroupCD = Request("TmpGroupCD") Dim Title Title = Request("Title") Dim Message Message = Request("Message") Message = Replace(Message, "
", vbCrLf) '演習管理者なら演習で絞込む If MES_Admin = 2 Then TmpEnshuCD = MES_Enshu End If 'グループ管理者ならグループで絞込む If MES_Admin = 3 Then TmpGroupCD = MES_Group End If '運用管理者の演習会社ログインでは当該演習のみにする If MES_ForceEnshu <> "" Then TmpEnshuCD = MES_ForceEnshu ' Session("MES_ForceEnshu") = "" End If Dim SendAdmin1 '運用管理者存在フラグ Dim SendAdmin2 '演習管理者存在フラグ Dim SendAdmin3 'グループ管理者存在フラグ Dim SendAdmin 'デフォルト送信先フラグ SendAdmin1 = 1 SendAdmin2 = 0 SendAdmin3 = 0 SendAdmin = 1 If GetEnshuAdmin(MES_Enshu) Then SendAdmin2 = 1 SendAdmin = 2 End If If GetGroupAdmin(MES_Group) Then SendAdmin2 = 0 'グループ管理者が存在する場合は演習管理者を非利用にする SendAdmin3 = 1 SendAdmin = 3 End If Dim Admin1Label '運用管理者表記 Dim Admin2Label '演習管理者表記 Dim Admin3Label 'グループ管理者表記 Admin1Label = "システム管理者" Admin2Label = "演習管理者" Admin3Label = "グループ管理者" If SendAdmin2 = 0 And SendAdmin3 = 0 Then Admin1Label = " 先　生 " ElseIf SendAdmin3 = 0 Then Admin2Label = " 先　生 " ElseIf SendAdmin2 = 0 Then Admin3Label = " 先　生 " End If '返信モードの場合は返信元を取得 Dim Label Dim ReplyUser Dim ReplyUserKubun Dim Seq Seq = Request("Seq") If Seq <> "" Then If IsNumeric(Seq) Then Query = "exec SPLメッセージ取得受信 '" & MES_SystemCD & "', '" & MES_AppCD & "', '" & MES_DBName & "'" Query = Query & ", " & MES_Admin 'ユーザー区分 Query = Query & ", '" & MES_User & "'" 'ユーザーID Query = Query & ", " & Seq 'Seq Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then SendAdmin = Content.Fields("送信ユーザー区分") 'ユーザーモードで返信モードの場合は返信先をデフォルトチェックにする ReplyUser = UCase("" & Content.Fields("送信ユーザーID")) Title = "Re: " & Content.Fields("表題") Message = Replace("" & Content.Fields("本文"), "
", vbCrLf) Dim TmpMessage Dim jj TmpMessage = Split(Message, vbCrLf) For jj = 0 To UBound(TmpMessage) TmpMessage(jj) = "＞ " & TmpMessage(jj) Next Message = Join(TmpMessage, vbCrLf) & vbCrLf & vbCrLf Label = "返信" End If End If End If 'ユーザー存在チェック（現在は参加グループ無しユーザー無しの演習を除外しているので不要） Dim SonzaiFlg SonzaiFlg = 0 Set Content = GetUserList(TmpEnshuCD, TmpGroupCD) If Not(Content.BOF Or Content.EOF) Then SonzaiFlg = 1 End If %> <% = HtmlHeader("") %>
<% Response.Write(HtmlDesign(11)) If MES_Admin < 1 Then Response.Write(HttpL3_1(" 送信する ", "form1.AllSend.value='';SubmitCheck()", " 送信一覧 ", "tblbtn('message_list.asp?Mode=Send')", " 受信一覧 ", "tblbtn('message_list.asp?Mode=Recv&Seq=" & Seq & "')", "閉じる", "ExitFlg=0;top.window.close()", "", "")) ElseIf SonzaiFlg = 1 Then Response.Write(HttpL3_1(" 選択送信 ", "form1.AllSend.value='';SubmitCheck()", " 全員に送信 ", "form1.AllSend.value='GO';SubmitCheck()", " 送信一覧 ", "tblbtn('message_list.asp?Mode=Send')", " 受信一覧 ", "tblbtn('message_list.asp?Mode=Recv&Seq=" & Seq & "')", "閉じる", "ExitFlg=0;top.window.close()")) Else Response.Write(HttpL3_1(" 送信一覧 ", "tblbtn('message_list.asp?Mode=Send')", " 受信一覧 ", "tblbtn('message_list.asp?Mode=Recv&Seq=" & Seq & "')", "閉じる", "ExitFlg=0;top.window.close()", "", "", "", "")) End If Response.Write(HttpL4("メッセージ送信", Label)) 'Exit Sub %> >
<% = HtmlFooter %> <% End Sub %>